LOTUSSCRIPT/COM/OLE CLASSES

Examples: QueryAccessRoles method
This agent gets the roles for the current user in the current database.

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