例: UserGroupNameList property

次のエージェントは、現在のセッションのユーザーグループ名リストを取得します。

Sub Initialize
  Dim session As New NotesSession
  If Isempty(session.UserGroupNameList) Then
    message$ = "None"
  Else
    Forall group In session.UserGroupNameList
      message$ = message$ & group.Abbreviated & Chr(10)
    End Forall
  End If
  Messagebox message$,, "User group name list"
End Sub