例: NotesUIScheduler class

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

%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)
  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