NameSpace.AutoDiscoverXml-Eigenschaft (Outlook)

Artikel
04/07/2023

Gibt eine Zeichenfolge, die Informationen im XML-Code stellt abgerufen, die als Host des primären Exchange-Kontos aus den Auto-Discovery-Dienst für den Microsoft Exchange Server. Schreibgeschützt.

Syntax

Ausdruck. AutoDiscoverXml

Ausdruck Eine Variable, die ein NameSpace-Objekt darstellt.

Hinweise

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

Die zurückgegebene XML-Zeichenfolge enthält Informationen zu verschiedenen Webdiensten (z. B. zum Availability-Dienst und zum Unified Messaging-Dienst) sowie zu verfügbaren Servern.

Wenn das aktive Profil kein Konto enthält, das mit einem Server verbunden ist, der Microsoft Exchange Server 2007 oder eine höhere Version ausführt, wird ein Fehler zurückgegeben.

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 NameSpace.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