2 Quick Ways to Batch Delete All Future Occurrences of Multiple Recurring Outlook Appointments

If you would like to delete all future occurrences of many recurring appointments without impacting the past occurrences, you can refer to this article. Here we will introduce 2 methods to achieve it.

Perhaps you have created multiple recurring appointments without end dates in your Outlook calendar. However, after some occurrences of these appointments, you may think that they are no longer useful. Therefore, you want to delete all the future occurrences of the recurring appointments, namely preventing them from happening anymore. In fact, this can be realized simply by changing the end dates of the appointments’ recurrences. Here we will teach you 2 approaches.Batch Delete All Future Occurrences of Multiple Recurring Outlook Appointments

Method 1: Change End Dates of Recurrences of Appointments Manually

  1. At first, in the calendar, select and double click on a recurring appointment.
  2. Then, you will get a message prompting of whether to open this occurrence or the entire series.Open Series
  3. Next, in the appointment window, click on the “Recurrence” button.Recurrence
  4. After that, a new dialog box will pop up.
  5. In it, change “No end date” to “End by”, like the screenshot below.Change End Date
  6. Change the end date to today.
  7. Finally, return to the calendar. You can see that all the future occurrences of the selected recurring appointment have disappeared.Future Occurrences of A Recurring Appointment Disappear
  8. Now, change the end dates of the other recurring appointments one by one in the same way.

Method 2: Batch Change End Dates of Recurrences of Appointments via VBA

  1. At the beginning, access VBA editor by “Alt + F11”.
  2. Then, in the new window, copy the following VBA code into a module.
Sub BatchDeleteFutureOccurrences_MultipleRecurringApointments()
    Dim objSelection As Outlook.Selection
    Dim objAppointment As Outlook.AppointmentItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       For Each objAppointment In objSelection
           If objAppointment.IsRecurring = True Then
              objAppointment.GetRecurrencePattern.PatternEndDate = Now()
              objAppointment.Save
           End If
       Next
    End If
End Sub

VBA Code - Batch Change End Dates of Recurrences of Appointments

  1. After that, add this macro to Quick Access Toolbar, depending on the article – “How to Run VBA Code in Your Outlook“.
  2. Eventually, you can try now.
  • First off, select several recurring appointments in the calendar.
  • Then, click the macro button in Quick Access Toolbar.Run Macro on Selected Appointments
  • When macro completes, the future occurrences of the selected recurring appointments have been gone, shown as the image below.All Future Occurrences of Multiple Recurring Appointments Disappear

Protect Outlook Data against Hazards

Unquestionably, no one is ready to suffer Outlook damage. Therefore, you have to make some precautions, including regular backup, handle your Outlook file with care and a robust Outlook fix tool, like datanumen Outlook repair and so on.

Author Introduction:

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