procedure TForm1.FormCreate(Sender: TObject);
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; //ваш логин аккаунта с которого будем слать
IdSMTP1.Password:='pass'; // пароль от этого аккаунта
end;
код кнопки "отправить"
Код:
procedure TForm1.sButton1Click(Sender: TObject);
begin
IdSMTP1.Disconnect ;
IdSMTP1.Connect;
IdMessage1.CharSet:='UTF-8';
IdMessage1.ContentTransferEncoding:='8bit';
IdMessage1.Body.text:='bodytext...';
IdMessage1.Subject:='Hello!'; // Тема письма
IdMessage1.Recipients.EMailAddresses:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; // Кому
IdMessage1.From.Name:='Vasya'; // От кого
IdMessage1.From.Address:=IdSMTP1.Username;
IdSMTP1.Send(IdMessage1);
showmessage('Отправлено! :)'); // done! :)
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;
end.
Исходник, демонстрирующий способ отправки email средствами Delphi:
[Ссылки могут видеть только зарегистрированные пользователи. ]