通过

NameSpace.AutoDiscoverXml 属性 (Outlook)

  • 项目

返回一个 字符串 ，表示在 XML 信息检索从 Microsoft Exchange 服务器自动发现服务承载主 Exchange 帐户。 此为只读属性。

语法

expression。 AutoDiscoverXml

表达 一个代表“NameSpace”对象的变量。

备注

此属性等同于 帐户 对象的 AutoDiscoverXml 属性。 如果在当前配置文件中定义的多个 Exchange 帐户，使用 AutoDiscoverXml 属性的特定帐户。

XML 的返回字符串包括有关各种 Web 服务（例如，可用性服务和统一邮件服务）和可用服务器的信息。

如果活动配置文件不包含连接到 Microsoft Exchange Server 2007 或更高版本服务器的帐户，则会返回一个错误。

示例

NameSpace.AutoDiscoverXml 是从 Exchange 服务器自动发现服务返回的 XML 字符串。 下面的代码示例使用 AutoDiscoverConnectionMode 属性来显示正常的 Outlook 会话期间可用该 XML 字符串时。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。