Examples: UserGroupNameList property

This agent gets the user group name list for the current session.

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