共用方式為

Outlook) (NameSpace.AutoDiscoverConnectionMode 屬性

  • 發行項

會傳回 OlAutoDiscoverConnectionMode 常數，指定自動探索主控主要 Exchange 帳戶之 Microsoft Exchange 伺服器的連線類型。 唯讀。

語法

expression。 AutoDiscoverConnectionMode

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

註解

這個屬性類似于Account物件的AutoDiscoverConnectionMode屬性。 如果在目前的設定檔中定義了多個 Exchange 帳戶，請針對特定帳戶使用 AutoDiscoverConnectionMode 屬性。

範例

NameSpace.AutoDiscoverXml 是由 Exchange 伺服器的自動探索服務所傳回的 XML 字串。 下列程式碼範例會使用 AutoDiscoverConnectionMode 屬性，來示範可在一般 Outlook 工作階段的何時使用此 XML 字串。

  • 當 Application.Startup 事件發生時，如果 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

另請參閱

NameSpace 物件

支援和意見反應

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