Hilfe SMTP-Wenn Email nicht zustellbar dann-->

[bundy]

Hallo,

Ich habe einen Automailer prog.
Wie kann ich das lösen ,wenn es die angegebene E-mail Adresse nicht gibt, das er nicht abbricht (unknown user).
sonder die nächste Email sendet.

[sakura]

Mit einem try...except...end Block um die Senderoutine

......

[Sharky]

Zitat von sakura:

Mit einem try...except...end Block um die Senderoutine

......

Oder, wenn es deine SMTP-Funktion erlaubt die Anwortmeldung des Empfägerservers auswerken und nur bei einem OK (Ich glaube SMTP Code 200) die Mail absenden.

[bundy]

Wie frage ich den Fehler ab.

Bitte um genauere Hilfe.

[Sharky]

Zitat von bundy:

Wie frage ich den Fehler ab.

Bitte um genauere Hilfe.

Mist, Denkfehler bei mir. Du bekommst die Fehlermeldung ja erst nach dem Senden.

Also doch mit Try-Execption

Dann kannst Du allerdings die Fehlermeldung (bei den Indys) mit
IdSMTP1.LastCmdResult.Text bzw. IdSMTP1.LastCmdResult.TextCode auswerten.

[bundy]

Wie muss das dan aussehen die abfrage ?

Hauptform.IdSMTP1.Connect;
try
Hauptform.IdSMTP1.Send(Hauptform.IdMessage1);
except
if IdSMTP1.LastCmdResult.TextCode >'' then ShowMessage(IdSMTP1.LastCmdResult.TextCode);

// finally
// Hauptform.IdSMTP1.Disconnect;

[Sharky]

Zitat von bundy:

Wie muss das dan aussehen die abfrage ?

Delphi-Quellcode:

Hauptform.IdSMTP1.Connect;
  try
    Hauptform.IdSMTP1.Send(Hauptform.IdMessage1);
  except
   ShowMessage(IdSMTP1.LastCmdResult.Text + #13#10 + IdSMTP.LastCmdResult.TextCode);
  end;

Würde ich so machen.

[bundy]

er zeigt mir nicht ShowMessage, und gibt mir diesen fehler vorher

[Sharky]

Zitat von bundy:

er zeigt mir nicht ShowMessage, und gibt mir diesen fehler vorher

Las mich raten: Du hast das Programm aus der IDE gestartet. Dort ist standardmässig die Integrierte Fehlersuche aktiv.

Schaue mal im Menü unter:

Tools - Debugger Optionen

Dort mache das Häckchen bei "Integrierter Fehlersuche" weg.

[bundy]

Jetz sagt er Connection is closed Gracefully