Examples: FindFreeTimeDialog method

This action opens the Free Time dialog box using the names in the SendTo field 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
  Call uidoc.FindFreeTimeDialog _
  ("SendTo", "", "", "", "", "", "", _
  "StartDateTime","EndDateTime")
End Sub