I'm trying to use this macro in my inbox for incomming outlook calendar invites that will accept an appointment, set reminder to none, and busy status to free. Everything is working except the busy status is not changing to free (as if it's not reading this line of code, I've tried 0 instead of olFree also but no luck). Can you tell me what I'm doing wrong? Here is my code and I'm using Office 2010...
Sub Accept_No_Reminder_Free_Status()
Dim oRequest As MeetingItem
Dim oAppt As Outlook.AppointmentItem
Set oRequest = Application.ActiveExplorer.Selection.Item(1)
If oRequest.MessageClass = "IPM.Schedule.Meeting.Request" Then
Set oAppt = oRequest.GetAssociatedAppointment(True)
'set fields on the appt.
With oAppt
.Categories = None
.ReminderSet = False
.BusyStatus = olFree
.Save
End With
End If
'autoaccept and send response
Dim oResponse
Set oResponse = oAppt.Respond(olMeetingAccepted, True)
oResponse.Send
'delete the request from the inbox
oRequest.Delete
End Sub