LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase roles = db.QueryAccessRoles(session.UserName) If roles(0) = "" Then Messagebox "None",, "Your roles in this database" Else Forall role In roles msg$ = msg$ & role & Chr(10) End Forall Messagebox msg$,, "Your roles in this database" End If End Sub
See Also