Recurrence: delete older occurrences / change earliest start time


New Member
Outlook version
Outlook 2016 32 bit
Email Account (as MS Exchange)
Hello all,

I have a recurring appointment, Thursday every other week there's cleaning aid ;-)
Once an instance of the series has passed, I would like to change the start date of the recurring pattern to start 2 weeks later.
As in: I want to clear older occurences of the pattern and 'start' 2 weeks later, everytime.

I found a similar thread but no replies there: Appointment Delete/Change Recurrence

The code below works until the .Save command. There I get the error:

Sub Clear_Thuishulp_Instance()

    Dim objSelection          As Outlook.Selection
    Dim objAppointment        As Outlook.AppointmentItem
    Dim o                     As Outlook.AppointmentItem

    Set objSelection = Outlook.Application.ActiveExplorer.Selection

    If Not (objSelection Is Nothing) Then
        For Each objAppointment In objSelection
            If objAppointment.Class = 26 Then    '26 = olAppointment
                If objAppointment.IsRecurring Then
                    If objAppointment.Subject = "Thuishulp" Then
                        Set o = objAppointment
                        Exit For
                    End If
                End If
            End If
    End If

    If o Is Nothing Then
        MsgBox "Recurring 'Thuishulp' appointment not found. Please select it first."
        Exit Sub
    End If

    With o
        .GetRecurrencePattern.PatternStartDate = .GetRecurrencePattern.PatternStartDate + 14
    End With

End Sub

Also, visually in my calendar, I don't see the pattern shifting to 2 weeks later.

What am I missing please ?

Similar threads
Thread starter Title Forum Replies Date
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
G Arggh, weakness of reminder for every Task recurrence Using Outlook 0
A Custom form not showing when recurrence is set for a meeting Using Outlook 0
C Find all deleted recurrence appointments Outlook VBA and Custom Forms 4
skylark53 Advanced recurrence problem Using Outlook 2
M Clear custom date field after recurrence Outlook VBA and Custom Forms 0
M Recurrence and custom fields Outlook VBA and Custom Forms 0
Commander1 Task Recurrence Settings Using Outlook 3
Jennifer Murphy Regenerate recurrence not working Using Outlook 3
Commodore Recurrence for N times, and one gets cancelled Using Outlook 3
A Appointment recurrence reset to 'end after 25 occurrences' Using Outlook 1
A Reminder for an overdue task with recurrence is disabled without user’ Outlook Wishlist 4
J Outlook Appointment recurrence setting Outlook VBA and Custom Forms 4
H Creating yearly recurrence appointment Outlook VBA and Custom Forms 5
H Creating recurrence appointment Outlook VBA and Custom Forms 2
W Change Start Time in Recurrence of an Appointment Outlook VBA and Custom Forms 2
W How do I calculate the next recurrence date? Outlook VBA and Custom Forms 1
V Get selected option in recurrence range group Outlook VBA and Custom Forms 4
T Outlook 2010 How to Delete “Orphaned” TO DO? ( Not on Exchange Server) Using Outlook 6
P How did hacker cause link to delete and archive containing email? Using Outlook 6
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
J To delete the draft email Using Outlook 2
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 14
A Attachments.Delete Outlook VBA and Custom Forms 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
R Expand VBA Permanent Delete Code Outlook VBA and Custom Forms 6
M Delete headers in Inline reply Outlook VBA and Custom Forms 5
N VBA to delete duplicates by message-id on common pst for 2 or more emails Outlook VBA and Custom Forms 0
S How can I delete all copies of a given companies logo graphic from all my emails at once? Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
D after delete mail, open the next one Outlook VBA and Custom Forms 0
O Delete duplicate emails - subscription notifications Using Outlook 5
F Delete/create/reset Exchange mailbox on Using accounts in Outlook 3
L Email Read and Delete Outlook VBA and Custom Forms 4
H Delete Calendar Entries in Using Outlook 2
D Delete Emails from Senders in Shared Mailbox Outlook VBA and Custom Forms 1
R How to delete Facebook Contacts folder in Outlook 365 Using Outlook 7
R VBA Code to permanently delete selected email Outlook VBA and Custom Forms 10
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5
C How to replace or delete first instance of sentence in mail body? Outlook VBA and Custom Forms 1
Z Can't delete IMAP folder Using Outlook 2
J Delete old emails Exchange Server Administration 1
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
T Delete Emails from search results Outlook VBA and Custom Forms 1
I Outlook 2013 How do I delete a Calendar? Using accounts in Outlook 1
N How to delete default folder "Contacts" (olFolderContacts) in a .pst file Using Outlook 8
O How to delete posts New Articles 1
B How to 'really' delete IMAP emails? Using Outlook 6
H Search and delete part of a link inside HTML body message Outlook VBA and Custom Forms 2
B Delete/replace old files and save new attachments Using Outlook 1

Similar threads