function sendsmtp(akk,mail,from,subj,text:string):string;
var
SMTP : TIdSMTP;
msg : TIdMessage;
SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
s:string;
begin
SMTP := TIdSMTP.Create(nil);
s:=getlogin(akk,':');
SMTP.Host := 'smtp.'+getpass(s,'@');
SMTP.Port := 465;
SMTP.AuthType := satDefault;
SMTP.Username := getlogin(akk,':');{Должно совпадать с msg.From.Address}
SMTP.Password := getpass(akk,':');
//это необходимо использовать для SSL
SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
SSLOpen.Host := SMTP.Host;
SSLOpen.Port := SMTP.Port;
SSLOpen.DefaultPort := 0;
SSLOpen.SSLOptions.Method := sslvSSLv23;
SSLOpen.SSLOptions.Mode := sslmUnassigned;
SMTP.IOHandler := SSLOpen;
SMTP.UseTLS := utUseImplicitTLS;
msg := TIdMessage.Create(nil);
msg.ContentType:='text/html; charset=windows-1251';
msg.Body.Text:=text;
msg.Subject:=subj;
msg.From.Address := getlogin(akk,':');; {<<Должно совпадать с SMTP.UserName}
msg.From.Name := from;
msg.Recipients.EMailAddresses :=mail;
SMTP.Connect;
if SMTP.Connected then
begin
SMTP.Send(msg);
result:='Сообщение отправлено';
end else
result:='Не удалось отправить сообщение';
SMTP.Disconnect();
SMTP.Free;
msg.Free;
end;
к этой функции надо добавить возможность использования proxy
