共用方式為

Outlook) (NameSpace.AutoDiscoverComplete 事件

  • 發行項

會在 Microsoft Outlook 完成存取裝載主要 Exchange 帳戶且具有 NameSpace.AutoDiscoverXml中可用相關資訊之 Microsoft Exchange 伺服器的自動探索服務之後發生。

語法

expression。 AutoDiscoverComplete

表達 代表 'NameSpace' 物件的變數。

註解

此事件類似于Accounts物件的AutoDiscoverComplete事件。 如果有多個在目前設定檔中定義的 Exchange 帳戶，請使用指定特殊帳戶 Accounts 物件的 AutoDiscoverComplete 事件。

範例

NameSpace.AutoDiscoverXml 是從 Exchange 伺服器自動探索服務傳回的 XML 字串。 下列程式碼範例會示範在一般 Outlook 工作階段的何時具有此 XML 字串：

  1. 當 Application.Startup 事件發生時，如果 NameSpace.AutoDiscoverConnectionMode 不等於 olAutoDiscoverConnectionUnknown

  2. 當 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

另請參閱

NameSpace 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。