Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: CLI_Andreas_Schmidt am 27.10.04 - 18:17:55
-
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.
???
-
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
-
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
-
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
-
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