Synapse. Работа с почтой GMail.com

После первой публикации в блоге статьи про работу Synapse с SMTP не только в комментариях к статье, но и на почту получил ряд вопросов и предложений рассмотреть работу с почтой gmail.com от Google. Честно сказать, я не знаю в чем заключается проблема отправки писем с использованием smtp.gmail.com, но всё же рассмотрю пример работы с этим почтовым сервисом. Лишней, думаю, информация не будет.

Итак, в начале рассмотрим, что такого особенного в работе Gmail.com. Во-первых, в вашем аккаунте по умолчанию отключен протокол POP3. Его необходимо включать самому в настройках. Во-вторых, сервер исходящей почты (smtp) использует SSL (порт 495). Вроде бы больше отличий никаких не обнаружилось. Что ж, воспользуемся заготовкой приложения, которую мы использовали при отправке писем с вложениями.
Так как в работе используется ssl, то обязательно в uses необходимо подключить модуль ssl_openssl. Если этого не сделать, то при работе программы никаких исключений не будет, но и письмо мы отправить не сможем. Такая вот особенность Synapse. Кстати, этот же модуль необходимо подключать при работе с https.
Итак, модуль подключен. Осталась мелочь — правильно указать логин и пароль и отправить письмо. Может быть здесь у кого-то возникали проблемы? Дело в том, что логин должен содержать @gmail.com. Например, я регистрировал аккаунт Google, используя адрес email с mail.ru, но после того как завел аккаунт в GMail, то основным адресом почты в аккаунте стал v…3@gmail.com — это и есть мой логин для smtp.gmail.com. Соответственно пароль тот же, что и у аккаунта Google.
На всякий случай, приведу полный листинг процедуры отправки письма с gmail.com:

Procedure SendMail (pHost, pSubject, pTo, pFrom , pTextBody, pHTMLBody : string);
var tmpMsg : TMimeMess;
     tmpStringList : TStringList;
     tmpMIMEPart : TMimePart;
begin
    tmpMsg := TMimeMess.Create;
    tmpStringList := TStringList.Create;
    try
     // Headers
     tmpMsg.Header.Subject := pSubject;
     tmpMsg.Header.From := pFrom;
     tmpMsg.Header.ToList.Add(pTo);
     // MIMe Parts
     tmpMIMEPart := tmpMsg.AddPartMultipart('alternate',nil);
     if length(pTextBody)>0 then
       begin
         tmpStringList.Text := pTextBody;
         tmpMsg.AddPartText(tmpStringList, tmpMIMEPart);
       end
     else
       begin
         tmpStringList.Text := pHTMLBody;
         tmpMsg.AddPartHTML(tmpStringList, tmpMIMEPart);
       end;
     //прицепляем к письму файл
     if Form1.Edit1.Text<>'' then
        tmpMsg.AddPartBinaryFromFile(Form1.Edit1.Text,tmpMIMEPart)
     // Encode and send
     tmpMsg.EncodeMessage;
     smtpsend.SendToRaw(pFrom, pTo, pHost, tmpMsg.Lines, 'LOGIN@gmail.com', 'PASSWORD');
  finally
   tmpMsg.Free;
   tmpStringList.Free;
  end;
end;

Пробуем отправить письмо, например, на yandex.ru. Письмо приходит с небольшой задержкой, но тем не менее вот результат:

Теперь попробуем отправить письмо НА gmail.com, используя ту же процедуру отправки:

Письмо пришло практически моментально. Таким образом, можно сказать, что работа с сервером smtp.gmail.com в Synapse практически ничем не отличается от работы с аналогичными серверами. Единственный момент — это необходимость подключения модуля ssl_openssl в uses.

UPDATE: Последние изменения компонента для отправки писем с GMail выложены в нашем репозитории. Последняя информация по работе с GMAil и Synapse — в этом посте.