读取OutLook地址薄

Question

procedure TForm1.Button1Click(Sender: TObject); 
const 
  olFolderContacts = $0000000A; 
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);
    {now you can read any property of contact. For example, full name and
    email address}
    ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>');
  end;  Outlook := UnAssigned; 
end; 上面代码是我从网上找的，运行时报错：
Method 'FullName' Not Supported by Automation object.
请问是什么原因？
谁有好的方法吗？谢谢

Answer 1

Contact := Contacts.Items.Item(i);改成
Contact := Contacts.Items(i);就可以了