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

See Also

UserGroupNameList property

Glossary