Remove Outlook Appointments with VBA

[PeDa]

I am trying to remove Outlook appointments with a specific subject using VBA:

Set MyApp = CreateObject("Outlook.Application")
Set MyNS = MyApp.GetNamespace("MAPI")
Set MyFolder = MyNS.GetDefaultFolder(olFolderCalendar)
Set MyItems = MyFolder.Items
MyTotal = MyItems.Count
For i = 1 To MyTotal
  If (Left(MyItems.Item(i).Subject, 3) = "UA:") Then
    MyItems.Item(i).Delete
  End If
Next i

This generates the following error message half way through the removal process (tranlated from Dutch original):

Run-time error '-382599159 (e9320009)'
The limits of the matrix index have been exceeded

Any suggestions welcome.

 

[TonyJollans]

When you delete items from a collection you generally need to work from the end backwards because deleting items changes the collection,

Try changing the loop control to

For i = MyTotal to 1 Step -1

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

Professional Office Developers Association

 

[PeDa]

Tony,

That did the trick. Many thanks; why didn't I think of that myself ;-((.

Peter