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
<span style="font-family: Arial; font-size: x-small;">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
</span><span style="font-family: Arial; font-size: x-small;">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
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”.