Как отправить письмо, используя Delphi с помощью библиотеки Synapse?

Здравствуйте, дорогие посетители! Сегодня поговорим про отправку сообщений средствами Delphi. До этого была написана заметка о том, как с помощью Delphi получить значения всех элементов Edit диалога формы. В двух статьях было описано, как получить с помощью Delphi IP-адрес тут и тут. А теперь перейдем к нашему вопросу.

Начнём с того, что скачаем библиотеку Synapse отсюда: synapse.ararat.cz/doku.php. Распакуем библиотеку во временный каталог. Создадим каталог D:\Delphi\Synapse\. Будет лучше, если названия каталогов содержат латинские символы и без пробелов. Скопируем содержимое каталога source\lib из распакованного архива в каталог D:\Delphi\Synapse\. Теперь установим библиотеку Synapse.

Если у Вас Delphi 5-7, тогда:

• File -> Close All.
• Tools -> Enviroment Options. В появившемся диалоге находим закладку Library.
• Найдём надпись Browsing path. Нажимаем на кнопку с тремя точками […] справа от него.
• В появившемся диалоге находим кнопку с тремя точками […]. Нажимаем на эту кнопку, выйдет окно для выбора каталога, находим наш каталог D:\Delphi\Synapse\, выбираем его и нажимаем на кнопку OK.
• Добавим выбранный каталог, нажав Add и ОК для закрытия окна.
• Теперь для надписи Library Path.
• Найдём надпись Library Path. Нажимаем на кнопку с тремя точками […] справа от него.
• В появившемся диалоге находим кнопку с тремя точками […]. Нажимаем на эту кнопку, выйдет окно для выбора каталога, находим наш каталог D:\Delphi\Synapse\, выбираем его и нажимаем на кнопку OK.
• Добавим выбранный каталог, нажав Add и ОК для закрытия окна.

Для Delphi 2006-2007 это делается так:

• File -> Close All.
• Tools -> Options. В появившемся диалоге в дереве слева находим
  Environment options -> Delphi Options -> Library – Win32.
• Найдём надпись Browsing path. Нажимаем на кнопку с тремя точками […] справа от него.
• В появившемся диалоге находим кнопку с тремя точками […]. Нажимаем на эту кнопку, выйдет окно для выбора каталога, находим наш каталог D:\Delphi\Synapse\, выбираем его и нажимаем на кнопку OK.
• Добавим выбранный каталог, нажав Add и ОК для закрытия окна.
• Теперь для надписи Library Path.
• Найдём надпись Library Path. Нажимаем на кнопку с тремя точками […] справа от него.
• В появившемся диалоге находим кнопку с тремя точками […]. Нажимаем на эту кнопку, выйдет окно для выбора каталога, находим наш каталог D:\Delphi\Synapse\, выбираем его и нажимаем на кнопку OK.
• Добавим выбранный каталог, нажав Add и ОК для закрытия окна.

Приступим к написанию кода по отправке почтового сообщения. Создадим новый проект. Для того, чтобы отправить письмо необходимо использовать протокол smtp. В библиотеке Synapse есть необходимые для этого модули smtpsend, mimemess, mimepart. Подключим эти библиотеки:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, httpsend, mimemess, mimepart, smtpsend;

Напишем следующую процедуру:

Procedure SendMail (Host, Subject, pTo, From , TextBody, 
				HTMLBody, login,password : string);
var Msg : TMimeMess; // сообщение
    StringList : TStringList; // содержимое письма
    MIMEPart : TMimePart; // части сообщения (на будущее)
begin
  Msg := TMimeMess.Create; // создаем новое сообщение
  StringList := TStringList.Create;
  try
	// Добавляем заголовки
    Msg.Header.Subject := Subject;// тема сообщения
    Msg.Header.From := From; // имя и адрес отправителя
    Msg.Header.ToList.Add(pTo); // имя и адрес получателя
	// создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    if length(TextBody)=0 then 
	// если формат HTML
      begin 
        StringList.Text := HTMLBody;
        Msg.AddPartHTML(StringList, MIMEPart);
      end
    else
	// если текстовый формат
      begin 
        StringList.Text := TextBody;
        Msg.AddPartText(StringList, MIMEPart);
      end;
	// Кодируем и отправляем
    Msg.EncodeMessage;
	// Отправляем.
    if smtpsend.SendToRaw(From,pTo,Host,Msg.Lines,login,password) then 
        ShowMessage('Письмо отправлено')
    else
        ShowMessage('Письмо не отправлено'); 
 finally
   Msg.Free;
   StringList.Free;
 end;
end;

Бросим на форму кнопку и пропишем в обработчике события следующее:

procedure TForm1.Button1Click(Sender: TObject);
begin
    SendMail('smtp.yandex.ru',
        'Тема тестового письма',
        '"' + 'komu_pismo' + '" <' + 'komu@pismo.com' + '>',
        '"' + 'ot_kogo' + '" <' + 'otkogo@pismo.ru' + '>',
        'Содержимое письма в текстовом формате',
        '',
        'login_smtp', 'password_smtp') 
end;