Delphi Indy 10 SMTP Кодировки и SSL Решение все в одном

При отправке писем через SMTP компоненты Indy в Delphi 7 наталкивался периодически на разные проблемы.
Варианты проблем:

• отправка писем от машин, у которых - есть русские буквы в названиях
• отправка писем через SSL
• проблемы с кодировками в теме и теле письма

В интернете общего решения не находил - только разрозненные части.

Все решения свел здесь. может кому-то пригодится

Конфигурация системы:

• Delphi 7, 
• Версия компонентов Indy:10.5.9.4797 (переустанавливал вручную по статье http://conferences.embarcadero.com/article/32160  файл: Indy10_4798.zip)
• ssl - библиотеки: openssl-1.0.0d-i386-win32.zip
  брал отсюда http://indy.fulgan.com/SSL/
  (в директорию с exe-файлом подложил libeay32.dll и ssleay32.dll)

Ключевая процедура в коде - SendEmail
Важные места подкомментировал.

uses
...

IdCoderMIME , IdMessage, IdSMTP,
IdSSLOpenSSL , IdIOHandler, IdAttachmentFile, IdExplicitTLSClientServerBase, idCharSets, idText
...

type

  //-- вспомогательный класс-заглушка для подвязки события компонента indy
  Tindystub = class(tobject)
  public
    procedure OnInitISO(var VHeaderEncoding: Char; var VCharSet: string);
  end;

procedure Tindystub.OnInitISO(var VHeaderEncoding: Char;
  var VCharSet: string);
begin
  VCharSet := IdCharsetNames[ idcs_UTF_8 ];
end;

procedure SendEmail(

    aSmtpServer: string;

    aSmtpPort: integer;

    aSmtpLogin: string;

    aSmtpPassword: string;

    aFromAddress: string;

    aFromName: string;

    aToAddress: string;

    aMessageSubject: string;

    aMessageText: string;

    aAttachmentFileFullName: string;

    aUseSSL: boolean = false

    );

var

  lMessage : TIDMessage;

  lSMTP    : TIdSMTP;

  attach   : TIdAttachmentFile;

  sslHandler: TIdSSLIOHandlerSocketOpenSSL;

  lindystub: Tindystub;

  idtTextPart: TIdText;

begin

  lMessage:= TIDMessage.Create(nil);

  lSmtp:= TIDSmtp.Create(nil);

  sslHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  lindystub:= Tindystub.Create();

  try

    lSMTP.AuthType:= satDefault;

    lSMTP.Host     := aSmtpServer;   //Хост

    lSMTP.Port     := aSmtpPort;     //Порт (25 - по умолчанию)

    lSMTP.Username := aSmtpLogin;

    lSMTP.Password := aSmtpPassword;

    //-- решаем проблему отправки писем, если у компьютера руссоке имя

    lSMTP.HeloName := 'tfo';

    //-- отправляем почту через SSL, если надо (пока тестировал только на ukr.net)

    if (aUseSSL) then

    begin

      SSLHandler.Destination := aSmtpServer+':'+IntToStr(aSmtpPort);

      SSLHandler.Host := aSmtpServer;

      SSLHandler.Port := aSmtpPort;

      SSLHandler.DefaultPort := 0;

      SSLHandler.SSLOptions.Method := sslvSSLv23;

      SSLHandler.SSLOptions.Mode := sslmUnassigned;

      lSMTP.IOHandler := SSLHandler;

      lSMTP.UseTLS := utUseImplicitTLS;

    end;

    //-- решаем вопрос кодировки темы письма

    lMessage.OnInitializeISO := lindystub.OnInitISO;

    lMessage.Subject      := aMessageSubject;

    lMessage.From.Address := aFromAddress;

    lMessage.From.Name    := aFromName;

    lMessage.Recipients.EMailAddresses:= aToAddress;

    //-- решаем вопрос кодировки тела письма

    idtTextPart := TIdText.Create(lMessage.MessageParts, nil);

    idtTextPart.ContentType := 'text/plain';

    idtTextPart.CharSet := 'Windows-1251';

    idtTextPart.Body.Text:= aMessageText;

    //-- работа со вложенными файлами

    if (aAttachmentFileFullName <> '') then

    begin

      attach:=TIdAttachmentFile.Create(lMessage.MessageParts, aAttachmentFileFullName); //Вложение

    end;

    //-- собственно отправка

    lSMTP.Connect;

    try

      lSMTP.Send(lMessage);

    finally

      lSMTP.Disconnect;

    end;

  finally

    sslHandler.Free;

    lMessage.Free;

    lSmtp.Free;

    lindystub.Free;

  end;

end;

Вопросы/пожелания/предложения оставляйте в комментариях

см. также

Обработка почты через POP3 компоненты Indy10 в Delphi 7
http://dev-doc.blogspot.com/2013/02/delphi-indy-10-pop3.html

EMAIL MESSAGES FROM DELPHI. USING INDY TO SEND E-MAILS
https://community.embarcadero.com/article/technical-articles/162-programming/5913-email-messages-from-delphi-using-indy-to-send-emails
---------------------------------
UPD
Если хотите отправить почту через ukr.net
проверьте чтобы были включен параметр "POP3 и SMTP" согласно статье
http://www.qdpro.com.ua/node/17758
(если не сделать, будет выскакивать ошибка SYSERR 417)