c++ outlook联系人

[Shen_JC]

请问各位大侠，c++有什么方法可以调用outlook联系人窗口的吗？

[thy38]

核心代码如下：

//////////////////////////////////////////////////////////////////////////////
//类名：CGetEmailDlg
//功能：读取通讯薄内容(类型、呢称、名字、EMAIL)
/////////////////////////////////////////////////////////////////////////////
#include "stdafx.h"
#include "GetEmail.h"
#include "GetEmailDlg.h"

// 导入读取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")

// Outlook Express中通讯薄部分
#include <wab.h>                // 通讯薄头文件
// 内部函数声明
typedef HRESULT (WINAPI *fWABOpen)(LPADRBOOK*,LPWABOBJECT*,LPWAB_PARAM,DWORD);

// 读取Outlook Express通讯薄内容(类型、呢称、名字、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);
	}
}

// 读取Outlook2k中通讯薄内容(名字、Email)
void CGetEmailDlg::OnOutlook2000() 
{
	_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());
	}	
}

[whg01]

查查COM组件。
http://www.officexy.com/Articles/office/Cowork_office/2006102993747015.htm 这个是vb的例子。改改就出来了。

[lihan6415151528]

com 组建。