If you prefer to snooze the reminders in your Outlook, sometimes, you may miss the important items. This article will teach you how to prevent yourself from snoozing the reminders of significant items.
As you can see, in Outlook, when a reminder pops up, there is a “Snooze” feature in the dialog box, which permits you to suspend the reminder and let it warn you later. More often than not, for most users, if they are pretty busy when reminder alerts, they will select to snooze this reminder. However, sometimes, it is due to this action that some vitally important items will be missed. Therefore, before snoozing a reminder, you had better confirm that the item which this reminder responds to is not urgent or crucial. Thus, here we will teach you how to use VBA to let Outlook auto check whether the item is important or not when you snooze a reminder. Read on to get the detailed steps and VBA codes.
Get Confirmation Before Snoozing the Reminders of Important Items
- In the first place, start your Outlook program.
- Then press “Alt + F11” key buttons in the main Outlook window.
- Next in the popup Outlook VBA editor, open the “ThisOutlookSession” project window.
- Subsequently, copy and paste the following VBA codes.
Public WithEvents objReminders As Outlook.Reminders Private Sub Application_Startup() Set objReminders = Outlook.Application.Reminders End Sub Private Sub objReminders_Snooze(ByVal ReminderObject As Reminder) Dim objSourceItem As Object Dim strItemType As String Dim dNextReminder As Date Dim strPrompt As String Dim nWarning As Integer 'Get the source item which the reminder corresponds to Set objSourceItem = ReminderObject.Item 'Check whether the item is important or not If (objSourceItem.Importance = olImportanceHigh) Or (InStr(LCase(objSourceItem.Subject), "important") > 0) Then strItemType = Replace(TypeName(objSourceItem), "Item", "") dNextReminder = ReminderObject.NextReminderDate strPrompt = "You just snoozed the reminder for " & strItemType & ": " & objSourceItem.Subject & ", which was originally set to " & FormatDateTime(dNextReminder) & ". Do you really want to snooze this reminder? " & vbCrLf & vbCrLf & "Click " & Chr(34) & "No" & Chr(34) & " to display this item to deal with it NOW!" nWarning = MsgBox(strPrompt, vbYesNo + vbExclamation + vbDefaultButton2, "Warning for Snoonzing Important Reminder") If nWarning = vbNo Then objSourceItem.Display End If End If End Sub
- After that, sign this code.
- Later change your Outlook macro settings, permitting signed macros.
- Eventually, restart your Outlook program to activate the new VBA project.
- From now on, every time you snooze the important reminders, you will get a warning, like the following screenshot:
Get Rid of Annoying Troubles in Outlook
As Outlook is error prone, in order to avoid vexing Outlook troubles, you should keep well-prepared. For instance, you have to make regular backups for your PST data. Moreover, so as to effectively fix Outlook issues, you should keep a powerful repair tool in vicinity, such as DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover mdf and outlook repair software products. For more information visit www.datanumen.com