LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase org$ = session.OrgDirectoryPath filename$ = "Events.nsf" If org$ <> "" And Right(org$, 1) <> "\" Then org$ = org$ & "\" End If Set db = session.GetDatabase("", org$ & filename$) If Not db.Isopen Then Messagebox "Cannot open",, org$ & filename$ Exit Sub End If End Sub