Examples: FindFreeTimeDialogEx method

This action opens the Free Time dialog box using the names in the SendTo, CopyTo, and BlindCopyTo fields of the current UI document, and the dates in the StartDateTime and EndDateTime fields.

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