Отправка почты с помощью Indy и SMTP

Question

Im пытается отправить почту, используя этот код:

With IdMessage1 Do Begin 
    Recipients.EMailAddresses := 'XXXXX@gmail.com'; 
    From.Address    := 'XXXXX@gmail.com'; 
    From.Name     := edit_from.Text; 
    CCList.EMailAddresses  := ''; 
    BccList.EMailAddresses := ''; 
    Priority     := mpNormal; 
    Subject     := edit_subject.Text; 
    Body.Add(memo_body.Lines.Text); 
End; 

With IdSMTP1 Do Begin 
    Host  := 'smtp.gmail.com'; 
    Username := 'XXXXX@gmail.com'; 
    Password := '*****'; 
    IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Self); 
    Port  := 465; 
    UseTLS := utUseImplicitTLS; 

    Try 
    Connect; 
    Except 
    End; 

    If Not Connected Then Begin 
    Showmessage('Error'); 
    Exit; 
    End; 

    Try 
    Send(IdMessage1); 
    Finally 
    Disconnect; 
    End; 
End; 

Он отлично работает на моем компьютере, но когда я протестировать его на других машинах «ERROR» (Ошибка в If блоке позапрошлой Try блок) будет поднят ... Где проблема?

Answer 1

Это не правильный способ обработки ошибок с помощью Indy. Это должно быть больше, как это вместо:

With IdSMTP1 Do Begin 
    IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Self); 
    UseTLS := utUseImplicitTLS; 
    Host  := 'smtp.gmail.com'; 
    Username := 'XXXXX@gmail.com'; 
    Password := '*****'; 
    Port  := 465; 

    Try 
    Connect; 
    Try 
     Send(IdMessage1); 
    Finally 
     Disconnect; 
    End; 
    Except 
    Showmessage('Error'); 
    Exit; 
    End; 
End; 

Send() и Disconnect() может не так легко, как Connect() может. Если вы хотите Connect() быть в своем собственном try/except блоке, то, по крайней мере, не использовать Connected для подтверждения того, удалось Connect():

Try 
    Connect; 
Except 
    Showmessage('Error connecting'); 
    Exit; 
End; 

Try 
    Try 
    Send(IdMessage1); 
    Finally 
    Disconnect; 
    End; 
Except 
    Showmessage('Error sending'); 
    Exit; 
End; 

Это, как говорится, исключение говорит вам, что на самом деле не удалось, так что не игнорировать его , Если бы вы отображается его содержимое, вы бы имели лучшее представление о том, что терпел неудачу, например:

Except 
    on E: Exception do 
    Begin 
    ShowMessage(Format('Error!'#10'[%s] %s', [E.ClassName, e.Message])); 
    Exit; 
    End; 
End; 

Наиболее вероятным виновником является то, что вы не развернуть библиотеки DLL OpenSSL с вашим приложением. Вы можете скачать их с OpenSSL's website или от Indy's Fulgan mirror.