Fehlermeldungen von Indy bei E-Mailversand abfangen

[shmia]

Delphi-Quellcode:

   try 
      IdSMTP1.Connect; 
      IdSMTP1.Send(IdMessage1); 
    except
      on E:Exception do
      begin
         // Fehler protokollieren
         Protokolliere ('Fehler beim Versenden der E-Mail an: ' + sTmp+#13#10+
            E.Message);   
      end;
    end; 
    IdSMTP1.Disconnect;