LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim ws As New NotesUIWorkspace Dim db As NotesDatabase server$ = "Snapper" file$ = "bob\Stream" Set db = session.GetDatabase(server$, file$) If Not db.IsOpen Then Messagebox "Database does not exist",, _ server$ & "\\" & file$ Exit Sub End If If db.IsCurrentAccessPublicReader Then Call ws.OpenDatabase(server$, file$) Else Messagebox "You are not a public reader",, _ server$ & "\\" & file$ End If End Sub
See Also