LOTUSSCRIPT/COM/OLE CLASSES
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
See Also