Hallo,
ich versuche mit folgendem Code (von den Schweizern) die Adressen von Outlook 2010 auszulesen:
Delphi-Quellcode:
...
try
Outlook := GetActiveOleObject('
Outlook.Application');
except
try
Outlook := CreateOleObject('
Outlook.Application');
except
MessageDlg('
MS Outlook konnte nicht gestartet werdem!', mtError,
[mbOK], 0);
Exit;
end;
end;
OutlNS := Outlook.GetNameSpace('
MAPI');
Folder := OutlNS.GetDefaultFolder(OL_FOLDER_CONTACTS);
ItemColl := Folder.Items;
j := ItemColl.Count;
for i:=1
to j
do
begin
Contact := ItemColl.Item(j);
try
ar.organisation := Contact.CompanyName
except
Continue;
end;
// um Fehler abzufangen, falls Kontakt eine Verteilerliste ist
ar.lastname := Contact.LastName;
ar.firstname := Contact.FirstName;
...
Allerdings bekomme ich z. B. bei HomeAdressStreet die Fehlermeldung: Die Methode 'HomeStreetAdress' wird vom Automatisierungsobjekt nicht unterstützt. Weiß jemand Rat?
Viele Grüße ...