如何获得outlook Express地址簿/Windows Address Book(WAB)的信息

 HRESULT hr = S_OK;try{LPWABOPEN lpfnWABOpen = NULL; // Defined in Wabapi.h. HINSTANCE hInstWAB = NULL;CRegKey regKey;LONG nReturn = regKey.Open(HKEY_LOCAL_MACHINE, WAB_DLL_PATH_KEY, KEY_READ);if(nReturn == ERROR_SUCCESS){ULONG nChars = BUFFER_SIZE;TCHAR szValue[BUFFER_SIZE];nReturn = regKey.QueryStringValue("", szValue, &nChars);regKey.Close();if(nReturn == ERROR_SUCCESS){if(lstrlen(szValue) > 0){HRESULT hr = E_FAIL;hInstWAB = LoadLibrary(szValue);if(hInstWAB != NULL){lpfnWABOpen = (LPWABOPEN) GetProcAddress(hInstWAB, "WABOpen");if (lpfnWABOpen){WAB_PARAM wp = {0};wp.cbSize = sizeof(WAB_PARAM);wp.ulFlags = WAB_ENABLE_PROFILES;wp.hwnd = NULL;wp.szFileName = NULL;IAddrBook* pAddrBook;CComPtr<IWABObject> pWabObject;hr = lpfnWABOpen(&pAddrBook, &pWabObject, &wp, 0);if(SUCCEEDED(hr)){ULONG cbEntryID;LPENTRYID pEntryID = NULL;ULONG ulObjType = NULL;hr = pAddrBook->GetPAB(&cbEntryID, &pEntryID);if(SUCCEEDED(hr)){CComPtr<IABContainer> pABContainer = NULL;ULONG ulFlags = MAPI_BEST_ACCESS;hr = pAddrBook->OpenEntry(cbEntryID, 0, NULL, ulFlags, &ulObjType, (LPUNKNOWN*)&pABContainer);if(SUCCEEDED(hr)){CComPtr<IMAPITable> pMapiTable = NULL; hr= pABContainer->GetHierarchyTable(CONVENIENT_DEPTH, &pMapiTable);if(SUCCEEDED(hr)){ULONG ulCount = 0;hr = pMapiTable->GetRowCount(0, &ulCount);if(SUCCEEDED(hr)){LPSRowSet pRowSets = NULL;//hr = HrQueryAllRows(pMapiTable, (SPropTagArray *)&propTagArray, NULL, NULL, ulCount, &pRowSets);hr = pMapiTable->QueryRows(ulCount, 0, &pRowSets);if(SUCCEEDED(hr)){for(int i = 0; i < pRowSets->cRows; i ++){ULONG ulObjectType;int nEntryIDIndex = -1;DWORD dwDepth = 0;TCHAR szFolderName[BUFFER_SIZE];ZeroMemory(szFolderName, sizeof(szFolderName));for(int j = 0; j < pRowSets->aRow[i].cValues; j ++){switch(pRowSets->aRow[i].lpProps[j].ulPropTag){case PR_ADDRTYPE:break;case PR_DISPLAY_NAME:strcpy_s(szFolderName, pRowSets->aRow[i].lpProps[j].Value.lpszA);break;case PR_DISPLAY_TYPE:break;case PR_ENTRYID:nEntryIDIndex = j;break;case PR_DEPTH:dwDepth = pRowSets->aRow[i].lpProps[j].Value.l;break;case PR_INSTANCE_KEY:break;case PR_OBJECT_TYPE:ulObjectType = pRowSets->aRow[i].lpProps[j].Value.l;break;case PR_EMAIL_ADDRESS:break;case PR_RECORD_KEY:break;case PR_NICKNAME:break;case PR_MOBILE_TELEPHONE_NUMBER:break;case PR_ROWID:break;case PR_CONTAINER_FLAGS:break;case PR_AB_PROVIDER_ID:break;default:break;}}if(ulObjectType == MAPI_FOLDER){}if((dwDepth != 0) && (nEntryIDIndex >= 0)){CComPtr<IABContainer> pContainer2 = NULL;hr = pABContainer->OpenEntry(pRowSets->aRow[i].lpProps[nEntryIDIndex].Value.bin.cb, (LPENTRYID)pRowSets->aRow[i].lpProps[nEntryIDIndex].Value.bin.lpb, NULL,ulFlags, &ulObjType, (LPUNKNOWN *)&pContainer2);if(SUCCEEDED(hr)){CComPtr<IMAPITable> pMapiTable2 = NULL; hr = pContainer2->GetContentsTable(0x00100000/*WAB_LOCAL_CONTAINERS*/, &pMapiTable2);if(SUCCEEDED(hr)){ULONG ulCount2;pMapiTable2->GetRowCount(0, &ulCount2);LPSRowSet pRowSets2 = NULL;pMapiTable2->QueryRows(ulCount2, 0,&pRowSets2);for(int i2 = 0; i2 < pRowSets2->cRows; i2 ++){TCHAR szEmailAddress[BUFFER_SIZE];ZeroMemory(szEmailAddress, sizeof(szEmailAddress));TCHAR szDisplayName[BUFFER_SIZE];ZeroMemory(szDisplayName, sizeof(szDisplayName));TCHAR szMobilePhoneNumber[BUFFER_SIZE];ZeroMemory(szMobilePhoneNumber, sizeof(szMobilePhoneNumber));TCHAR szAddressType[BUFFER_SIZE];ZeroMemory(szAddressType, sizeof(szAddressType));ULONG ulObjectTypeCatogory = 0x00;int nIndexObjectType = -1;int nMailUserEntryIDIndex = -1;for(int j2 = 0; j2 < pRowSets2->aRow[i2].cValues; j2 ++){switch(pRowSets2->aRow[i2].lpProps[j2].ulPropTag){case PR_ADDRTYPE:strcpy_s(szAddressType, pRowSets2->aRow[i2].lpProps[j2].Value.lpszA);break;case PR_DISPLAY_NAME:strcpy_s(szDisplayName, pRowSets2->aRow[i2].lpProps[j2].Value.lpszA);break;case PR_DISPLAY_TYPE:break;case PR_ENTRYID:nMailUserEntryIDIndex = j2;break;case PR_INSTANCE_KEY:break;case PR_OBJECT_TYPE:{nIndexObjectType = j2;if(pRowSets2->aRow[i2].lpProps[j2].Value.l == MAPI_MAILUSER){ulObjectTypeCatogory = MAPI_MAILUSER;}else if(pRowSets2->aRow[i2].lpProps[j2].Value.l == MAPI_DISTLIST){ulObjectTypeCatogory = MAPI_DISTLIST;}}break;case PR_EMAIL_ADDRESS:strcpy_s(szEmailAddress, pRowSets2->aRow[i2].lpProps[j2].Value.lpszA);break;case PR_RECORD_KEY:break;case PR_NICKNAME:break;case PR_MOBILE_TELEPHONE_NUMBER:strcpy_s(szMobilePhoneNumber, pRowSets2->aRow[i2].lpProps[j2].Value.lpszA);break;default:break;}}if(ulObjectTypeCatogory == MAPI_MAILUSER){IMailUser *pMailUser = NULL;IDistList *pDistList = NULL;ULONG ulObjTypeMailUser = 0;if(nMailUserEntryIDIndex != -1){hr = pContainer2->OpenEntry(pRowSets2->aRow[i2].lpProps[nMailUserEntryIDIndex].Value.bin.cb, (LPENTRYID)pRowSets2->aRow[i2].lpProps[nMailUserEntryIDIndex].Value.bin.lpb, NULL, MAPI_BEST_ACCESS, &ulObjTypeMailUser, (LPUNKNOWN*)&pMailUser);if(SUCCEEDED(hr)){LPSPropTagArray lpMailUserPropTagArray;ULONG ulPropertyCount;LPSPropValue lpMailUserPropValueArray = NULL;hr = pMailUser->GetProps(NULL, fMapiUnicode, &ulPropertyCount, &lpMailUserPropValueArray);if(SUCCEEDED(hr)){if(ulPropertyCount > 0){WCHAR swzEmailAddress[BUFFER_SIZE];ZeroMemory(swzEmailAddress, sizeof(swzEmailAddress));WCHAR swzDisplayName[BUFFER_SIZE];ZeroMemory(swzDisplayName, sizeof(swzDisplayName));WCHAR swzMobilePhoneNumber[BUFFER_SIZE];ZeroMemory(swzMobilePhoneNumber, sizeof(swzMobilePhoneNumber));WCHAR swzAddressType[BUFFER_SIZE];ZeroMemory(swzAddressType, sizeof(swzAddressType));LPMESSAGE pMessage = NULL;IMAPIFolder * pContactFolder = NULL;if(i == 0){hr = m_pCurrentContactFolder->CreateMessage(NULL, MAPI_DEFERRED_ERRORS, &pMessage);}else{hr = m_pCurrentContactFolder->CreateFolder(FOLDER_GENERIC, szFolderName, "", &local_IID_IMAPIFolder, fMapiUnicode, &pContactFolder);if(SUCCEEDED(hr)){SPropValue propFolderValue[2];LPSPropProblemArray propFolderProblemArray = NULL;propFolderValue[0].ulPropTag = PR_CONTAINER_CLASS_W;propFolderValue[0].dwAlignPad = NULL;propFolderValue[0].Value.lpszW = L"IPF.Contact";// PR_EXTENDED_FOLDER_FLAGS, PidTagExtendedFolderFlags, ptagExtendedFolderFlagsBYTE byTempExtendFlag[] = {0x01, 0x04, 0x00, 0x00, 0x10, 0x00};propFolderValue[1].dwAlignPad = NULL;propFolderValue[1].ulPropTag = 0x36DA0102;propFolderValue[1].Value.bin.cb = 0x00000006;propFolderValue[1].Value.bin.lpb = byTempExtendFlag;pContactFolder->SetProps(2, propFolderValue, &propFolderProblemArray); pContactFolder->SaveChanges(KEEP_OPEN_READWRITE);hr = pContactFolder->CreateMessage(NULL, MAPI_DEFERRED_ERRORS, &pMessage);}}if(SUCCEEDED(hr)){LPSPropValue pSPpropArray = new SPropValue[11];LPSPropProblemArray lpPropProblemArray = NULL;pSPpropArray[0].dwAlignPad = NULL;pSPpropArray[0].ulPropTag = PR_MESSAGE_CLASS_W;pSPpropArray[0].Value.lpszW = L"IPM.Contact";pSPpropArray[1].dwAlignPad = NULL;pSPpropArray[1].ulPropTag = PR_MESSAGE_FLAGS;pSPpropArray[1].Value.l = MSGFLAG_READ;pSPpropArray[1].Value.ul = MSGFLAG_READ;pSPpropArray[2].dwAlignPad = NULL;pSPpropArray[2].ulPropTag = 0x802E001F;CUtilities::MultiBytes2Unicode(swzEmailAddress, sizeof(swzEmailAddress), szEmailAddress);pSPpropArray[2].Value.lpszW = swzEmailAddress;pSPpropArray[3].dwAlignPad = NULL;pSPpropArray[3].ulPropTag = 0x805B001F;CUtilities::MultiBytes2Unicode(swzEmailAddress, sizeof(swzEmailAddress), szEmailAddress);pSPpropArray[3].Value.lpszW = swzEmailAddress;pSPpropArray[3].dwAlignPad = NULL;pSPpropArray[3].ulPropTag = 0x805B001F;CUtilities::MultiBytes2Unicode(swzEmailAddress, sizeof(swzEmailAddress), szEmailAddress);pSPpropArray[3].Value.lpszW = swzEmailAddress;pSPpropArray[4].dwAlignPad = NULL;pSPpropArray[4].ulPropTag = PR_IMPORTANCE;pSPpropArray[4].Value.l = IMPORTANCE_NORMAL;pSPpropArray[4].Value.ul = IMPORTANCE_NORMAL;pSPpropArray[5].dwAlignPad = NULL;pSPpropArray[5].ulPropTag = PR_SUBJECT_W;CUtilities::MultiBytes2Unicode(swzDisplayName, sizeof(swzDisplayName), szDisplayName);pSPpropArray[5].Value.lpszW = swzDisplayName;pSPpropArray[6].dwAlignPad = NULL;pSPpropArray[6].ulPropTag = PR_DISPLAY_NAME_W;CUtilities::MultiBytes2Unicode(swzDisplayName, sizeof(swzDisplayName), szDisplayName);pSPpropArray[6].Value.lpszW = swzDisplayName;pSPpropArray[7].dwAlignPad = NULL;pSPpropArray[7].ulPropTag = PR_MESSAGE_FLAGS;pSPpropArray[7].Value.l = 9;pSPpropArray[7].Value.ul = 9;pSPpropArray[8].dwAlignPad = NULL;pSPpropArray[8].ulPropTag = 0x815C001F;CUtilities::MultiBytes2Unicode(swzEmailAddress, sizeof(swzEmailAddress), szEmailAddress);pSPpropArray[8].Value.lpszW = swzEmailAddress;pSPpropArray[9].dwAlignPad = NULL;pSPpropArray[9].ulPropTag = 0x8061001F;CUtilities::MultiBytes2Unicode(swzEmailAddress, sizeof(swzEmailAddress), szEmailAddress);pSPpropArray[9].Value.lpszW = swzEmailAddress;pSPpropArray[10].dwAlignPad = NULL;pSPpropArray[10].ulPropTag = 0x805F001F;CUtilities::MultiBytes2Unicode(swzDisplayName, sizeof(swzDisplayName), szDisplayName);pSPpropArray[10].Value.lpszW = swzDisplayName;pMessage->SetProps(11, pSPpropArray, &lpPropProblemArray);pMessage->SaveChanges(KEEP_OPEN_READWRITE);pMessage->SetProps(ulPropertyCount, lpMailUserPropValueArray, &lpPropProblemArray);pMessage->SaveChanges(KEEP_OPEN_READWRITE);delete pSPpropArray;pMessage->Release();pMessage = NULL;}if(pContactFolder != NULL){pContactFolder->Release();pContactFolder = NULL;}}}pWabObject->FreeBuffer(lpMailUserPropValueArray);pMailUser->Release();pMailUser = NULL;}}}}pWabObject->FreeBuffer(pRowSets2);}}}}pWabObject->FreeBuffer(pRowSets);pRowSets = NULL;}}}}pWabObject->FreeBuffer(pEntryID);}}if(pAddrBook != NULL){pAddrBook->Release();pAddrBook = NULL;}}}FreeLibrary(hInstWAB);}}}}catch(CException *ex){CUtilities::ErrorLog(ex);}catch(PCHAR szError){CUtilities::ErrorLogEx(szError);}catch(...){}return hr;

 

Windows Address Book是windows xp和Outlook Express用的组件，虽然已经老掉牙了，网上这方面的资料已经很少了，共享此代码片段，希望能够帮助到碰到类似问题的人。:)

 

参考：

 

http://blog.csdn.net/terrycgao/archive/2006/06/22/820612.aspx