关于获取联系人详细信息的问题。

yaoyuantc

我也碰到相同问题。
难道此问题无解？
通过.Detail()可以弹出窗口看到联系人的各种详细信息，但是在程序里如何取得对应的值呢？

hlightaaaa

Kevin, aaaaabbbbb版主有没有解决的办法？

aaaaabbbbb

是EXCHANGE全球通讯录中的信息吗?
请参考以下帖子:
http://www.pcreview.co.uk/forums/thread-3157120.php

[ 本帖最后由 aaaaabbbbb 于 2009-1-3 18:36 编辑 ]

hlightaaaa

收到,看看先. 还全E文地.

hlightaaaa

已经全看完了.成功实现需要的功能.原来是用MAPI的SESSION来实现的.
虽然MAPI.SESSON不是很明白,
谢谢,aaaaabbbbb

Long_III

对于上述代码都是访问默认的PST文件，而楼主则是希望把其他pst里的通讯簿也读取出来，
请参考
http://club.excelhome.net/thread-342793-1-1.html
用代码访问除默认PST文件之外的其他PST数据

synpo

好贴，支持下。虽然看的迷迷糊糊。

synpo

好贴，支持下。
正需要解决这个棘手的问题

[ 本帖最后由 synpo 于 2009-12-24 16:51 编辑 ]

citicrc

实在没搞明白,这个问题最后是怎么解决的,至今都没看见最后的结果

hxhgxy

看帮助就可以了啊
Sub DemoAE()
    Dim colAL As Outlook.AddressLists
    Dim oAL As Outlook.AddressList
    Dim colAE As Outlook.AddressEntries
    Dim oAE As Outlook.AddressEntry
    Dim oExUser As Outlook.ExchangeUser
    Set colAL = Application.Session.AddressLists
    For Each oAL In colAL
        'Address list is an Exchange Global Address List
        If oAL.AddressListType = olExchangeGlobalAddressList Then
            Set colAE = oAL.AddressEntries
            For Each oAE In colAE
                If oAE.AddressEntryUserType = _
                    olExchangeUserAddressEntry Then
                    Set oExUser = oAE.GetExchangeUser
                    Debug.Print(oExUser.JobTitle)
                    Debug.Print(oExUser.OfficeLocation)
                    Debug.Print(oExUser.BusinessTelephoneNumber)
                End If
            Next
        End If
    Next
End Sub