Fehlermeldung beim Zugriff auf die Outlook-Kontakte unter Outlook 2003

[Crowbar]

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