LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsCurrentAccessPublicReader property
This agent opens a database in the workspace if the user has public reader access to it.

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