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

用語集