Hallo,
ich "pushe" dieses Thema noch einmal hoch, da es hierfür keine Lösung gab und nun bei mir genauso diese Fehlermeldung erscheint (Die Methode "CompanyName" wird vom Automatisierungsobjekt nicht unterstützt.).
Genauer gesagt kommt diese Meldung nicht bei mir, sondern bei einem Anwender.
Obwohl auch ich W7 und Outlook 2007 verwende, läuft bei mir die Procedure erfolgreich durch.
Delphi-Quellcode:
...
Const
olFolderContacts = $0000000A;
Var
Outlook : OleVariant;
ContactFolder : OleVariant;
ListContact : OleVariant;
NameSpace : OleVariant;
i : Integer;
begin
NameSpace:=Outlook.GetNameSpace('
MAPI');
ContactFolder:=NameSpace.GetDefaultFolder(olFolderContacts);
_StrList.Clear;
for i:=1
to ContactFolder.Items.Count
do
begin
ListContact:=ContactFolder.Items.Item(i);
_StrList.Add(ListContact.CompanyName);
_StrList.Add(Trim(ListContact.FirstName+'
'+ListContact.LastName));
_StrList.Add(ListContact.BusinessAddressStreet);
...
end;
...
end;
...
Gibt es dafür eine Lösung oder vielleicht besser, kann man die Adressbuchdaten von Outlook über einen anderen Weg (außer über
OLE) exportieren bzw. importieren?
Grüße