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 = New NotesACLEntry(acl, _ "Nedra Keen/East/ACME",ACLLEVEL_EDITOR) entry.CanCreateSharedFolder = True Call acl.Save
See Also