例: FindFreeTimeDialogEx method

次のアクションは、現在の UI 文書の [SendTo]、[CopyTo]、[BlindCopyTo] フィールドに入っている名前と [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
  Dim reqPeople(3) As String
  reqPeople(0) = "SendTo"
  reqPeople(1) = "CopyTo"
  reqPeople(2) = "BlindCopyTo"
  Call uidoc.FindFreeTimeDialogEx _
  (reqPeople, "", "", "", "", "", "", _
  "StartDateTime", "EndDateTime")
End Sub