Synapse+SSL. Отправка почты средствами Делфи 7

[grominfo]

Всем привет!

С введением обязательного SSL столкнулся с проблемой отправкой почты. Перепробовал кучу советов и вариантов, ничего не работает. Может есть у кого 100% рабочий пример?

Вот как делаю я:

uses
{.....} ssl_openssl, SMTPSend, MIMEPart, MIMEMess

{.....}

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

      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 TForm10.Button1Click(Sender: TObject);
var
st:TStrings;
begin
 SendMail('smtp.gmail.com', 'Тема сообщения, 'grominfo@yandex.ru', 'testing68g@gmail.com', 'Текст сообщения', '', 'testing68g@gmail.com','пароль');
end;

Качал разные варианты библиотек libeay32.dll и ssleay32.dll, которые необходимы для работы с SSL, глушил антивирус - все безрезультатно.

[Аватар]

Давненько было. Еще добавлял zip-вложение AddPartBinaryFromFile. А так код такой же практически. Да, вспомнил, SendToRaw кажись правил - заремил SMTP.FullSSL := True (а может другое что-то, не помню) и dll нормальные не с 1-го раза нашел. Код рабочим у меня 2 года назад был, но не использовался после этого. Вот отлаживался и работало. Точками забил приватные данные

procedure TForm2.Button1Click(Sender: TObject);
var xMsg: TMimeMess;
    xMIMEPart: TMimePart;
    xList: TStringList;
begin
  xMsg:=TMimeMess.Create;
  xList:=TStringList.Create;
  try
    xMsg.Header.Subject:='Почта для впечатывания'; {тема сообщения}
    xMsg.Header.From:='..........';        {имя и адрес отправителя}
    xMsg.Header.ToList.Add('................');  {имя и адрес получателя}
    xMIMEPart:=xMsg.AddPartMultipart('alternative',nil);
    xList.Text:='Почта для впечатывания';
    xMsg.AddPartHTML(xList,xMIMEPart);
    xMsg.AddPartBinaryFromFile('e:\F150002.zip',xMIMEPart);
    xMsg.EncodeMessage;
    if not SendToRaw('................','...................','........................',xMsg.Lines,'............','............')
      then ShowMessage('Письмо не отправлено');
  finally
    xMsg.Free;
    xList.Free;
  end;
end;

function SendToRaw(const MailFrom, MailTo, SMTPHost: string;
  const MailData: TStrings; const Username, Password: string): Boolean;
var
  SMTP: TSMTPSend;
  s, t: string;
begin
  Result := False;
  SMTP := TSMTPSend.Create;
  try
// if you need SOCKS5 support, uncomment next lines:
    // SMTP.Sock.SocksIP := '127.0.0.1';
    // SMTP.Sock.SocksPort := '1080';
// if you need support for upgrade session to TSL/SSL, uncomment next lines:
    SMTP.AutoTLS := True;
// if you need support for TSL/SSL tunnel, uncomment next lines:
    // SMTP.FullSSL := True;
    SMTP.TargetHost := Trim(SeparateLeft(SMTPHost, ':'));
    s := Trim(SeparateRight(SMTPHost, ':'));
    if (s <> '') and (s <> SMTPHost) then
      SMTP.TargetPort := s;
    SMTP.Username := Username;
    SMTP.Password := Password;
    if SMTP.Login then
    begin
      if SMTP.MailFrom(GetEmailAddr(MailFrom), Length(MailData.Text)) then
      begin
        s := MailTo;
        repeat
          t := GetEmailAddr(Trim(FetchEx(s, ',', '"')));
          if t <> '' then
            Result := SMTP.MailTo(t);
          if not Result then
            Break;
        until s = '';
        if Result then
          Result := SMTP.MailData(MailData);
      end;
      SMTP.Logout;
    end;
  finally
    SMTP.Free;
  end;
end;

[grominfo]

Аватар, спасибо, завтра проверю