Examples: ACL property

This example returns the name of the first entry in the Access Control List for the current database.

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