如何获得全球通讯簿中联系人详细资料的问题

dsd999

http://www.cdolive.com/cdo10.htm

去这个网站看看，以前也研究过这个问题。

要想得到详细资料比较麻烦。

citicrc

原帖由 dsd999 于 2010-7-30 14:42 发表
http://www.cdolive.com/cdo10.htm

去这个网站看看，以前也研究过这个问题。

要想得到详细资料比较麻烦。

谢谢这位兄弟,全是E文,慢慢看先.

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

citicrc

切实可行,非常感谢版主,
不过还有个小问题,这些定义的变量都必须是OUTLOOK里的,如果同一段代码写在EXCEL的宏里,先也就是在OUTLOOK外面用OLE方式调用,这个代码就不能用了

[ 本帖最后由 citicrc 于 2010-9-7 09:29 编辑 ]

闻启学

可以的  在Excel  引用outlook 就行

要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上