outlook adressbuch anzeigen um e-mail adresse auszuwählen

[KevSoldier5]

Habe das selbe Problem !

Hat jemand eine Idee ?

[baumina]

Wie weit bist du schon gekommen? Wo klemmts genau? Du kannst auch gerne ein Stück deines Quellcodes posten, dann können wir sicher besser helfen.

[KevSoldier5]

procedure TForm1.bGetEmailClick(Sender: TObject);
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);
cbAdressen.Items.Add(Contact.FirstName + ' ; ' + Contact.Email1Address);
end;
outlook := UnAssigned;
end;


Bekomme die Vornamen von den Kontakten welche local sind und welche am Exchange Server sind.
Jedoch erhalte ich die E-Mail Adressen nur von den lokalen. Bei denen vom Exchange Server ist das E-Mail Feld immer leer.

Habe es auch schon mit "Contact.EmailDisplayName" versucht, jedoch ohne Erfolg...

[baumina]

Hier sind die Felder beschrieben, evtl. befindet sich die Mailadresse in einem anderen Feld.
http://msdn.microsoft.com/en-us/libr...roperties.aspx