获取本机通讯薄的内容

原创 2003年05月15日 12:14:00

获取本机通讯薄的内容

作者:徐景周

 

下载示例源码(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)

获取本机通讯薄的内容

http://www.vckbase.com/document/viewdoc/?id=660
  • NBest9810
  • NBest9810
  • 2008年06月26日 12:23
  • 63

一条命令查看监听本机所有的TCP通信

# netstat  -plnt
  • u012798468
  • u012798468
  • 2017年02月08日 12:48
  • 409

outlook把收件人加入到通讯薄

ouutlook这个功能在信件列表里面没有,只有把发件人加入到通讯薄。 要想加收件人,就只有打开信件后,再打开的信件里面的工具-添加到通讯薄选项里面去做了。 微软的东西,唉,真好使...
  • w110223
  • w110223
  • 2011年10月14日 12:01
  • 996

解决Lync通讯簿同步问题以及2013通讯簿错误

似乎耽搁了不少的时间,今天给大家分享下这几天搭建Lync Server 2013所遇到的一些问题,其实我们都知道Lync Server 2013和2010并没有太大的变化,莫非就是参考官方文档改变一下...
  • dz45693
  • dz45693
  • 2013年08月31日 18:31
  • 3936

简单的通讯薄

视频下载 提取码: 8l7WNUbe #include #include #include #include #include #include using namespace st...
  • u013962600
  • u013962600
  • 2014年04月02日 00:14
  • 788

[11月19日的脚本] 在Windows下重置脱机文件缓存和数据库

脚本下载: ReinitializeOfflineFilesCacheAndDatabase.zip  http://gallery.technet.microsoft.com/scriptcent...
  • MSScriptSample
  • MSScriptSample
  • 2012年11月26日 14:11
  • 291

outlook如何添加收件人到通讯薄-----outlook的一个bug

outlook里面右键点击任何一封信件,在出现的下拉菜单中,都会有一个“将发件人添加到通讯薄(B)”的选项,在收件箱里面这是正常的选择,但是在已发邮件里面这就是一个bug了,因为这时的发件人只是本机用...
  • w110223
  • w110223
  • 2011年09月07日 09:37
  • 4189

通讯中本机与虚拟机的连接

最近在学通讯,电脑安了个虚拟机,然后要跟本机相连,学到了一些··· 主要是虚拟机与主机连接的方法,还有自己的一些理解! 虚拟机跟本机相连:Ping 192.168.137.1 通过cmd: ...
  • nyzdmc
  • nyzdmc
  • 2017年04月13日 14:04
  • 483

EXCEL中发现不可读的内容。是否恢复此工作薄的内容?如果信任此工作薄的来源,请单击”是“

由于业务需要,之前的EXCEL导出方法不能满足需求,因为2003只支持最多256列,但是2007就没有256列这个限制,因此升级NPOI到2.0 使用XSSFWorkbook生成xlsx,等下载下来...
  • sniper007
  • sniper007
  • 2013年03月12日 11:12
  • 11795

Socket TCP通信简单实现与文件传输

java Socke 的TCP通信的简单实现,实现文件传输。
  • luffytom
  • luffytom
  • 2017年10月16日 00:18
  • 112
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:获取本机通讯薄的内容
举报原因:
原因补充:

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