Auslesen von Outlook-Kontakten (Outlook 2010)

[Bolt Thrower]

Hallo Jumpy,

danke für Deinen Hinweis, "Folders" war tatsächlich korrekt, leider werden die Kontakte aus "Vorgeschlagene Kontakte" und "Xing" dennoch nicht aufgelistet.

Grüße,

Bolt Thrower

[Jumpy]

Sprichst du sie denn auch nacheinander an?

Delphi-Quellcode:

ContactFolder := Namespace.Folders.item("Meine Kontakte").Folders.item("Kontakte") 
for i := 1 to ContactFolder.Items.Count do
  begin
    Contact := ContactFolder.Items.Item(i);
    ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>');
  end;


ContactFolder := Namespace.Folders.item("Meine Kontakte").Folders.item("Vorgeschlagene Kontakte") 
for i := 1 to ContactFolder.Items.Count do
  begin
    Contact := ContactFolder.Items.Item(i);
    ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>');
  end;

//usw.

[Bummi]

ich hatte unter http://www.delphipraxis.net/167694-e...-kontakte.html
mal einen Source hochgelegt, vielleicht kannst Du damit etwas anfangen?

[Bolt Thrower]

Danke für den Sourcecode, Bummi, ich kann mir vorstellen, dass er genau das ist, was ich brauche. Werde ich auf jeden Fall testen.

Grüße,

Bolt Thrower