LOTUSSCRIPT/COM/OLE CLASSES
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( "Jeffrey Kinnamon/East/ACME" ) If Not ( entry Is Nothing ) Then entry.CanCreatePersonalAgent = True Call acl.Save End If
See Also