获取本机通讯薄的内容
作者：徐景周
下载示例源码(http://www.vchelp.net/itbookreview/view_paper.asp?paper_id=737)
(http://www.vckbase.com/document/viewdoc.asp?id=660)
简介
如果你想获取本机通讯簿(Outlook Express和Outlook2000)的内容，如：联系人名字、联系人邮件地址等时，可以试试下面的方法。
由于读取Outlook Express(系统自带)和Outlook2000(Office2000中所带)中通讯薄内容所采取的方法不同，下面将分开简述。
第一、读取系统自带Outlook Express中通讯薄方法
基本思路
通过载入Wab32.dll文件(此文件一般位于路径“<盘符>\Program Files\Common Files\System\”下面)，再获取其内部涵数WABOpen的进程地址加以调用，来读出通讯薄中主要内容。
具体实现
一、 包含通讯薄头文件及声明内部涵数
#include <wab.h> // 通讯薄头文件
// 内部涵数声明
typedef HRESULT (WINAPI *fWABOpen)(LPADRBOOK*,LPWABOBJECT*,LPWAB_PARAM,DWORD);
二、 读取具体内容的详细代码
// 读取通讯薄内容(类型、呢称、名字、EMAIL)
void CGetEmailDlg::OnOK()
{
HRESULT hRes;
LPADRBOOK lpAdrBook;
LPWABOBJECT lpWABObject;
LPWAB_PARAM lpWABParam = NULL;
DWORD Reserved2 = NULL;
HINSTANCE hinstLib;
hinstLib = LoadLibrary("D:\\Program Files\\Common Files\\System\\wab32");
fWABOpen procWABOpen;
if (hinstLib != NULL)
{
// 获取"Wab32.dll"内部涵数WABOpen的进程地址
procWABOpen = (fWABOpen) GetProcAddress(hinstLib, "WABOpen");
if (procWABOpen != NULL)
{
hRes = (procWABOpen)(&lpAdrBook,&lpWABObject,NULL,Reserved2);
_ASSERTE(hRes == S_OK);
if (hRes != S_OK) exit(1);
ULONG lpcbEntryID;
ENTRYID *lpEntryID;
hRes = lpAdrBook->GetPAB(
&lpcbEntryID,
&lpEntryID
);
_ASSERTE(hRes == S_OK);
if (hRes != S_OK) exit(2);
ULONG ulFlags = MAPI_BEST_ACCESS;
ULONG ulObjType = NULL;
LPUNKNOWN lpUnk = NULL;
hRes = lpAdrBook->OpenEntry(
lpcbEntryID,
lpEntryID,
NULL,
ulFlags,
&ulObjType,
&lpUnk
);
ulFlags = NULL;
if (ulObjType == MAPI_ABCONT)
{
IABContainer *lpContainer = static_cast <IABContainer *>(lpUnk);
LPMAPITABLE lpTable = NULL;
hRes = lpContainer->GetContentsTable(
ulFlags,
&lpTable
);
_ASSERT(lpTable);
ULONG ulRows;
hRes = lpTable->GetRowCount(0,&ulRows);
_ASSERTE(hRes == S_OK);
SRowSet *lpRows;
hRes = lpTable->QueryRows(
ulRows, // 获取所有行
0,
&lpRows
);
m_ListEmail.ResetContent();
for(ULONG i=0;i<lpRows->cRows;i++)
{
SRow *lpRow = &lpRows->aRow[i];
CString strTemp;
for(ULONG j=0;j<lpRow->cValues;j++)
{
SPropValue *lpProp = &lpRow->lpProps[j];
if (lpProp->ulPropTag == PR_DISPLAY_NAME_A)
strTemp = strTemp + " 名字: " + (char *)lpProp->Value.lpszA;
if (lpProp->ulPropTag == PR_EMAIL_ADDRESS_A)
strTemp = strTemp + " Email: " + (char *)lpProp->Value.lpszA;
if (lpProp->ulPropTag == PR_NICKNAME_A)
strTemp = strTemp + " 呢称: " + (char *)lpProp->Value.lpszA;
if (lpProp->ulPropTag == PR_ADDRTYPE_A)
strTemp = strTemp + " 类型: " + (char *)lpProp->Value.lpszA;
}
m_ListEmail.AddString(strTemp);
lpWABObject->FreeBuffer(lpRow);
}
lpWABObject->FreeBuffer(lpRows);
}
}
FreeLibrary(hinstLib);
// 读取成功后，置读取按钮无效
CButton* pBtn = (CButton*)GetDlgItem(IDOK);
pBtn->EnableWindow(FALSE);
}
}
附注：在包含进头文件Wab.h进行编释时，有时会在WABTAGS.H等地方编释不通，可按示例源码中所带WABTAGS.H文件加以修改，主要是原安装文件的内容有部分损坏。
第二、读取Office2000中所带Outlook2K中通讯薄方法
基本思路
由于Outlook2000下支持内部COM接口，可以利用此接口来读取其内部通讯薄中主要内容。
具体实现
一、 导入Outlook2000的库文件
// 导入读取Outlook2000中通讯薄内容所需库
#import "e:\Program Files\Microsoft Office\Office\mso9.dll" named_guids
#import "e:\Program Files\Microsoft Office\Office\MSOUTL9.olb" no_namespace exclude("_IRecipientControl", "_DRecipientControl")
二、 读取具体内容的详细代码
_ApplicationPtr pApp;
_ItemsPtr pItems;
MAPIFolderPtr pFolder;
_ContactItemPtr pContact;
HRESULT hr;
try
{
hr=pApp.CreateInstance(__uuidof(Application));
if (FAILED(hr))
{
MessageBox("Outlook实例创建失败","错误",MB_OK);
return;
}
// 获取默认Outlook中联系人文件夹
pFolder=pApp->GetNamespace(_bstr_t("MAPI"))->GetDefaultFolder(olFolderContacts);
if (pFolder==NULL)
{
MessageBox("没有发现默认的Outlook联系人文件夹","错误!");
return;
}
else // 否则自行选择Outlook中一指定文件夹
{
pFolder=pApp->GetNamespace(_bstr_t("MAPI"))->PickFolder();
if (pFolder==NULL)
return;
if (pFolder->GetDefaultItemType()!=olContactItem) // 不是联系人
{
MessageBox("选择不是联系人文件夹","错误");
return;
}
}
pItems=pFolder->GetItems();
if (pItems==NULL)
{
MessageBox("不能得到联系人条目","错误");
return;
}
pContact=pItems->GetFirst();
m_ListEmail.ResetContent();
while(1)
{
if (pContact==NULL)
break;
CString strTemp;
strTemp=(char *)pContact->GetFullName();
strTemp=strTemp + "<";
strTemp=strTemp + (char *)pContact->GetEmail1Address();
strTemp=strTemp + ">";
m_ListEmail.AddString(strTemp);
pContact=pItems->GetNext();
}
}
catch(_com_error &e)
{
MessageBox((char *)e.Description());
}
附注：
使用读取Outlook2000通讯薄内容的代码时，请注意下面要点： 要在InitInstance()涵数内部加入下面语句来先初始化COM对象：AfxOleInit(); 这样才可以正确读出内容。
参考文献：
Importing Contacts from Outlook -- Deepesh Dhapola
Accessing the Windows Address Book – Code4Food
联系方式：
地址：陕西省西安市劳动路2号院六单元
邮编：710082
EMAIL：jingzhou_xu@163.net
未来工作室(Future Studio)
