LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesACL Dim acl As NotesACL Set db = session.CurrentDatabase Set acl = db.ACL Messagebox acl.InternetLevel If acl.InternetLevel = ACLLEVEL_MANAGER Then acl.InternetLevel = ACLLEVEL_DESIGNER End If Call acl.Save
See Also