почему не отправляется почта

[ZuBy]

IdSSLIOHandlerSocketOpenSSL.SSLOpti ons.Method := с этим параметром поэксперементируйте, частенько бывает что версия SSL/TLS используется неправильная. а еще лучше проверить на каком шифровании работает сайт;
гугл в помощь

[BETEP32]

Сообщение от phomm

Контрол-клик по UseTLS выведет в объявление этого члена в классе, к которому относится sm. У этого поля надо будет контролкликнуть по типу данных - выведет к объявлению типа, 99% процентов, что это перечисление - в нём уже смотреть подходящую Вам по смыслу константу - там может на пару букв изменилось чего.
Возможна также коллизия имён из другого модуля, тогда надо прописать имя нужного типа через точку: имя_типа.константа_перечисления (правда, я не помню, начиная с какой дельфи эта фича пошла, вроде в хе6 можно). Если же не прожуёт, то надо искать где коллизия типов - например контролкликнув по utUseImplicitTLS и уже анализировать как можно разрулить, например, поменять местами модули в uses.

Спассибо в консольке не подключил IdExplicitTLSClientServerBase

[FaTaL]

Вот что Вам поможет:

  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;

где - SSLOpen : TIdSSLIOHandlerSocketOpenSSL;