Kontakte aus MS OUTLOOK löschen

[Helld_River]

Hi !
Also, ich benutze folgenden Code:

Delphi-Quellcode:

    try
      OutlookApp1.Connect;   
      aMAPI:=OutlookApp1.GetNamespace('MAPI');
      i := aMAPI.GetDefaultFolder(olFolderContacts).Items.count;
      ProgBar1.Max:=i;
      Screen.Cursor:=crHourGlass;
      for x := 1 to i do
      begin
        aMAPI:=OutlookApp1.GetNamespace('MAPI');
        aContact := aMAPI.GetDefaultFolder(olFolderContacts).Items.GetFirst;
        aContact.Delete;
        ProgBar1.StepIt;
        Application.ProcessMessages;
      end;
      ShowMessage('Alle Kontakte wurden aus Outlook gelöscht !');
    finally
      OutlookApp1.Disconnect;
      Screen.Cursor:=crDefault;
    end;

Zur Info: In den neueren Versionen von Outlook gibt es immer eine Sicherheitsabfrage, die man nicht umgehen kann. Zumindest ist mir noch nichts diesbezüglch bekannt !

Gruß, Helld