Elemente in Outlook löschen

[micsie]

Hallo,

ich möchte in Outlook mit einer Funktion alle Termine aus dem Kalender löschen, dazu verwende ich folgenden Code:

Code:

const
  olFolderKalender = $0000000A;
var
  Outlook, NameSpace, Kalender, Termin: OleVariant;
  i: integer;
begin
  Outlook := CreateOleObject('Outlook.Application');
  NameSpace := Outlook.GetNameSpace('MAPI');
  Kalender := NameSpace.GetDefaultFolder(olFolderCalendar);
  try
    for i := 1 to Kalender.Items.Count do
    begin
      Termin := Kalender.Items.Item(i);
      Termin.delete;
    end;
  end;
  Outlook := UnAssigned;
end;

Dabei wird jedoch nur jeder zweite Termin gelöscht, anschließende erhalte ich eine Fehlermeldung: Array-Index außerhalb des zulässigen Bereichs. Was muss ich ändern?

mfg micsie