Проблема с отправкой писем и подключением (SSL)

[hapera2]

Ребят, замучался уже.
Всё вроде правильно... Почему не конектит? (SOCKET ERROR 10060) - connection timed out

procedure TForm1.Button1Click(Sender: TObject);
begin
IdMessage1 := TIdMessage.Create;
IdMessage1.From.Address:='правильныйадрес1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='приавильныйадрес@yandex.ru';
IdMessage1.Subject:= UTF8Encode('123');
IdMessage1.Date:= now;

{настройка компонентов перед отправкой}
IdSMTP := TIdSMTP.Create(nil);

IdSMTP.Host:='smtp.yandex.ru';
IdSMTP.Port:=465; // обычно при использование ssl 495, 587 или стандартный 25
IdSMTP.Username:='правильныйадрес1';
IdSMTP.Password:='правильныйпароль';
IdSMTP.AuthType:=satDefault;

{это необходимо использовать для SSL}
IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL.Destination := IdSMTP.Host+':'+IntToStr(IdSMTP.Port);
IdSSLIOHandlerSocketOpenSSL.Host := IdSMTP.Host;
IdSSLIOHandlerSocketOpenSSL.Port := IdSMTP.Port;
IdSSLIOHandlerSocketOpenSSL.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmUnassigned;

IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
IdSMTP.UseTLS := utUseExplicitTLS;

{отправляем письмо}
IdSMTP.Connect();
  if idsmtp.Connected then
  showmessage('1111');
IdSMTP.Send(IdMessage1);
Application.ProcessMessages;
IdSMTP.Disconnect;
idMessage1.Free;
IdSSLIOHandlerSocketOpenSSL.Free;
idSMTP.Free;
end;

[Человек_Борща]

порт правильный?
Параметры ssl верные?

[hapera2]

Исходящая почта
адрес почтового сервера — smtp.yandex.ru;
защита соединения — SSL;
порт — 465.

На счет параметров не уверен потому, что в принципе не знаю где найти информации о параметров SSL для подключения к yandex SMTP

[grominfo]

Интересует та же тема. Автор, если найдешь решение - отпишись, пожалуйста

[hapera2]

Сейчас ситуация почему то изменилась. Теперь проходит подключение, т.е. выскакивает Showmessage('1111'); Но за ней ошибка: SSL is not available on this server... Есть идеи?

[grominfo]

SSL не найден на сервере

В настройках аккаунта разрешено использовать почтовые программы?

[hapera2]

Мучаюсь с этим шифрование уже неделю. Настроения никакого нету двигаться дальше из-за этой херни. По сути там нет ничего сложного, но не получается, это и выбешивает.
Поменял параметр UseTls

IdSMTP.UseTLS := utUseImplicitTLS;

Теперь пишет could not load ssl library...
Загуглил, люди пишут надо установить две библиотеки libeay32.dll ssleay32.dll.
Пол дня качал разные версии этих файлов и кидал к экзэшнику, в папку с проектом и в корень винды... Не работает.

Причем есть такая ситуация: Была старая винда, был Delphi XE2, прога отправляла письма с SSL, все было настроено и работало, пользуюсь до сих пор той программой, а вот исходник не получается перекомпилить и запустить на новой винде. Только тут стоит уже XE7. Печаль и грусть.

[grominfo]

hapera2, почитай соседнюю тему. Я тоже никак не могу отправить письмо с программы, сделанной на Делфи 7. Вот сейчас поставил последнюю версию Инди, буду тоже мучиться. Решение по любому надо найти, у меня выхода нет

[hapera2]

Наконец заработало. Причем я оказывается всё правильно делал. Всё это причуды Delphi XE7. Сейчас поставил XE2. Использовав этот код отправил письмо:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,StdCtrls, IdMessage, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
  IdIMAP4, IdSMTPBase, IdPOP3, idsmtp;


type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP: TIdSMTP;
    IdMessage1: TIdMessage;
    IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdMessage1 := TIdMessage.Create;
IdMessage1.From.Address:='адрес@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='адрес2@yandex.ru';
IdMessage1.Subject:= UTF8Encode('123');
IdMessage1.Date:= now;

{настройка компонентов перед отправкой}
IdSMTP := TIdSMTP.Create(nil);

IdSMTP.Host:='smtp.yandex.ru';
IdSMTP.Port:=465; // обычно при использование ssl 495, 587 или стандартный 25
IdSMTP.Username:='адрес';
IdSMTP.Password:='пароль';
IdSMTP.AuthType:=satDefault;

{это необходимо использовать для SSL}
IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL.Destination := IdSMTP.Host+':'+IntToStr(IdSMTP.Port);
IdSSLIOHandlerSocketOpenSSL.Host := IdSMTP.Host;
IdSSLIOHandlerSocketOpenSSL.Port := IdSMTP.Port;
IdSSLIOHandlerSocketOpenSSL.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1;
//IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv2;

IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmUnassigned;

IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
IdSMTP.UseTLS := utUseImplicitTLS;

{отправляем письмо}
IdSMTP.Connect();
  if idsmtp.Connected then
  showmessage('1111');
IdSMTP.Send(IdMessage1);
Application.ProcessMessages;
IdSMTP.Disconnect;
idMessage1.Free;
IdSSLIOHandlerSocketOpenSSL.Free;
idSMTP.Free;
end;

end.

[Vapaamies]

Разрядность собираемого приложения не менялась при переходе от XE2 к XE7?