如何取得本機電腦的OutlookExpress的通訊錄，可以將這些資料放在TlistBox中？

C:\Documents and Settings\(使用者登入名稱)\Application Data\Microsoft\Address Book 檔名為 (使用者登入名稱).wab 小弟不知道 .wab 格式, 也不知道 MS 是否有公開 .wab 格式 (猜想沒有, MS 沒有這種習慣, 公開會不安全) 另一種方式是匯出成 .csv 檔案 剩下的您該會處理了吧 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

以我所知。它並沒有 ActiveX 可以讓你使用。 所以可能無法做到動態的同步吧。

引言: C:\Documents and Settings\(使用者登入名稱)\Application Data\Microsoft\Address Book 檔名為 (使用者登入名稱).wab 小弟不知道 .wab 格式, 也不知道 MS 是否有公開 .wab 格式 (猜想沒有, MS 沒有這種習慣, 公開會不安全) 另一種方式是匯出成 .csv 檔案 剩下的您該會處理了吧 ********************* 如果您滿意答案,請結案 *********************

大大你好，很感謝你的回應，可能是我的問題沒有描述的很清楚，我再重複一次我的問題： 就是我現在要用Delphi寫一隻程式，功能是讓使用者去處理資料庫裡的資料，並讓使用者選項是否要發送Email，如果要的話，希望能在ListBox中，讓User選擇自已的通訊錄的內容，所以才會想要詢問，是否有什麼方式能夠將通訊錄匯入程式的ListBox中？

您好: 到底下這個網址下載這個壓縮檔來試試 http://www.delphipages.com/edit/count.cfm?ID=2172 它有專用元件還有 Demo 另外 Outlook 的話參考這篇: http://www.torry.net/quicksearchd.php?String=outlook connect&Title=Yes -- hagar. 發表人 - hagar 於 2005/05/02 15:16:37

引言: 您好: 到底下這個網址下載這個壓縮檔來試試 http://www.delphipages.com/edit/count.cfm?ID=2172 它有專用元件還有 Demo 另外 Outlook 的話參考這篇: http://www.torry.net/quicksearchd.php?String=outlook+connect&Title=Yes -- hagar. 發表人 - hagar 於 2005/05/02 15:16:37

hagar大大你好，謝謝你的回覆，但在Install WinAddressBook.pas 時，會有以下錯誤訊息耶？

試過！完全可用。 可能 Package 沒裝好。

小弟在 Delphi 5 是可以安裝的 不知在您的 Delphi 6 是否不行 不行安裝的話, 試試用動態 create 的方式來使用: 1.先將壓縮檔內的檔案複製到要用的 project 的目錄下 2.uses 這裡加上 WindowsAddressBook 這個 unit 3.宣告一個 wab 變數, 型態為 TWinAddressBook, 例

var
  Form1: TForm1;
  wab: TWinAddressBook;

4.在 Form1 的 FormCreate 時 Create

procedure TForm1.FormCreate(Sender: TObject);
begin
  wab := TWinAddressBook.create(nil);
end;

5.按下 Button1 讀取通訊錄檔至 ListBox1 中

procedure TForm1.Button1Click(Sender: TObject);
begin
   wab.SetToDefaultAddressBook;
   wab.LoadFile;
   ListBox1.Items.AddStrings(wab.Contacts);
end;

6.點選 ListBox1, 將 ListBox1 中的聯絡人資料顯示在 Memo1 中

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   wab.GetPropertiesOf(ListBox1.Items[Listbox1.ItemIndex]);
   Memo1.Lines.Clear;
   Memo1.Lines.AddStrings(wab.properties);
end;

7.不要用了, 記得要 Free

procedure TForm1.FormDestroy(Sender: TObject);
begin
  wab.Free;
end;

-- hagar. 發表人 - hagar 於 2005/05/03 17:30:43

引言: 小弟在 Delphi 5 是可以安裝的 不知在您的 Delphi 6 是否不行 不行安裝的話, 試試用動態 create 的方式來使用: 1.先將壓縮檔內的檔案複製到要用的 project 的目錄下 2.uses 這裡加上 WindowsAddressBook 這個 unit 3.宣告一個 wab 變數, 型態為 TWinAddressBook, 例

var
  Form1: TForm1;
  wab: TWinAddressBook;

4.在 Form1 的 FormCreate 時 Create

procedure TForm1.FormCreate(Sender: TObject);
begin
  wab := TWinAddressBook.create(nil);
end;

5.按下 Button1 讀取通訊錄檔至 ListBox1 中

procedure TForm1.Button1Click(Sender: TObject);
begin
   wab.SetToDefaultAddressBook;
   wab.LoadFile;
   ListBox1.Items.AddStrings(wab.Contacts);
end;

6.點選 ListBox1, 將 ListBox1 中的聯絡人資料顯示在 Memo1 中

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   wab.GetPropertiesOf(ListBox1.Items[Listbox1.ItemIndex]);
   Memo1.Lines.Clear;
   Memo1.Lines.AddStrings(wab.properties);
end;

7.不要用了, 記得要 Free

procedure TForm1.FormDestroy(Sender: TObject);
begin
  wab.Free;
end;

-- hagar. 發表人 - hagar 於 2005/05/03 17:30:43

hager大大你好，謝謝你所提供的方法，已經可以執行了，但還是有些問題，如下： 我的通訊錄中，會設定一些"群組"，如果是"群組"的話，你所提供的方法，會沒有出現在ListBox1中，而且會使得群組以後的資料，名稱與Address對應不起來的問題，請問有辦法解決嗎？ (1)我的通訊錄--其中"朋友"是一個群組 (2)群組之前的資料對應是正確的，但群組沒有出現在ListBox中 (3)群組之後的資料就會開始錯亂

很奇怪! 小弟這台 PC 並不會出現您所描述的現象!  小弟是

引言: 很奇怪! 小弟這台 PC 並不會出現您所描述的現象! 小弟是 >< face="Verdana, Arial, Helvetica"> 還是這個Unit不能用在Delphi 6 呢？ 如果是這樣子的話，沒關係，還是謝謝你的意見，我再想辦法好了。

還有另一種 abfWAB 元件, 不過是要付費的 網址: http://www.abf-dev.com/abf-vcl/delphi-windows-address-book.shtml -- hagar.