Outlook) (NameSpace.AutoDiscoverXml 屬性
會傳回 String ，代表從主控主要 Exchange 帳戶之 Microsoft Exchange 伺服器的自動探索服務擷取之 XML 中的資訊。 唯讀。
語法
expression。 AutoDiscoverXml
表達 代表 'NameSpace' 物件的變數。
註解
這個屬性類似于Account物件的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 支援與意見反應。