如何获得outlook Express地址簿的文件夹名

转载 2006年06月22日 11:02:00

[Note]

1. Wab中并不在每条记录信息里保存这个文件夹名
2. IDistList并不是文件夹信息,而是分组信息。
3. 方法:先取每个文件夹的EntryID及文件夹名,再通过这个EntryID去得到这个文件夹所属的Container.再遍历Container Table得到Table中的所有记录。
4. 这个方法有个缺点,没办法读取share folder里的记录。

// 读取Outlook Express通讯薄内容(文件夹、名字、EMAIL)
void CGetEmailDlg::OnOK()
{
 HRESULT hRes;
 LPADRBOOK lpAdrBook;
 LPWABOBJECT lpWABObject;

 DWORD Reserved2 = NULL;

 HINSTANCE hinstLib;
 hinstLib = LoadLibrary("C://Program Files//Common Files//System//wab32");
 fWABOpen procWABOpen;
 WAB_PARAM wp = {0};
 wp.cbSize = sizeof(WAB_PARAM);
 
 // Only want to deal with "Main Identity's Contacts"
 wp.ulFlags = WAB_ENABLE_PROFILES; //设置这个值的话,表示只取当前的标识wab.去除share folder
 
 if (hinstLib != NULL)
 {
  // 获取"Wab32.dll"内部涵数WABOpen的进程地址
  procWABOpen = (fWABOpen) GetProcAddress(hinstLib, "WABOpen");

  if (procWABOpen != NULL)
  {
   hRes = (procWABOpen)(&lpAdrBook,&lpWABObject,&wp,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,
    0,   //将这个值设为0的话,取得的将是wab中的所有目录。如果是设为&lpEntryID,则取得的是所有的联系人记录项
    NULL,
    ulFlags,
    &ulObjType,
    &lpUnk
   );

   ulFlags = WAB_LOCAL_CONTAINERS;  //这里ulFlags如果设为WAB_PROFILE_CONTENTS,则表示在container里获取所有的记录。造成每个folder里读取出来的记录都是全部记录 
//   ulFlags = WAB_PROFILE_CONTENTS;   
   if (ulObjType == MAPI_ABCONT)
   {
    IABContainer *lpContainer = static_cast <IABContainer *>(lpUnk);
    
    LPMAPITABLE lpTable = NULL;
    hRes = lpContainer->GetHierarchyTable(CONVENIENT_DEPTH,&lpTable);//从container中取得table,这里的table保存了文件夹信息
//    hRes = lpContainer->GetContentsTable(ulFlags,&lpTable);
    _ASSERT(lpTable);
    ULONG ulRows;
    hRes = lpTable->GetRowCount(0,&ulRows);//第1个参数为保留参数。固定为0
    _ASSERTE(hRes == S_OK);
    SRowSet *lpRows;

    hRes = lpTable->QueryRows(
     ulRows,  // 获取所有行
     0,
     &lpRows
    );

    m_ListEmail.ResetContent();
 
    SRow *lpRow = NULL;
    SPropValue *lpProp = NULL;
    BOOL bNotFolder = FALSE;
    IABContainer *lpContainer2 = NULL;
    LPENTRYID lpEID;
    ULONG cbEID;
    for(ULONG i=0;i<lpRows->cRows;i++)
    {
     bNotFolder = FALSE;
     lpRow = &lpRows->aRow[i];
     CString strTemp=_T("");
     CString strM = _T("");
     CString strFolderName = _T("");
     
     for(ULONG j=0;j<lpRow->cValues;j++)
     {
      lpProp = &lpRow->lpProps[j];
      if (lpProp->ulPropTag == PR_DISPLAY_NAME_A)
       strFolderName = strFolderName +"目录: " + (char *)lpProp->Value.lpszA;

      if (lpProp->ulPropTag == PR_ENTRYID)
      {
       lpEID = (LPENTRYID)lpProp->Value.bin.lpb;
       cbEID = lpProp->Value.bin.cb;
      }
      if (lpProp->ulPropTag == PR_DEPTH)
      {
       if(lpProp->Value.l ==0)
       {
        bNotFolder = TRUE;
        break;
       }
      }      
     }
     if(bNotFolder)
      continue;
     hRes = lpContainer->OpenEntry(
      cbEID,
      lpEID,
      NULL,
      ulFlags,
      &ulObjType,
      (LPUNKNOWN *)&lpContainer2
      );
     LPMAPITABLE lpTable2 = NULL;
     
     hRes = lpContainer2->GetContentsTable(ulFlags,&lpTable2);
     ULONG ulRows2;
     
     hRes = lpTable2->GetRowCount(0,&ulRows2);
     SRowSet *lpRows2;
     
     hRes = lpTable2->QueryRows(
      ulRows2,  // 获取所有行
      0,
      &lpRows2
      );
     for(ULONG i=0;i<lpRows2->cRows;i++)
     {
      SRow *lpRow2 = &lpRows2->aRow[i];
      CString strEmail=_T("");
      CString strName=_T("");
      for(ULONG j=0;j<lpRow2->cValues;j++)
      {
       SPropValue *lpProp2 = &lpRow2->lpProps[j];
       if (lpProp2->ulPropTag == PR_EMAIL_ADDRESS_A)
        strEmail = strEmail +" Email: " + (char *)lpProp2->Value.lpszA;
       if (lpProp2->ulPropTag == PR_DISPLAY_NAME_A)
        strName = strName +" Name: " + (char *)lpProp2->Value.lpszA;
       
      }
      strTemp = strFolderName + strName + strEmail;
      m_ListEmail.AddString(strTemp);
      lpWABObject->FreeBuffer(lpRow2);
     }
     lpWABObject->FreeBuffer(lpRows2);
     lpWABObject->FreeBuffer(lpRow);
    }
    lpWABObject->FreeBuffer(lpRows);
   }
  }
  FreeLibrary(hinstLib);
 }
}

相关文章推荐

嵌入式之地址簿

  • 2012-12-24 20:10
  • 4.89MB
  • 下载

天启地址簿 2.0.0001

  • 2007-10-31 15:59
  • 891KB
  • 下载

Exchange2003 升级到 Exchange 2010 之迁移脱机地址簿!

1.     由于脱机地址簿是在2003的邮件服务器,EX2003只能通过脱机地址簿发布,为了保证脱机地址簿能够支持2010 的http 发布方式,我们必须对OAB升级来支持。我们在Exchange ...

地址簿

  • 2006-03-16 00:00
  • 343KB
  • 下载

BBerIPD地址簿加缩写

  • 2011-01-26 08:00
  • 20KB
  • 下载

AddressBook 地址簿 (电话簿) 访问与修改-IOS开发

访问地址簿和单个联系人数据的接口是基于C语言的函数,接口传递对地址簿各种对象的引用作为参数。管理地址簿中条目的基类对象是 ABRecord。一个 ABRecord 可以表示一个人 或者一个群体 ABG...

C#地址簿软件

  • 2011-12-09 14:49
  • 316KB
  • 下载

第一个python,地址簿程序

# coding=utf-8 import cPickle as p import os class Person: def __init__(self, name, type, email, p...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)