silently-decline-invitation.vb

Public Sub AutoDeclineInvitation(Item As Outlook.MailItem)
  Dim cAppt As AppointmentItem
  Dim oResponse
   
  Set cAppt = GetCurrentItem.GetAssociatedAppointment(False)
  
  If cAppt.ReminderSet Then
    Set oResponse = cAppt.Respond(olMeetingDeclined, True)
  Else
    GetCurrentItem.GetAssociatedAppointment(True)
    Set oResponse = cAppt.Respond(olMeetingAccepted, True)
  End If
  
  oResponse.Send
   
  Set cAppt = Nothing
End Sub