例: SchedulerName property

次のフォームエージェントは、渡されたスケジューラ名を表示するサブルーチンを呼び出します。

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 DisplayName(uis)
End Sub

Sub DisplayName(uis As NotesUIScheduler)
  Messagebox uis.SchedulerName,, "Scheduler name"
End Sub