How can I silently decline a meeting?

Question

I've currently got a script that I tie to a rule so that I can auto-decline meeting requests with certain subjects:

Sub AutoDeclineMeetings(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(olMeetingDeclined, True)
 oResponse.Send

End Sub

However, this sends a response back to the meeting organizer, which unnecessarily spams them, since they don't care if I attend or not.

How can I change this code so that the meeting does not show up in my calendar and so that no response is sent? I've tried simply calling both oAppt.Delete and oRequest.Delete, but this does not remove the item from my calendar.

Effectively, what I'm looking for is the equivalent of manually selecting Decline -> Do Not Send a Reponse on the meeting request.

Answer 1

Instead of doing oResponse.Send, try oResponse.Close(olDiscard)