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

関連項目

ACL プロパティ

用語集