例: ACL property

次の例は、現在のデータベースのアクセス制御リストの 1 番目のエントリ名を返します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim acl As NotesACL
  Dim aclentry As NotesACLEntry
  Set db = session.CurrentDatabase
  Set acl = db.ACL
  Set aclentry = acl.GetFirstEntry
  Messagebox aclentry.Name,,"First entry in ACL"
End Sub