LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目