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