例: GetSchedulerObject 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")
  attendees = uis.GetAttendees( _
  REQUIRED_PEOPLE + OPTIONAL_PEOPLE)
  displayList = ""
  Forall attendee In attendees
    If displayList = "" Then
      displayList = attendee
    Else
      displayList = displayList & Chr(13) & attendee
    End If
  End Forall
  If displayList <> "" Then
    Messagebox displayList,, "List of attendees"
  End If
End Sub