Deleting appointments outlook via VBA Excel

[Ronaldjm]

Hi,

Se code below text.
As I am running below mentioned script it is deleting every time approxm half the appointments
So 1st time running example 100 appointments.
second time running script 50 appointments deleted
third time 15 etc etc

So it looks as I am skipping one extra appointment for deleting...

Please advice


For Each objAppointment In objFolder.Items
If objAppointment.Categories = "test vba" Then
objAppointment.Delete
lngDeletedAppointements = lngDeletedAppointements + 1

End If
Next

 

[Brombrough]

Hi Ronaldjm,

When deleting records it always advisable to do it in reverse order. start at last and end with the first.

Try something like

[FONT=&quot]You will need to use a down loop[/FONT]
[FONT=&quot]for i = Items.Count to 1 step -1[/FONT]
[FONT=&quot] Items(i).Delete[/FONT]
[FONT=&quot]next[/FONT]

 

[John_w]

Try deleting them in reverse order:

    Dim i As Long
    For i = objFolder.Items.Count To 1 Step -1
        Set objAppointment = objFolder.Items(i)
        If objAppointment.Categories = "test vba" Then
            objAppointment.Delete
            lngDeletedAppointments = lngDeletedAppointments + 1
        End If
    Next