SMTP über Strato

[peterbelow]

Zitat von H.Bothur:

Irgendwie drehe ich gerade durch - plötzlich bekomme ich nicht mehr die Fehlermeldung sondern der Versand geht durch.

Allerdings gibt es eine Exception "Die Verbindung wurde erfolgreich geschlossen" nach dem Versand der Mail:

Delphi-Quellcode:

  try
     MailForm.IdSMTP1.Send(MailForm.IdMessage1);

  except
    on E: Exception do
    begin
       result := false;
       Application.MessageBox (PChar(E.Message),'Verbindungsfehler Versand !',MB_OK);
       MailForm.IdSMTP1.Disconnect;
       exit;
    end;
  end;

Aber warum in drei Teufels Namen ... und wie verhindere ich das diese Exception angezeigt wird ?

Hans

Naja, finde heraus, welche Exception-Klasse (E.Classname) das ist und fange sie mit einem leeren handler ab, also sowas wie

Delphi-Quellcode:

   except
    on EIdSilentException do begin end;
    on E: Exception do
    begin
       result := false;
       Application.MessageBox (PChar(E.Message),'Verbindungsfehler Versand !',MB_OK);
       MailForm.IdSMTP1.Disconnect;
       exit;
    end;
  end;