LOTUSSCRIPT/COM/OLE CLASSES

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

See Also