Add Reminders To Outlook Appointments

A Reminder
Creative Commons License photo credit: Andrew Coulter Enright

If like me your Outlook calendar can get a bit hectic and others can add meetings to your calendar sometimes you end up simply “reacting” to your schedule and jumping from one appointment to the next on “autopilot”. It’s at times like these that Outlook’s ability to create a reminder can save your dignity.

However, sometimes the meeting organiser does not set a reminder. I have created an Outlook macro that will look for incoming meeting requests, without a reminder set and give you the option to set a reminder.

Add the following macro code to your “ThisOutlookSession” project

Private WithEvents Items As  Outlook.Items

Private Sub  Application_Startup()
 Dim Ns As  Outlook.NameSpace
 Set Ns =  Application.GetNamespace("MAPI")
 Set Items =  Ns.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As  Object)
 On Error Resume Next
 Dim  Appt As Outlook.AppointmentItem
 If TypeOf Item Is  Outlook.AppointmentItem Then
  Set  Appt = Item
  If Appt.ReminderSet =  False Then
   If MsgBox("NO REMINDER IS SET! Do you want to add one?", vbYesNo) = vbYes  Then
    Appt.ReminderSet =  True
    Appt.ReminderMinutesBeforeStart =  15
    Appt.Save
   End If
  End  If
 End If
End Sub

NOTE: If you copy and paste the code above into your editor, please re-type any quotation characters otherwise you will get compilation errors due to “smart quotes”.

Leave a Reply