例: IsCurrentAccessPublicReader property (NotesDatabase - LotusScript®)

次のエージェントは、ユーザーがワークスペースのデータベースに対してパブリック文書の [読者] アクセス権を持つ場合、そのデータベースを開きます。

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