For Next loop recursively

[dinotom]

How does one run a loop backwards, ie start from the end and work up

This code which deletes Appointments from my Outlook;

For Each objAppt In objItemsInDateRange
         'Debug.Print objAppt.Body
            objAppt.Delete
Next

works perfectly fine EXCEPT it doesnt delete every item. I have to run it many times to get the number of items to 0. It needs to start at the bottom and go item by item up to the top. Should I be using Do While? ie
Do While objItemsInDateRange > 0 ?

 

[Norie]

What is objItemsInDateRange exactly?

Is it some sort of collection?

If it is and it has a count property then you might be able to loop backwards through it, which is the usual way to hand this sort of thing.

 

[dinotom]

The solution is

 iCount = objItemsInDateRange.Count 
   'recursively loop through the items and delete all appointment items
    For i = iCount To 1 Step -1
      Set objCurItem = objItemsInDateRange.Item(i)
      If TypeName(objCurItem) = "AppointmentItem" Then
         objCurItem.delete
      End If
    Next i