請問如何用Delphi寫一個程式是用來抓取outlook內連絡人的資料…如姓名、電話、郵件等資料呢？ 活到老，學到老 天天都有新鮮事 若有任何問題，歡迎寫信給我 e-mail: edward@coolboom.com.tw

看這篇行不行:

var
  OutlookApp, Mapi, Contacts: Variant;
  k: integer;
  EMailAddress: string;
  FullName: string;
begin
  // Get the Outlook Application object
  OutlookApp := CreateOleObject('Outlook.Application');      // Get the MAPI NameSpace object.
  Mapi := OutlookApp.GetNameSpace('MAPI');      // set the folder
  Contacts := Mapi.Folders('Personal Folders').Folders('Contacts);      // process the list
  for k := 1 to Contacts.Items.Count do
  begin
    // process the contact, fields are defined in "ContactItem Object" in the VBA file
    EMailAddress := Contacts.Items[k].Email1Address);
    FullName := Contacts.Items[k].FullName);
  //etc.
  //output as desired
  end;      // Closeout
  OutlookApp := Unassigned;
  Mapi := Unassigned;
  Contacts := Unassigned;

-- QBQ: 我能做什麼？

在Outlook中文版中 // set the folder Contacts := Mapi.Folders('Personal Folders').Folders('Contacts); 要改成 Contacts := Mapi.Folders('個人資料夾').Folders('連絡人'); 才可以