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