例: GetParticipants method

次のフォームアクションは、埋め込みスケジューラの必須またはオプションの参加者を表示します。

%INCLUDE "lsconst.lss"
Sub Click(Source As Button)
  Dim ws As NotesUIWorkspace
  Dim uid As NotesUIDocument
  Dim uis As NotesUIScheduler
  Set ws = New NotesUIWorkspace
  Set uid = ws.CurrentDocument
  Set uis = uid.GetSchedulerObject("Main")
  participants = uis.GetParticipants( _
  REQUIRED_PEOPLE + OPTIONAL_PEOPLE)
  If Isempty(participants) Then
    Messagebox "Participant list empty",, "No participants"
    Exit Sub
  End If
  displayList = ""
  Forall participant In participants
    If displayList = "" Then
      displayList = participant
    Else
      displayList = displayList & Chr(13) & participant
    End If
  End Forall
  If displayList <> "" Then
    Messagebox displayList,, "List of participants"
  End If
End Sub