获取本机通讯薄的内容

获取本机通讯薄的内容
编译：

简介
如果你想获取本机通讯簿(Outlook Express和Outlook2000)的内容，如：联系人名字、联系人邮件地址等时，可以试试下面的方法。下面是把此方法用VC6编写的示例程序运行效果：


由于读取Outlook Express(系统自带)和Outlook2000(Office2000中所带)中通讯薄内容所采取的方法不同，下面将分开简述。

第一、读取系统自带Outlook Express中通讯薄方法

基本思路
通过载入Wab32.dll文件(此文件一般位于路径“<盘符>\Program Files\Common Files\System\”下面)，再获取其内部涵数WABOpen的进程地址加以调用，来读出通讯薄中主要内容。

具体实现

一、 包含通讯薄头文件及声明内部函数

#include                 // 通讯薄头文件
// 内部函数声明
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 (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;icRows;i++)
				{
					SRow *lpRow = &lpRows->aRow[i];
					CString strTemp;
					
					for(ULONG j=0;jcValues;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());
}

参考文献：
Importing Contacts from Outlook -- Deepesh Dhapola
Accessing the Windows Address Book – Code4Food

联系方式：
地址：陕西省西安市劳动路2号院六单元
邮编：710082
EMAIL：[e-mail]
未来工作室(Future Studio)

--------------------next---------------------

怎么设置或获取收件人的数字标识呀 ( hua_hero007 发表于 2007-2-7 16:31:00)
 
学习了 ( ljlljl_79 发表于 2006-8-21 11:05:00)
 
参考下这个应该可以解决 ( pubutan 发表于 2006-3-17 14:03:00)
 
可以請問一下 除了這幾個資訊
如果我要得到home phone number, FAX number,company之類的資訊
我要如何得到?
謝謝, 請指教 ( nom2000 发表于 2005-10-6 16:21:00)
 
在访问outlook 时 ，outlook 有安全提示框 ，如何将这个提示框去掉 ， 谢谢 ，请指教 ( songshan 发表于 2005-9-11 23:14:00)
 
在访问outlook 时 ，outlook 有安全提示框 ，如何将这个提示框去掉 ， 谢谢 ，请指教 ( songshan 发表于 2005-9-11 23:14:00)
 
Unhandled exception in GetEmail.exe:0xC0000005:Access Violation

这是因为 FreeLibrary引起的，请看：http://forums.devx.com/showthread.php?s=abe3e8f08b5bc9ea0b525534c3ec26c1&p=6689#post6689

try
{
}
catch(...)就行了 ( xiaotaoliang 发表于 2005-7-16 2:31:00)
 
取Outlook Express时发生内存问题
如何解决啊！ ( 南山五味子 发表于 2003-10-24 14:26:00)
 
这个程序不好用啊 ( 南山五味子 发表于 2003-10-24 14:14:00)
 
正是我所需要的，除了谢谢我还能说什么呢。 ( fanged 发表于 2003-10-10 17:19:00)
 
.......................................................

--------------------next---------------------