NameSpace.AutoDiscoverConnectionMode-Eigenschaft (Outlook)

Artikel
04/07/2023

Gibt eine OlAutoDiscoverConnectionMode -Konstante, die den Typ der Verbindung für die automatische Erkennung des Microsoft Exchange-Servers angibt, das das primäre Exchange-Konto gehostet wird. Schreibgeschützt.

Syntax

Ausdruck. AutoDiscoverConnectionMode

Ausdruck Eine Variable, die ein NameSpace-Objekt darstellt.

HinwBemerkungeneise

Diese Eigenschaft ist vergleichbar mit der AutoDiscoverConnectionMode -Eigenschaft des Account -Objekts. Wenn mehrere Exchange-Konten im aktuellen Profil definiert sind, verwenden Sie die AutoDiscoverConnectionMode -Eigenschaft für das jeweilige Konto.

Beispiel

NameSpace.AutoDiscoverXml handelt es sich um eine XML-Zeichenfolge, die von den Auto-Discovery-Dienst des Exchange-Servers zurückgegeben wird. Im folgenden Codebeispiel wird angezeigt, wenn diese XML-Zeichenfolge verfügbar, während eine normale Outlook-Sitzung ist AutoDiscoverConnectionMode -Eigenschaft verwendet.

Wenn das Application.Startup -Ereignis tritt auf, wenn AutoDiscoverConnectionMode nicht gleich OlAutoDiscoverConnectionUnknown ist.
Tritt des NameSpace.AutoDiscoverComplete -Ereignisses, wenn AutoDiscoverConnectionMode nicht gleich OlAutoDiscoverConnectionUnknown ist.

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

Siehe auch

NameSpace-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über