Auslesen von Outlook-Kontakten (Outlook 2010)

[RWarnecke]

Wenn ich es richtig verstanden habe rufst Du auch nur den KonatkteOrdner in Deinen Kontakten ab (olFolderContacts). Ich habe diese Seite gefunden, vielleicht hilft Dir die ja weiter.

Edit:
Ungetestet könnte eventuell das hier funktionieren :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, ContactFolder, Contact: OleVariant;
  i: Integer;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');

  Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
  ContactFolder := Contacts.Folder.GetFirst;
  for i := 1 to Contacts.Items.Count do
  begin
    Contact := Contacts.Items.Item(i);
    {now you can read any property of contact. For example, full name and
    email address}
    ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>');
  end;

  Outlook := UnAssigned;
end;