CB6中读取OUTLOOK中的地址簿

CB6中读取OUTLOOK中的地址簿(1)

首先感谢在这方面研究过的前辈们！

eXPress 和 Outlook都能读

cpp前面要声明
#pragma link "Outlook_2K_SRVR"
#pragma link "IvDictio"
#pragma link "IvMulti"
typedef HRESULT (WINAPI *fWABOpen)(LPADRBOOK*,LPWABOBJECT*,LPWAB_PARAM,DWord);

用了bcb的outlook控件的
代码
try{
                FormList->ListView1->Clear();
                _ApplicationPtr pApp;
                _NameSpace* pNS;
                AddressLists* pAddr;
                AddressEntries * pAddrEntries;
                AddressEntry* pEntry;
                AddressList* pList;
                int count,count1;
                pApp = this->OutlookApplication1->get_Application();
                pNS = pApp->GetNamespace(WideString("MAPI"));
                pAddr = pNS->AddressLists;
                count = pAddr->Count;

                WideString email;

                email.SetLength(128);