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

関連項目

FreeTimeSearch メソッド

用語集