LOTUSSCRIPT/COM/OLE CLASSES
Sub Queryopen(Source As Notesuidocument, _ Mode As Integer, Isnewdoc As Variant, _ Continue As Variant) 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("Mary Bugs/East/ACME") If entry.IsPublicWriter Then Messagebox entry.Name & " is a public writer." Else Messagebox entry.Name & " is not a public writer." End If End Sub
See Also