Getting a List of All Address Books

Getting a List of All Address Books

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

The following example returns a list of all address books. This example uses a function for Getting a List of Objects In a Container.

Visual Basic

'//////////////////////////////////////////////////////////////////////
' Function: getAddressBookList()
' Purpose:  Returns a list of all address books.
'
' Input:    szDomainName:         Domain of the exchange organization
'           szOrgName:            Name of hosting organization
'           szUserName:           Admin Username
'           szUserPwd:            Admin pwd
'           szPolicyList:         List of installed address books
'           szDirectoryServer:    Name of the Directory Server
'
' Output:   getAddressBookList:   Contains Error code (if any)
'
' Note:  In order for this example to function correctly, it may be necessary to include
' references to the following libraries: Active DS Type Library, Microsoft CDO for
' Exchange Management Library, Microsoft Cluster Service Automation Classes,
' Microsoft CDO for Windows 2000 Library.
'//////////////////////////////////////////////////////////////////////
Public Function getAddressBookList(ByVal szDomainName As String, _
                                   ByVal szOrganizationName As String, _
                                   ByVal szUserName As String, _
                                   ByVal szUserPwd As String, _
                                   ByRef szBookList As String, _
                                   ByVal szDirectoryServer) As Integer

    Dim szConnString As String
    Dim objLdap As IADsOpenDSObject
    Dim objBooks As IADsContainer
    Dim objObject As Variant
    Dim szaDomTokens() As String
    Dim szDomainDN As String

    On Error GoTo errhandler

    ' Put the domain name into an ldap string.
    szaDomTokens = Split(szDomainName, ".", -1, 1)
    szDomainDN = Join(szaDomTokens, ",dc=")
    szDomainDN = "dc=" & szDomainDN

    ' Build ldap connection string.
    szConnString = "LDAP://" + szDirectoryServer + "/" + _
                   "cn=All Global Address Lists,cn=Address Lists Container,cn=" + _
                   szOrganizationName + ",cn=microsoft exchange,cn=services,cn=configuration," + _
                   szDomainDN

    ' Get list of address books.
    getObjectList szUserName, _
                  szUserPwd, _
                  szConnString, _
                  "", _
                  szBookList

    Exit Function

    ' Error handling.
errorhandler:
    ' Implement error logging here.
    Exit Function

End Function

Send us your feedback about the Microsoft Exchange Server 2003 SDK.

Build: June 2007 (2007.618.1)

© 2003-2006 Microsoft Corporation. All rights reserved. Terms of use.