Information
The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.

NameSpace.AutoDiscoverComplete Event

Office 2007
Occurs after Outlook has finished accessing the auto-discovery service of an Exchange server and has the related information available in NameSpace.AutoDiscoverXml.

Version Information
 Version Added:  Outlook 2007

Syntax

expression.AutoDiscoverComplete

expression   A variable that represents a NameSpace object.

Example

NameSpace.AutoDiscoverXml is an XML string that is returned from the auto-discovery service of the Exchange server. The following code sample shows when this XML string is available during a normal Outlook session:

  1. When the Application.Startup event occurs, if NameSpace.AutoDiscoverConnectionMode is not equal to olAutoDiscoverConnectionUnknown
  2. When the AutoDiscoverComplete event occurs, if AutoDiscoverConnectionMode is not equal to olAutoDiscoverConnectionUnknown
Visual Basic for Applications
Dim WithEvents Session As NameSpace
Dim LastAutoDiscoverXml As String
Dim LastAutoDiscoverConnectionMode As OlAutoDiscoverConnectionMode

Private Sub Application_Startup()
    Set Session = Application.Session  
    If (Session.AutoDiscoverConnectionMode <> olAutoDiscoverConnectionUnknown) Then
        LastAutoDiscoverXml = Session.AutoDiscoverXml
        LastAutoDiscoverConnectionMode = Session.AutoDiscoverConnectionMode
        DoAutoDiscoverBasedWork
    End If
End Sub

Private Sub Session_AutoDiscoverComplete()
    LastAutoDiscoverXml = Session.AutoDiscoverXml
    LastAutoDiscoverConnectionMode = Session.AutoDiscoverConnectionMode
    If LastAutoDiscoverConnectionMode <> olAutoDiscoverConnectionUnknown Then
        DoAutoDiscoverBasedWork
    End If
End Sub
 
Private Sub DoAutoDiscoverBasedWork()
    ' Do activity requires auto discover information
    Dim displayName As String
    Dim posStartTag, posEndTag As Integer
    posStartTag = InStr(1, LastAutoDiscoverXml, "<DisplayName>")
    posEndTag = InStr(1, LastAutoDiscoverXml, "</DisplayName>")
    
    If (posStartTag > 1 And posEndTag > 1) Then
        displayName = Mid(LastAutoDiscoverXml, posStartTag + 13, posEndTag - posStartTag - 13)
        Debug.Print "DisplayName = " & displayName
    End If
End Sub



Community Additions

Show:
© 2014 Microsoft