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”.