Mailing Error abfangen

[CLI_Andreas_Schmidt]

Hi @all,

gibt es eine Möglichkeit den Fehler "Kann Empfänger nicht im Adressbuch finden" abfangen. Problem ist, das beim Fehler die Funktion abgebrochen wird. Ein Resume next wäre hier nicht gut, da dann kein Fehler mehr angezeigt wird.

[koehlerbv]

Fang das am besten im ErrorHandler an Hand der Fehlernummer ab (ACHTUNG - da gibt es noch eine gleich daneben, die auch eintreten kann) und mach' dann ähnlich wie Resume Next mit Deinem Code weiter, wie dieser in dieser Situation reagieren soll. Alle anderen Fehler werden dann entsprechend Deines ErrorHandlers abgearbeitet.

Bernhard

[elajen]

Hallo,

hier eine Kopie aus einer Anwendung von mir:

On Error Resume Next
Call maildoc.send( False )
If Err <> 0 Then
   On Error Goto ErrorHandler            
   Call Me.DebugHandler( "Senden nicht erfolgreich" )
   Call Me.DebugHandler( "Fehler: " + Cstr( Err ) )
   Err = 0
Else
   On Error Goto ErrorHandler
   Call Me.DebugHandler( "Senden erfolgreich" )
End If



Gruß von Ekki

[CLI_Andreas_Schmidt]

Danke habe es so gemacht. Läuft gut. Die Schwierigkeit liegt jetzt nur noch im finden der Fehlernummer. Manchmal spuckt Notes nix raus.

Danke

Gruss

Andreas

[TMC]

Die Schwierigkeit liegt jetzt nur noch im finden der Fehlernummer.

In solchen Fällen - bzw. wenn ich nicht genau weiß was alles an Fehlern kommen könnten, ich aber für 1 Zeile Code mir sicher bin wie ich mit dem Fehler umgehe (egal welcher es ist) mache ich das so:

    On Error goto ErrorHandler
      'Code
      'Code
      'Noch mehr code
    On Error goto SehrSpeziellerErrorFuerDieseEineZeile
      doc.Send(False)
    On Error goto ErrorHandler
      'Code
      'Code
    'Noch mehr code
goOut:
     Exit Sub
SehrSpeziellerErrorFuerDieseEineZeile:
     'Wir machen hier was sehr spezielles, danach vielleicht ein Resume Next
ErrorHandler:
     'Der normale Error
     Msgbox "error" 'hier entsprechend Erl, Errr und Error$ eine Meldung
      Resume goOut
Exit Sub


Siehe auch diesen sehr guten Thread von Jens bezügl. ErrorHandling:
http://www.atnotes.de/index.php?topic=11980.0