//uses ...IdAttachmentFile; {indy 10.5.5; 10.5.7}
....
var
attach: TidAttachment; {indy 9.00.10}
// attach: TIdAttachmentFile; {indy 10.5.5; 10.5.7}
msg: tidmessage;
begin
// idSMTP1.AuthType:=satDefault; {indy 10.5.5; 10.5.7} // тпип авторизации
idSMTP1.AuthenticationType:=atLogin; {indy 9.00.10} // тпип авторизации
idSMTP1.Username:='xxxx'; // логин отправителя
idSMTP1.Password:='****'; // пароль отправителя
idSMTP1.Host:='smtp.mail.ru'; // хост mail.ru
IdSMTP1.Port:=25; // порт mail.ru
msg:=TIdMessage.Create(nil);
msg
.CharSet := 'UTF-8';
msg
.ContentTransferEncoding := '8bit';
msg.ContentType:='text/plain'; // эту строчку добовлять в зависимости от того как будет работать сама программа
msg.Body.Text := Memo1.Text;
msg.Body.Add('Test'); // текст письма
msg.Subject:='Test mail'; // Тема
msg.From.Address:='xxxx@mail.ru'; // от кого отправляем письмо
msg.From.Name:=
...
Читать дальше »
