LOTUSSCRIPT/COM/OLE CLASSES
Sub Postopen(Source As Notesuidocument) 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( session.CommonUserName ) If ( entry.IsRoleEnabled( "Lurker" ) ) Then Call source.CollapseAllSections End If End Sub
See Also