Показать сообщение отдельно
  #8  
Старый 20.10.2018, 00:30
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Одна ошибка не отменяет другую.
1. А кто будет за тебя создавать aMsg???
Код:
var
   aMsg : TIdMessage;
begin
...
  aMsg := TIdMessage.Create(Nil);
  Try
...
  Finally
    aMsg.Free;
  End;
end;

2. Тебе сервер говорит, что он принимает подключение только с использованием SSL. Я где-то тут недавно постил пример как использовать SSL с TIdHttp. Я так понимаю, что с TIdSmtp примерно так же. Качаем и кладем рядом с exe пару библиотек, добавляем в код SSLIOHandler (как-то так) и все должно заработать.
Ответить с цитированием