Kontakte aus MS OUTLOOK löschen

[Computersklave]

Hallo,

ich möchte gerne einzelne bzw. auch alle Kontakte aus MS Outlook löschen.
Das auslesen und eintragen funktioniert wunderbar, nur das Löschen?

Ebenso ist das mit dem suchen.

(Delphi 5 Prof)

Wer kann helfen?

[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

[Computersklave]

Danke Dir Helld_River.

Zitat:

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 !

Bei Outlook 2000 kommt keine Meldung. Betrifft dann wohl sicher erst Outlook XP.
Ist aber sicher nicht so schlimm.

[Helld_River]

Hi !
Es betrifft auch Outlook 2000 ab ServicePack 2 !!!
Nicht so schlimm ist so eine Sache:

Ich hab eine Anwendung, über welche unsere Kunden Mails (über Outlook) verschicken können. Bei jeder Mail kommen jetzt zuerst 2 Sicherheitshinweise, welche man mit einem Click erst bestätigen muss und abschliessend beim versand der Mail kommt noch mal eine Meldung, welche man ebenfalls erst bestätigen muss, aber erst, wenn man 5 sek. gewartet hat.

Jetzt sagst du wahrscheinlich, na ja, das geht ja noch.

Stell dir aber vor,der Kunde möchte seine 1000 (oder aber auch mehr) Kunden mit einer Mail informieren. Da braucht der alleine knapp 1,5 Stunden, um den letzten Hinweis zu bestätigen !

Gruß, Helld