LOTUSSCRIPT/COM/OLE CLASSES

Examples: FreeTimeSearch method
This example finds the first 60-minute time slot available for three people.

Dim session As New NotesSession
Dim window As NotesDateRange
Dim startDateTime As New NotesDateTime("Today")
Dim endDateTime As New NotesDateTime("Tomorrow")
Dim names(1 To 3) As String
Dim freeTime As Variant
Set window = session.CreateDateRange()
Set window.StartDateTime = startDateTime
Set window.EndDateTime = endDateTime
names(1) = "Robert Erikson"
names(2) = "Marybeth McKay"
names(3) = "Kerry Jones"
freeTime = session.FreeTimeSearch _
(window, 60, names, True)
Messagebox Error$
If (freeTime(0) Is Nothing) Then
 Messagebox "No Match Found"
Else
 Forall x In freeTime
 Messagebox x.Text
 End Forall
End If

See Also