How to Get Confirmation Before Snoozing the Reminders of Important Items in Outlook

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

1. In the first place, start your Outlook program.
2. Then press “Alt + F11” key buttons in the main Outlook window.
3. Next in the popup Outlook VBA editor, open the “ThisOutlookSession” project window.
4. 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

5. After that, sign this code.
6. Later change your Outlook macro settings, permitting signed macros.
7. Eventually, restart your Outlook program to activate the new VBA project.
8. 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.

Author Introduction:

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