LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目