How to Auto Dismiss or Snooze Popup Reminders after Several Minutes in Outlook

Sometimes, you are so busy that the popup Outlook reminders are always left aside. At that time, you’ll wish that Outlook can auto dismiss or snooze the reminder after it has displayed for several minutes. Now this article will teach you to realize it.

Generally, Outlook reminder will be closed completely until you select “Dismiss” or “Snooze” in the popup Reminder dialog box. However, at times, you may be too busy to deal with the reminder at once. In such cases, maybe you will hope that Outlook can auto dismiss or snooze the reminder after several minutes. Although Outlook has no such native function, you still can easily achieve it with VBA. Now read on to get the detailed steps and concrete code.

Auto Dismiss or Snooze Popup Reminders after Several Minutes

Auto Dismiss or Snooze Popup Reminders after Several Minutes

  1. To start with, launch your Outlook program as usual.
  2. Then, in the following Outlook window, you ought to tap on the “Alt + F11” keys.
  3. Next, you will enter the “Microsoft Visual Basic for Applications” window.
  4. Subsequently, you have to locate the “ThisOutlookSession” project and open it.
  5. Later, you need to copy the piece of VBA code into this project window.
Public WithEvents objReminders As Outlook.Reminders

Private Sub Application_Startup()
   Set objReminders = Outlook.Application.Reminders
End Sub

Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder)
 
    'Wait 30 seconds
    'You can change as per your needs
    Wait (30)
 
    If ReminderObject.IsVisible = True Then
       'Dismiss the current reminder
       ReminderObject.Dismiss
       'To snooze the current reminder, use the following line instead:
       'ReminderObject.Snooze(5) ==> snooze 5 minutes
    End If
End Sub

'Delay seconds
Function Wait(nSeconds As Integer) As Boolean
    Dim dCurrentTime As Date
 
    dCurrentTime = Now
 
    Do Until DateAdd("s", nSeconds, dCurrentTime) <= Now
       DoEvents
    Loop
End Function

VBA Code - Auto Dismiss or Snooze Popup Reminders after Several Minutes

  1. After that, you had better sign this code. Just click the ‘Tools” button in the toolbar and choose “Digital Signature” from the drop down list. In the popup dialog box, follow the onscreen instructions to complete it.Sign this code
  2. Then, you can exit the current window and proceed to change your Outlook macro settings. Go to “Trust Center Settings” to enable signed macros.
  3. Finally you can restart your Outlook application to activate this new macro.
  4. Since then, every time after a reminder pops up, if you’ve left it aside for the predefined minutes or seconds, Outlook will auto dismiss or snooze it as per your code.

Keep an Eye out for Outlook Corruption

Many users are pretty painful for Outlook’s vulnerability. Actually, with adequate precautions, you indeed can reduce the likelihood of such occurrences, such as blocking suspicious emails, keeping closing Outlook properly and so on. Also, it is suggested to prepare an outstanding fix tool, like DataNumen Outlook Repair. It is able to fix Outlook issues in an instant.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupted sql and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.