How to find a user's computer that is running Exchange Server by using a MAPI session (183917)

MORE INFORMATION

Code sample

   Option Explicit
    Const PR_EMS_AB_HOME_MDB = &H8006001E
    Public Function strHomeServer() As String
        'Requires a reference to the Microsoft CDO (1.2, 1.21) Library
        Dim objSession As MAPI.Session
        Dim objOutbox As Folder
        Dim objMessage As Message
        Dim objRecipient As Recipient
        Dim strProfileInfo As String
        Dim strServer As String
        Dim strMyMailbox As String
        Dim strRawServerInfo As String
        Dim intStartOfServer As Integer
        Dim intNextSlash As Integer

        Set objSession = New MAPI.Session

        'You need to log onto a MAPI Session. To do this, you need
        'to know either a profile on the current system that is
        'owned by whoever is logged onto the system, or you need to
        'know the mailbox of the person logged on, and the name of
        'an Exchange Server on the same site as the person you want
        'to find the home server.
        '
        'This example uses logon "on the fly" and passes the name of
        'an Exchange Server and the mailbox of the logged on user
        strServer = "AnExchangeServer"
        strMyMailbox = "MyMailbox"
        strProfileInfo = strServer & vbLf & strMyMailbox
        objSession.Logon "", "", False, True, 0, True, strProfileInfo

        'This code is more verbose than is required. You could accomplish
        'this task without creating an Outbox object. The verbose code
        'is for more clarity in what is taking place.

        'Create an Outbox object and add a message to it.
        Set objOutbox = objSession.Outbox
        Set objMessage = objOutbox.Messages.Add
        Set objRecipient = objMessage.Recipients.Add
        With objRecipient
            'Insert the UserID (alias) of the person who you want
            'to find the Home Server for and resolve the name.
            .Name = "AliasToFindHomeServerOf"
            .Resolve

            'The string manipulation code is very verbose.
            'You could accomplish the same thing in one line
            'of code. Breaking the string manipulation out makes
            'what is happening more clear.
            'Add Debug.Print statements and step the code to
            'see what is happening.

            'Retrieve the raw information from the
            'PR_EMS_AB_HOME_MDB property.
            strRawServerInfo = .AddressEntry.Fields(PR_EMS_AB_HOME_MDB)

            'Find the position in the string where the server name starts.
            'We know that just before the server name is a certain string.
            'Look for the string just before the server name using InStr,
            'this will tell you where this string begins.
            'Then add the length of the string you are searching for
            'to find the position where the server name starts.
            intStartOfServer = InStr(1, strRawServerInfo, _
                        "/cn=Configuration/cn=Servers/cn=") + _
                        Len("/cn=Configuration/cn=Servers/cn=")


            'Find the position where the server name ends.
            'We know that a "/" character follows the server name, so find
            'the position of the next slash, starting from where the server
            'name starts.
            intNextSlash = InStr(intStartOfServer, _
                            strRawServerInfo, _
                            "/")

            'Now that we know where the server name starts and ends,
            'use Mid to extract that information.
            strHomeServer = Mid(strRawServerInfo, _
                                intStartOfServer, _
                                intNextSlash - intStartOfServer)
        End With
        objSession.Logoff
        Set objRecipient = Nothing
        Set objMessage = Nothing
        Set objOutbox = Nothing
        Set objSession = Nothing
    End Function