There is a "freebusy" property attached to a recipient.
Public Const NUMHOURS = 15
Public Const STARTHOUR = 6 'start at 6AM
Public Const NUMHOURDIVISIONS = 2
Public Function GetBitString(RecipientItem As Object) As String
Dim temp As String 'Buffer for Free/Busy Time
temp = RecipientItem.FreeBusy(CurrentDate, 30) 'returns string
GetBitString = Mid$(temp, (STARTHOUR * 2) + 1, (NUMHOURS *
I hope this helps,
> I am writing a VB app that needs to check people's Outlook calendars to
> if a particular time slot is open. If the time slot is available, then
> VB app will schedule an event. Any sample code would be appreciated.