Set a reminder when accepting a meeting request

Last reviewed on December 21, 2012

Once request I hear often is for the ability to open a meeting request that was just added to the calendar after accepting the request in the Inbox.

After I receive a meeting invitation I would like to be able to modify the reminder timer then accept the invitation to avoid having to accept the meeting, THEN (remember when it was for and) open the event from my calendar and modify the reminder timer.

Meeting request and associated appointment in conversation viewIf you are using Outlook 2010 or 2013 conversation view with all folders enabled, the associated meeting request will be in the Inbox with the meeting request. You can open it, change the reminder and add categories before accepting it.

Or you can use a macro to open the associated appointment, set the fields, and accept the meeting.

This macro is based on the autoaccept a meeting using rules macro.

Set a reminder on the associated meeting macro

Press Alt+F11 to open the VBA editor. Right click on Project1 and choose Insert > Module. Paste the code below into the module and edit as needed. Add a macro button on the toolbar or ribbon. Don't forget to change your macro security so the macro will run. Screenshots and more details can be found at How to use the VBA Editor.

Select the meeting request in the Inbox and run the macro. As written, the macro sets a remind beforehand time of 1080 minutes, adds a category to the meeting, and sets the busy status to OOF.

Public Sub ChangeMeeting()

Dim oRequest As MeetingItem
Dim oAppt As AppointmentItem


Set oRequest = Application.ActiveExplorer.Selection.Item(1)
If oRequest.MessageClass = "IPM.Schedule.Meeting.Request" Then
   Set oAppt = oRequest.GetAssociatedAppointment(True)
  
' set fields on the appt. 
With oAppt
       .ReminderMinutesBeforeStart = 1080
       .Categories = "Slipstick"
       .ReminderSet = True
       .BusyStatus = olOutOfOffice
       .Save ' use .Display if you want to see the appt. and set the reminder yourself
  End With
  
End If

' use this to autoaccept 
Dim oResponse
 Set oResponse = oAppt.Respond(olMeetingAccepted, True)
 oResponse.Send

'delete the request from the inbox
oRequest.Delete

End Sub

Written by

Diane Poremsky
A Microsoft Outlook Most Valuable Professional (MVP) since 1999 and involved in IT support since 1985, Diane is the author of several books and video training CDs and online training classes for Microsoft Outlook. You can find her helping people online in Outlook Forums as well as in the Microsoft Answers and TechNet forums.