Sub LLSA203FreeBusy(oRequest As MeetingItem) If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then Exit Sub End If Dim oAppt As AppointmentItem Set oAppt = oRequest.GetAssociatedAppointment(True) Dim myAcct As Outlook.Recipient Dim myFB As String Set myAcct = Session.CreateRecipient("LLSA 203") Debug.Print oAppt.Duration Debug.Print "Time: " & TimeValue(oAppt.Start) Debug.Print "periods before appt: " & TimeValue(oAppt.Start) * 288 Debug.Print oAppt.Start myFB = myAcct.FreeBusy(oAppt.Start, 5, True) Debug.Print myFB Dim oResponse Dim i As Long Dim test As String i = (TimeValue(oAppt.Start) * 288) test = Mid(myFB, i + 1, oAppt.Duration / 5) Debug.Print "String to check: " & test If InStr(1, test, "2") Then Set oResponse = oAppt.Respond(olMeetingDeclined, True) oResponse.Send Else Set oResponse = oAppt.Respond(olMeetingAccepted, True) oResponse.Send End If oRequest.Delete End Sub