Столкнулся с той же проблемой!!!!
Вот код:
Код:
IdSMTP1.Username := ***;
IdSMTP1.Password := ***;
IdSMTP1.Host := ***;
IdSMTP1.Port := ***;
email_CharSet:= ***;
email_From_Address:= ***;
IdSSLIOHandlerSocketOpenSSL1.Destination := IdSMTP1.Host+':'+IntToStr(IdSMTP1.Port);
IdSSLIOHandlerSocketOpenSSL1.Host := IdSMTP1.Host;
IdSSLIOHandlerSocketOpenSSL1.Port := IdSMTP1.Port;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1.UseTLS := utUseExplicitTLS;
IdSMTP1.Connect;
// формирую тело письма MailMessage
IdSMTP1.Send(MailMessage);
MailMessage.Clear;
// Тут снова могу отправить письмо и оно уйдет
IdSSLIOHandlerSocketOpenSSL1.Close;
if IdSMTP1.Connected then IdSMTP1.Disconnect;
Проблема в том, что если я нажимаю кнопку повторно, вылазит ошибка, что соединение не может быть установлено....
Дружище, ты решил эту проблему или нет?
Народ хелп!!!!