4. Работа с электронной почтой в Delphi. Отправка почты

Для отправки почты нам понадобится компонент IdSMTP со страницы Indy Clients палитры компонентов Delphi.

Этот компонент реализует все необходимое для отправки электронной почты по протоколу SMTP (Simple Mail Transfer Protocol - простой протокол передачи почты), использующий 25 порт, по которому посылаются команды и текст письма. Этапы отправки электронной почты следующие:

1) соединение с SMTP сервером;

2) подготовка тела письма, определение отправителя и получателя письма;

3) отправка письма на SMTP сервер.

Разместив на форме компонент IdSMTP, займёмся его настройкой. Настройку порта можно произвести в инспекторе объектов, установив свойство Port в значение 25, или в коде программы сделать то же самое:

IdSMTP1.Port:=25;

4.1. Соединение с сервером

Для соединения с SMTP сервером, который будет осуществлять отправку нашей почты, нужно указать его URL, для сервера mail.ru это производится следующим образом:

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

Соединение с сервером производится методом Connect:

procedure Connect(const ATimeout: Integer); override;

где ATimeout - необязательный параметр, задает максимальное время в миллисекундах ожидания ответа с SMTP сервера, по истечении которого попытка установить соединение прекращается.

Например,

IdSMTP1.Connect(5000);

Если при соединении с сервером требуется авторизация, то значение свойства AuthenticationType нужно установить в atLogin, при этом в инспекторе объектов также нужно определить свойства Username(имя пользователя. К примеру, Username почтового ящика delphi@mail.ru - delphi) и Password(пароль на ящик), или сделать то же программно:

IdSMTP1.AuthenticationType:=atLogin;

IdSMTP1.Username:=′delphi′;

IdSMTP1.Password:=′mypass′;

Если авторизация не требуется, то свойство AuthenticationType в инспекторе объектов нужно установить в atNone, либо сделать это программно:

IdSMTP1.AuthenticationType:=atNone;

После применения метода Connect, нужно анализировать логическое свойство Connected, которое в случае удачного соединения устанавливается в True. После этого при помощи метода Send можно отправлять сообщение:

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

4.2. Структура письма

Метод Send отправляет тело сообщения, представляющего собой структуру типа TIdMessage.

Структура письма реализуется в Delphi отдельным компонентом TIdMessage, расположенным на палитре компонентов Indy Misc и выглядит следующим образом:

var

Msg: TIdMessage;

begin

Msg.Subject:=′тема сообщения′; //текст темы сообщения

Msg.Recipients.EMailAddresses:=′bogdanwe@mail.ru′; //указываем адрес получателя

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

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

Msg.Date:=StrToDate(′01.12.2004′); //дата отправки письма может быть любой

end;

Свойство

property Recipients: TIdEmailAddressList;

определяет получателя или получателей электронного письма. Свойством EMailAddresses, имеющего синтаксис:

property EMailAddresses: String;

конкретно определяются названия электронных учетных записей, которым адресуется письмо. Названия должны указываться через разделитель вида "," то есть через запятую. Например:

Msg.Recipients.EMailAddresses:=′bogdanwe@mail.ru,delphi7@mail.ru′;

Свойство From представляет собой объект типа TIdEmailAddressItem и содержит информацию об отправителе письма и в свою очередь включает в себя три свойства - Name, Address, Text.

Свойство Address содержит информацию о электронном ящике отправителя:

property Address: string;

например,

Msg.From.Address:=′delphi@mail.ru′;

Свойство Name представляет собой имя отправителя:

property Name: string;

например,

Msg.From.Name:=′Илья Иванов′;

Свойство Text содержит информацию обоих свойств. Тело письма представляет собой объект типа TStrings:

property Body: TStrings;

Если вам нужно отправить с письмом файл, то для этого нужно создать объект класса TidAttachment. Для этого применяется следующий конструктор:

constructor Create(Collection: TIdMessageParts; const AFileName: TFileName = ′′);

где Collection − объект класса TIdMessageParts, представляющее собой коллекцию приложений к электронному письму; константа AFileName типа TFileName - представляет собой обычную текстовую строку с указанием правильного пути к файлу, например "C:file.zip", по умолчанию имеет значение ′′.

Например:

TIdAttachment.Create(Msg.MessageParts,′c:file.zip′);

После отправки сообщения нужно разорвать соединение с сервером. Это производится методом Disconnect:

IdSMTP1.Disconnect;