命名空间 AutoDiscoverComplete 事件 (Outlook)NameSpace.AutoDiscoverComplete event (Outlook)

在 microsoft Outlook 完成访问承载主 exchange 帐户的 microsoft Exchange server 的自动发现服务并在**AutoDiscoverXml** 中提供相关信息之后, 发生此事件。Occurs after Microsoft Outlook has finished accessing the auto-discovery service of the Microsoft Exchange server that hosts the primary Exchange account and has the related information available in NameSpace.AutoDiscoverXml.

语法Syntax

expressionexpression. AutoDiscoverComplete

_表达式_一个代表 "NameSpace" 对象的变量。expression A variable that represents a 'NameSpace' object.

说明Remarks

此事件类似于**Accounts** 对象的**AutoDiscoverComplete** 事件。This event is similar to the AutoDiscoverComplete event of the Accounts object. 如果在当前配置文件中定义的多个 Exchange 帐户,则使用指定的特定帐户的 帐户 对象的 AutoDiscoverComplete 事件。If there are multiple Exchange accounts defined in the current profile, use the AutoDiscoverComplete event of the Accounts object that specifies the particular account.

示例Example

NameSpace.AutoDiscoverXml 是从 Exchange 服务器自动发现服务返回的 XML 字符串。NameSpace.AutoDiscoverXml is an XML string that is returned from the auto-discovery service of the Exchange server. 下面的代码示例演示在普通的 Outlook 会话过程中可用该 XML 字符串时:The following code sample shows when this XML string is available during a normal Outlook session:

  1. 当**应用程序的 Startup** 事件发生时, 如果**AutoDiscoverConnectionMode** 不等于olAutoDiscoverConnectionUnknownWhen the Application.Startup event occurs, if NameSpace.AutoDiscoverConnectionMode is not equal to olAutoDiscoverConnectionUnknown

  2. AutoDiscoverComplete事件发生时, 如果AutoDiscoverConnectionMode不等于olAutoDiscoverConnectionUnknownWhen the AutoDiscoverComplete event occurs, if AutoDiscoverConnectionMode is not equal to 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

另请参阅See also

命名空间对象NameSpace Object

支持和反馈Support and feedback

有关于 Office VBA 或本文档的疑问或反馈?Have questions or feedback about Office VBA or this documentation? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.