Reading · Neil Grogan · RSS Amplifier

This page cannot be shown here. You can still read it on the original site — the toolbar below keeps your place in the directory.

You can follow the Microsoft TechNet guide to add VisualBasic code in Outlook rules . You can just replace the code they give with this: Sub AutoDeclineMeetings (oRequest As MeetingItem) ' If its not a meeting, we don't process If oRequest.MessageClass <> 'IPM.Schedule.Meeting.Request' Then Exit Sub End If ' Get the appointment in the meeting Dim oAppt As AppointmentItem Set oAppt =…

You can follow the Microsoft TechNet guide to add VisualBasic code in Outlook rules.

You can just replace the code they give with this:

Sub AutoDeclineMeetings(oRequest As MeetingItem)

' If its not a meeting, we don't process
If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then
 Exit Sub
End If

' Get the appointment in the meeting
Dim oAppt As AppointmentItem
Set oAppt = oRequest.GetAssociatedAppointment(True)

' Send a decline response
Dim oResponse
 Set oResponse = oAppt.Respond(olMeetingDeclined, True)
 oResponse.Send

' Lastly, delete the message
oRequest.Delete
End Sub

Sub AutoAcceptMeetings(oRequest As MeetingItem)

' If its not a meeting, we don't process
If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then
 Exit Sub
End If

' Get the appointment in the meeting
Dim oAppt As AppointmentItem
Set oAppt = oRequest.GetAssociatedAppointment(True)

' Send an accept response
Dim oResponse
 Set oResponse = oAppt.Respond(olMeetingAccepted, True)
 oResponse.Send

' Lastly, (optionally) delete the message
'oRequest.Delete
End Sub

For anything else you may want to do with the meeting, check the Outlook Visual Basic Developer Docs.

Automatically Decline and Delete or Accept and Delete Outlook 2010 Meetings

Comments