例: FindFreeTimeDialog method

次のアクションは、現在の UI 文書の [SendTo] フィールドに入っている名前と [StartDateTime] と [EndDateTime] フィールドの日時を使用して、[空き時間の検索] ダイアログボックスを開きます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Refresh
  If Not uidoc.EditMode Then uidoc.EditMode = True
  Call uidoc.FindFreeTimeDialog _
  ("SendTo", "", "", "", "", "", "", _
  "StartDateTime","EndDateTime")
End Sub