[lkz_07]

Сам исходный код

Код:

IdSMTP1.Port:=25;
IdSMTP1.Host := ′smtp.mail.ru′;


IdSMTP1.Connect(5000);
IdSMTP1.AuthenticationType:=atLogin; 
IdSMTP1.Username:=′delphi′; 
IdSMTP1.Password:=Password;


Msg.Subject:=′тема сообщения′; //текст темы сообщения 
Msg.From.Adress:=′delphi@mail.ru′; //указываем автора письма 


for i:=0 to StringList.Count-1 do begin

Msg.Recipients.EMailAddresses := StringList.Strings[i] ; 
//указываем адрес получателя 

Msg.Body.Text:=′текст сообщения′; //размещаем текст сообщения


if Connected=True then IdSMTP1.Send(Msg);

end;



IdSMTP1.Disconnect;