如何取得Outlook地址簿中所有的地址？

Question

因为我的电脑上没装Outlook，所以没法测试，就当抛块砖头吧。  OutLook := CreateOleObject('Outlook.Application');
  AddrList := OutLook.GetNameSpace('MAPI').AddressLists('Personal Address Book');
  AddrEnt := AddrList.AddressEntries;
  for i := 0 to AddrEnt.Count - 1 do
    ShowMessage(AddrEnt[i].Address);

Answer 1

这个方法只能在安装了outlook的机子上用啊，如果我要编一个email程序，但这个程序却只能在安装了outlook的机子上用，也不现实吧。