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