例: IsPublicReader property (NotesACLEntry - LotusScript®)

次のスクリプトは、特定のエントリがこのデータベースのパブリック文書を読み込めるかどうかを調べます。

Sub Queryopen(Source As Notesuidocument, _
Mode As Integer, Isnewdoc As Variant, _
Continue As Variant)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim acl As NotesACL
  Dim entry As NotesACLEntry
  Set db = session.CurrentDatabase
  Set acl = db.acl
  Set entry = acl.GetEntry("Mary Bugs/East/ACME")
  If entry.IsPublicReader Then
    Messagebox entry.Name & " is a public reader."
  Else
    Messagebox entry.Name & " is not a public reader"
  End If
End Sub