回傳一個字 串 ，代表從 Microsoft Exchange 伺服器自動發現服務中取得的 XML 資訊，該伺服器為主要 Exchange 帳號所載。 唯讀。
語法
expression。 AutoDiscoverXml
詞 一個代表「NameSpace」物件的變數。
註解
此屬性類似於帳戶物件的 AutoDiscoverXml 屬性。 如果已在目前設定檔中定義多個 Exchange 帳戶，請針對特定的帳戶使用 AutoDiscoverXml 屬性。
傳回的 XML 字串會包含不同 Web 服務 (例如，可用性服務和整合通訊服務) 和可用伺服器的相關資訊。
如果使用中的設定檔不含已連線至 Microsoft Exchange Server 2007 (含) 以後版本的伺服器的帳戶，就會傳回錯誤。
範例
NameSpace.AutoDiscoverXml 是由 Exchange 伺服器的自動探索服務所傳回的 XML 字串。 下列程式碼範例會使用 AutoDiscoverConnectionMode 屬性，來示範可在一般 Outlook 工作階段的何時使用此 XML 字串。
當 Application.Startup 事件發生時，如果 NameSpace.AutoDiscoverConnectionMode 不等於 olAutoDiscoverConnectionUnknown，
當 NameSpace.AutoDiscoverComplete 事件發生時，如果 AutoDiscoverConnectionMode 不等於 olAutoDiscoverConnectionUnknown，
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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。