VPF::Отправка почты Synapse - Форум программистов

Keeper89

Дата 16.7.2010, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

Доброго времени суток.

Не могу отправить почту с сервера gmail через Synapse, использую сл. код:

Код



uses
  mimemess, mimepart, smtpsend, synachar, ssl_openssl;

...

function SendMail(const AHost, ASubject, ATo, AFrom,
                        ALogin, APassword: string;
                        AHTMLBody: TStrings): Boolean;
var
  Msg: TMimeMess; //собщение
  MIMEPart: TMimePart; //части сообщения (на будущее)
  SMTP: TSMTPSend;
  s: string;
begin
  Result := False;

  SMTP := TSMTPSend.Create;


  SMTP.TargetHost := AHost;
  SMTP.TargetPort := '587';
  SMTP.UserName := ALogin;
  SMTP.Password := APassword;

//  SMTP.FullSSL := True;
//  SMTP.AutoTLS := TRUE;     // implicit

  s := '';

  if not SMTP.Login then
  begin
    s := s + SMTP.ResultString + sLineBreak;
  end;
  if not SMTP.StartTLS then
  begin
    s := s + SMTP.ResultString + sLineBreak;
  end;

    ShowMessage(s);


  Msg := TMimeMess.Create; //создаем новое сообщение
  try
    // Добавляем заголовки
    Msg.Header.CharsetCode := synachar.CP1251;
    Msg.Header.Subject := ASubject;//тема сообщения
    Msg.Header.From := AFrom; //имя и адрес отправителя
    Msg.Header.ToList.Add(ATo); //имя и адрес получателя
//
    // создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    Msg.AddPartHTML(AHTMLBody, MIMEPart);
    // Кодируем и отправляем
    Msg.EncodeMessage;

    Result := SMTP.MailData(Msg.Lines);

//    Result := smtpsend.SendToRaw(AFrom, ATo, AHost, Msg.Lines,
//                                 ALogin, APassword);
  finally
    SMTP.Logout;
    Msg.Free;
    SMTP.Free;
  end;
end;

Не проходит даже SMTP.Login.

Код

Код


function SendMail(const AHost, ASubject, ATo, AFrom,
                        ALogin, APassword: string;
                        AHTMLBody: TStrings): Boolean;
var
  Msg: TMimeMess; //собщение
  MIMEPart: TMimePart; //части сообщения (на будущее)
begin
  Result := False;

  Msg := TMimeMess.Create; //создаем новое сообщение
  try
    // Добавляем заголовки
    Msg.Header.CharsetCode := synachar.CP1251;
    Msg.Header.Subject := ASubject;//тема сообщения
    Msg.Header.From := AFrom; //имя и адрес отправителя
    Msg.Header.ToList.Add(ATo); //имя и адрес получателя
//
    // создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    Msg.AddPartHTML(AHTMLBody, MIMEPart);
    // Кодируем и отправляем
    Msg.EncodeMessage;

    Result := smtpsend.SendToRaw(AFrom, ATo, AHost, Msg.Lines,
                                 ALogin, APassword);
  finally
    Msg.Free;
  end;
end;

Тоже выдает False в Result.

C чем может быть проблема?

З.Ы. Через телнет

Код


telnet smtp.gmail.com 587

подключение есть.

Это сообщение отредактировал(а) Keeper89 - 16.7.2010, 20:58

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Keeper89

Дата 17.7.2010, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

Решение проблемы тут.

Это сообщение отредактировал(а) Keeper89 - 17.7.2010, 18:36

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »