例: QueryAccessRoles method

次のエージェントは、現在のデータベースでの現在のユーザーのロールを取得します。

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