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

関連項目

UserGroupNameList プロパティ

用語集