Microsoft Outlook: Autoaccept Meeting Requests

This is a fun bit of code. It turns out that using Rules (in Outlook 2007+) and a little bit of VBA script you can automatically accept all meetings. I’ve only slightly changed the example script below , but the full directions and original script by blah are available on outlook-tips.net.

Sub AutoAcceptMeetings(oRequest As MeetingItem)

 

If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then Exit Sub

 

Dim oAppt As AppointmentItem

Set oAppt = oRequest.GetAssociatedAppointment(True)

 

Dim oResponse

Set oResponse = oAppt.Respond(olMeetingAccepted, True)

'oResponse.Display

 

oResponse.Send

'oRequest.Delete

 

End Sub

 

The “Coding for Fun and Profit” blog has a terrific (and funny) post on how to decline meetings that don’t meet certain criteria.