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

最新推荐文章于 2021-04-14 15:24:35 发布

原创最新推荐文章于 2021-04-14 15:24:35 发布 · 2.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#express #null #buffer #containers #object #mobile

经验心得同时被 2 个专栏收录

5 篇文章

订阅专栏

微软技术/Microsoft

4 篇文章

订阅专栏

本文档介绍了如何通过编程接口获取Outlook Express和Windows Address Book（WAB）的联系人信息。代码示例展示了如何使用WABOpen函数打开地址簿，获取联系人列表，包括邮箱地址和姓名等关键信息。适用于需要访问这些旧系统地址簿的开发者。

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, ptagExtendedFolderFlags BYTE 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.youkuaiyun.com/terrycgao/archive/2006/06/22/820612.aspx