ok, das klappt dann mittlerweile. Nächste Problem ist nun, dass er nicht auf meine Kontakte zugreifen muss, sondern auf die von Exchange.
Hat dafür auch noch jemand eine Idee?
Auf Exchange und das Adressbuch kann ich mittlerweile zugreifen, aber ich bekomme nur den Namen, wie komme ich da noch an die email-adresse?
Delphi-Quellcode:
outlook := CreateOleObject('
Outlook.Application');
AddrBu:=Outlook.GetNamespace('
MAPI').AddressLists.Item(adressbuch).AddressEntries;
For i := 1
to AddrBu.Count
Do
Begin
AddrEntry:=AddrBu.Item(i);
ShowMessage(addrEntry.
Name+'
, ' );
end;
Outlook := UnAssigned;
/*edit*/
ok, so bekomme ich zwar nur den Namen, aber das versenden mit dem Namen funktioniert trotzdem