获取本机通讯薄的内容

下载本文示例代码

简介
如果你想获取本机通讯簿(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)

下载本文示例代码

输入您的搜索字词 提交搜索表单