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

[ustra]

Hi,

schreib mal anstelle von

Delphi-Quellcode:

for i := 1 to Kalender.Items.Count do

Delphi-Quellcode:

for i := 0 to Kalender.Items.Count-1 do

Ulrich

[SirThornberry]

ganz simple, du musst immer index0 löschen. denn wenn du das erste löschst rücken die anderen ja nach so das index 0 wieder existiert. und zu dem fehler das es außerhalb des gültigen bereichs ist das kommt weil ja wenn das erste element gelöscht ist nicht mehr so viel elemente da sind... oder du machst downto dann klappts auch... aber performanter ist immer das 0te löschen

[micsie]

Vielen DAnk, jetzt funktioniert es bestens

mfg micsie

[WizoHulk]

Hallo

kann das sein, das es beim Löschen von Terminen es alles ziemlich träge ist?
Oder geht das bei dir Flott?