Jump to content

exit function when COM error


Recommended Posts

i am trying to "Return" out back to the GUI when a COM error occurs but i end up in a long sequence of errors that doesnt seem to end.

Essentially what i would liek to do, is RETURN to the GUI after the first error occurs.

i know my attempt below doesnt make sense because $notes_session isnt being set to anything but wasnt sure how else to return out of the function

thank you

func notes
    $dbobj = AccountInfo_Notes_userDB($server, $database)
    AccountInfo_Notes_getAssocList($dbobj)
endfunc

Func AccountInfo_Notes_userDB($server, $database)

    $notes_session = ObjCreate("Lotus.NotesSession")
    $notes_session.Initialize("password")

    If $notes_session = False Then
        MsgBox(0, "", "2")
        Return
    EndIf
EndFunc

Func COM_Error()

    MsgBox(262144, "Account Info", $COM_Error.description & @CRLF & _
            "" & @CRLF & _
            "Script Line: " & $COM_Error.scriptline)

    Return False

EndFunc   ;==>COM_Error
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...