DELPHI ОТПРАВКА ПОЧТЫ OUTLOOK

Для отправки электронных писем в Delphi можно использовать компонент Indy. Импортируем:

uses IdSMTP, IdMessage, IdText;


Для отправки письма с помощью Outlook, необходимо создать объект TIdSMTP и настроить его параметры подключения:

SMTP := TIdSMTP.Create(nil);SMTP.Host := 'smtp-mail.outlook.com';SMTP.Port := 587;SMTP.Username := 'example@outlook.com';SMTP.Password := 'password';SMTP.UseTLS := utUseRequireTLS;


Затем создаем объект TIdMessage и заполняем его поля:

Msg := TIdMessage.Create(nil);Msg.From.Address := 'example@outlook.com';Msg.Recipients.Add.Address := 'recipient@example.com';Msg.Subject := 'Тема письма';Msg.Body.Text := 'Текст письма';


Теперь создаем объект TIdText и привязываем его к объекту TIdMessage:

Text := TIdText.Create(Msg.MessageParts);Text.Body.Text := 'Текст письма';


И отправляем письмо:

SMTP.Connect;SMTP.Send(Msg);SMTP.Disconnect;


Полный пример кода:

uses IdSMTP, IdMessage, IdText;procedure TForm1.Button1Click(Sender: TObject);var SMTP: TIdSMTP; Msg: TIdMessage; Text: TIdText;begin SMTP := TIdSMTP.Create(nil); SMTP.Host := 'smtp-mail.outlook.com'; SMTP.Port := 587; SMTP.Username := 'example@outlook.com'; SMTP.Password := 'password'; SMTP.UseTLS := utUseRequireTLS; Msg := TIdMessage.Create(nil); Msg.From.Address := 'example@outlook.com'; Msg.Recipients.Add.Address := 'recipient@example.com'; Msg.Subject := 'Тема письма'; Text := TIdText.Create(Msg.MessageParts); Text.Body.Text := 'Текст письма'; SMTP.Connect; try SMTP.Send(Msg); finally SMTP.Disconnect; end; Text.Free; Msg.Free; SMTP.Free;end;


Delphi скрытая отправка письма

Лекція екскомандувача Сухопутних військ США в Європі Бена Ходжеса (Ben Hodges) в Острозькій академії

Send Email Using Gmail - Delphi 10

Отправка письма в Delphi. Самый доступный способ.

Отложенная отправка писем Outlook. Отправка писем по расписанию

Outlook Отзыв, замена или повторная отправка отправленного сообщения электронной почты

Курс по Outlook. Урок 8. Написание и отправка сообщений. Как ответить на письмо в Outlook

Отправка email задним числом или из будущего Делфи