Auslesen von Outlook-Kontakten (Outlook 2010)

[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.