Recurrence: delete older occurrences / change earliest start time

Status
Not open for further replies.

Wigi

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Outlook.com (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:

Code:
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
        Next
    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
        .Save       
    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 ?

Capture.PNG
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
J Recurrence pattern blank on recurring meetings? Using Outlook 4
C Outlook 2013 Task Recurrence - Third Friday After the Second Tuesday Using Outlook 2
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
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
D Delete Outlook emails from MS server Using Outlook 9
K How can I delete an e-mail from Outlook Using Outlook 1
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
M Shift Delete doesn't delete email from server Using Outlook 3
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
J Quick steps delete original email and move reply/sent email to folder Using Outlook 2
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Automatically delete messages in the synchronization folder Outlook VBA and Custom Forms 3
O How to delete a forum post? Using Outlook 4
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
C Outlook 2016 Unable to delete Gmail IMAP calendar Using Outlook 2
S Outlook 2016 dont delete inbox item Using Outlook 0
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
R Outlook 365 update sets delete from server flag Using Outlook 1
S Outlook 2016 A Shortcut to recall and delete and sent message. Using Outlook 1
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

Similar threads

Back
Top