How to Batch Change the Reminder Time of Multiple Appointments with Outlook VBA

If you frequently need change the reminder time of multiple appointments, this article will be considerably helpful to you. The method here will effectively save you from manually changing the reminder time one by one.

The previous article – “3 Steps to Create & Change Reminders for Calendar Items in Batches” has shared a method to bulk change many appointments’ reminder time. Yet, it still demands you to firstly change the view settings and then change one appointment’s reminder manually. Therefore, here we will introduce you a much more effective way. Here we will show the detailed steps and concrete VBA code. Hence, you don’t need to worry about having no knowledge about VBA. Just read on.

Batch Change the Reminder Time of Multiple Appointments

1. At the very beginning, start Outlook program.
2. Then, access VBA editor with reference to “How to Run VBA Code in Your Outlook“.
3. Next, copy and paste the following VBA code into an unused module.

Sub BatchChangeRemindersMultipleAppointments()
 Dim lReminderMinBeforeStart As Long
 Dim objSelection As Outlook.Selection
 Dim i As Long
 Dim objAppointment As Outlook.AppointmentItem
 
 'Enter the number of minutes the reminder should occur prior to the start of the appointment
 lReminderMinBeforeStart = InputBox("Enter the reminder minutes before start:", , "45")
 
 Set objSelection = Outlook.ActiveExplorer.Selection
 
 For i = objSelection.Count To 1 Step -1
 If TypeOf objSelection.Item(i) Is AppointmentItem Then
 Set objAppointment = objSelection.Item(i)
 
 'Enable the reminder
 If objAppointment.ReminderSet = False Then
 With objAppointment
 .ReminderSet = True
 .Save
 End With
 End If
 
 With objAppointment
 .ReminderMinutesBeforeStart = lReminderMinBeforeStart
 .Save
 End With
 End If
 Next
 
 'Prompt you of "Complete"
 MsgBox "Complete!", vbInformation + vbOKOnly
End Sub

4. After that, add this macro to ribbon or Quick Access Toolbar.
5. Finally, you can try it.

• To begin with, select the appointments that you want.
• Then, click the macro button.
• Next, in popup dialog box, enter the number of reminder minutes before appointment start.
• Now, you can check the reminder time of the selected appointments, which have been modified to your desire.

Eliminate Outlook Errors

If you frequently encounter miscellaneous errors in Outlook, you ought to make some robust measures. For instance, you need to back up your Outlook PST file at once, scan the file for viruses and killing them, learn how to effectively employ Scanpst to fix PST issues and get hold of an external fix tool, such as DataNumen Outlook Repair. It will come in handy when you encounter troublesome problems which cannot be coped with by the inbox repair tool.

Author Introdzction:

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