LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Set acl = db.ACL Set entry = New NotesACLEntry _ ( acl, "Eben Klemm/East/ACME", ACLLEVEL_AUTHOR ) entry.CanReplicateOrCopyDocuments = False Call acl.Save End Sub
See Also