отправка e-mail

[alex0097]

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

IdMessage1 := TIdMessage.Create;
IdMessage1.From.Address:='****@bk.ru';
IdMessage1.Recipients.EMailAddresses:='*****@mail.ru';
IdMessage1.Subject:= UTF8Encode('IP_RDP');
IdMessage1.Date:= now;

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

IdSMTP1.Host:='smtp.bk.ru';
IdSMTP1.Port:=495; // обычно при использование ssl 495, 587 
IdSMTP1.Username:='******@bk.ru';
IdSMTP1.Password:='*******';
IdSMTP1.AuthType:= atDefault;



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

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1.UseTLS := utUseImplicitTLS;

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

[Shouldercannon]

    SMTP := TIdSMTP.Create(Application);
    SMTP.Host := 'smtp.mail.ru';
    SMTP.Port := 465;
    SMTP.AuthType := satDefault;
    SMTP.Username := SMTPEmail;
    SMTP.Password := '***';
    // Это необходимо использовать для SSL
    SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    SSLOpen.Destination := SMTP.Host + ':' + IntToStr(SMTP.Port);
    SSLOpen.Host := SMTP.Host;
    SSLOpen.Port := SMTP.Port;
    SSLOpen.DefaultPort := 0;
    SSLOpen.SSLOptions.Method := sslvSSLv23;
    SSLOpen.SSLOptions.Mode := sslmUnassigned;

    SMTP.IOHandler := SSLOpen;
    SMTP.UseTLS := utUseImplicitTLS;

    msg := TIdMessage.Create(Application);
    msg.CharSet := 'utf-8'; // Кодировка письма
    msg.Subject := ProgramName; // Тема сообщения
    msg.From.Name := GetProgramName; // Имя отправителя
    msg.From.Address := SMTPEmail; // E-mail отправителя
    msg.Recipients.EMailAddresses := FormSettings.EEmail.Text; // E-mail получателя
    msg.Body.Add(SL.Text); // Текст письма

    try
      SMTP.Connect;
    except
    end;

    if SMTP.Connected then
    begin
      try
        SMTP.Send(msg);
        txt := 'Отправлено оповещение на E-mail';
      except
        on E: Exception do txt := 'SMTP: ' + E.Message;
      end;
    end
    else txt := 'Не удалось отправить оповещение на E-mail';

    SMTP.Disconnect;
    FreeAndNil(SMTP);
    FreeAndNil(SSLOpen);
    FreeAndNil(msg);