//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:='xxxx'; // логин отправителя
msg.Recipients.EMailAddresses:='xxxx@mail.ru'; // кому отправить письмо
msg.IsEncoded:=true;
attach:=TIdAttachment.Create(msg.MessageParts,'c:/Tmomos.txt'); // вложение {indy 9.00.10}
// attach:=TIdAttachmentFile.Create(msg.MessageParts,'c:/Tmomos.txt');// вложение {indy 10.5.5; 10.5.7}
idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(msg); IdSMTP1.Free;
attach.Free;
msg.Free;
end
else begin
IdSMTP1.Disconnect;
IdSMTP1.Free;
attach.Free;
msg.Free;
end; end;
| 
