This Visual Basic for Applications example uses the FreeBusy method to return a string of free/busy information with one character for each day. This example allows for the possibility that the free/busy information for this recipient is not accessible.
Public Sub cmdCreate_Click()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Paul Borm")
On Error GoTo ErrorHandler
myFBInfo = myRecipient.FreeBusy(#8/1/97#, 60 * 24)
Exit Sub
ErrorHandler: MsgBox "Cannot access information. "
End Sub
This Visual Basic for Applications example returns a string of free/busy information with one character for each hour (complete format).
Set myRecipient = myNameSpace.CreateRecipient("Kevin Yim")
myFBInfo = myRecipient.FreeBusy(#8/1/97#, 60, True)