Auslesen von Outlook-Kontakten (Outlook 2010)

**Bolt Thrower**

Hallo liebe DP-Mitglieder,

in meinem Programm verwende ich die folgende Prozedur von den Schweizern (

http://www.swissdelphicenter.ch/de/showcode.php?id=897), um meine Outlook-Kontakte auszulesen:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

const

  olFolderContacts = $0000000A;

var

  outlook, NameSpace, Contacts, Contact: OleVariant;

  i: Integer;

begin

  outlook := CreateOleObject('Outlook.Application');

  NameSpace := outlook.GetNameSpace('MAPI');

  Contacts := NameSpace.GetDefaultFolder(olFolderContacts);

  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;

Nun ist es so, dass ich in meinen Outlook-Kontakten zunächst den Ordner "Meine Kontakte" vorfinde, unter dem sich die Kontakte "Kontakte", "Vorgeschlagene Kontakte" und "Xing" befinden, also drei verschiedene Kontakt-Kategorien (zur Verdeutlichung habe ich die Struktur im "jpg"-Format an dieses Thema angehängt). Wenn ich die oben genannte Prozedur verwende, werden nur die Kontakte aus "Kontakte", also der ersten Kategorie ausgelesen.

Wie kann ich die Prozedur abändern, dass die Kontakte aus "Kontakte", "Vorgeschlagene Kontakte" und "Xing" ausgelesen werden?

Schon einmal vielen Dank im Voraus und Grüße,

Bolt Thrower

Auslesen von Outlook-Kontakten (Outlook 2010)

Auslesen von Outlook-Kontakten (Outlook 2010)

Forumregeln