例: GetScheduleData method

1. 次のフォームアクションは、すべての参加者の埋め込みスケジューラを更新します。

%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")
  Call uis.GetScheduleData
End Sub

1. 次のフォームアクションは、前回更新されなかったすべての参加者の埋め込みスケジューラを更新します。

%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")
  Call uis.GetScheduleData(2)
End Sub