I copied the following code from http://www.slipstick.com/outlook/calendar/autoaccept-a-meeting-request-using-rules/ to accept calendar requests. It works, except for three questions.
Questions:
(1) I get a pop-up prompt every time "The sender will not be sent a response. Is this okay?" Of course it is - that's why I'm doing this by code. :8>) Is there any way to not see this pop-up?
(2) The .Unread is NOT marking the item as Read, at least as it's displayed in my Inbox. Do I have the wrong property?
(3) .Delete is not deleting the item from my Inbox. Is there a different way to do this?
Ed
Code:
Sub AutoAcceptMeetings(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 oResponse
Set oResponse = oAppt.Respond(olMeetingAccepted, True)
oResponse.Display
oResponse.UnRead = False
oResponse.Delete
End Sub
Questions:
(1) I get a pop-up prompt every time "The sender will not be sent a response. Is this okay?" Of course it is - that's why I'm doing this by code. :8>) Is there any way to not see this pop-up?
(2) The .Unread is NOT marking the item as Read, at least as it's displayed in my Inbox. Do I have the wrong property?
(3) .Delete is not deleting the item from my Inbox. Is there a different way to do this?
Ed