Sometimes, you may want to remove all the reminders in specific time interval for some reasons. Thus in this article, we will teach you an effective method to quickly remove them in batches.
In your Outlook, for some reasons, you may need to remove the reminders which are scheduled in a specific time interval. For example, maybe you have forgotten to dismiss the reminder when it alerts the first time, more and more overdue reminders are accumulated in your Outlook, which will pop up from time to time. That is considerably vexing. In this case, you must hope to kill them. Of course, apart from the overdue reminders, sometimes, you may also wish to delete the future reminders for some reasons. For instance, you’ll go for a vacation, thus the reminders occurring in the vacation are no longer needed.
All in all, at times, you will need to remove the reminders in specific time interval. If you select to find and remove them, it will be a pretty cumbersome and tedious task. Therefore, in the followings, we will introduce you a much faster tip, which is using Outlook VBA. Now read on to get the detailed steps and VBA codes.
Batch Remove All Reminders in a Specific Time Interval
- In the first place, you should start your Outlook program.
- Then in the main Outlook window, press “Alt + F11” key shortcuts.
- Next you will successfully enter the Outlook VBA editor.
- Subsequently, you should open a module which are not in use or insert a new module directly.
- After that, copy and paste the following codes into such a module.
Sub RemoveRemindersinSpecificTimeInterval() Dim objReminders As Outlook.Reminders Dim objReminder As Outlook.Reminder Dim dSpecificTime As Date Dim objItem Set objReminders = Outlook.Reminders 'The following line refers to 1 day since the current time dSpecificTime = DateAdd("d", 1, Now) For Each objReminder In objReminders If objReminder.NextReminderDate <= Format(dSpecificTime, "ddddd h:nn AMPM") Then Set objItem = objReminder.Item objItem.ReminderSet = False objItem.Save End If Next End Sub
- About “dSpecificTime”, you can also replace “Now” with a specific date or time, like dSpecificTime = DateAdd(“m”, 1, 10-4-2017), or dSpecificTime = DateAdd(“h”, 2, 10-4-2017 8:30AM).
- Moreover, if you want to use a date range, you should specify the start date and end date. You can replace the lines related to “dSpecificTime” with the following lines:
Dim dStartDate As Date Dim dEndDate As Date ‘You can change the specific dates as per your needs dStartDate = "10-4-2017" dEndDate = "12-4-2017" If (objReminder.NextReminderDate >= Format(dStartDate, "ddddd h:nn AMPM")) And (objReminder.NextReminderDate <= Format(dEndDate, "ddddd h:nn AMPM")) Then
- After pasting the codes, you should ensure that your Outlook permits macros, so you have to change your Outlook macro security level to low.
- Finally click the “Run” icon in the toolbar. After the macro finishes running, all the reminders in the specific time interval will be removed at once.
Escape from Painful PST Data Loss
Since Outlook PST file is vulnerable, if you have a lot of valuable data in your PST file, you had better make some precautions to avoid the vexing PST data loss. For instance, you should build the habit of backing up PST file on a regular basis. In addition, you are better off getting hold of a proven fix tool, such as DataNumen Outlook Repair, which can help you to extract maximum data from the corrupted Outlook PST file.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair SQL Server and outlook repair software products. For more information visit www.datanumen.com