Propriété NameSpace.AutoDiscoverXml (Outlook)

Article
04/07/2023

Renvoie une valeur de type String qui représente des informations XML récupérées du service de découverte automatique du serveur Microsoft Exchange qui héberge le compte Exchange principal. En lecture seule.

Syntaxe

expression. AutoDiscoverXml

Expression Variable qui représente un objet « NameSpace ».

Remarques

Cette propriété est similaire à la propriété AutoDiscoverXml de l’objet Account . S’il y a plusieurs comptes Microsoft Exchange dans le profil actif, utilisez la propriété AutoDiscoverXml du compte spécifique.

La chaîne XML renvoyée contient des informations sur les différents services Web (par exemple, le service de disponibilité et le service de messagerie unifié) et les serveurs disponibles.

Une erreur est renvoyée si le profil actif ne contient pas un compte connecté à un serveur Microsoft Exchange Server 2007 ou ultérieur.

Exemple

NameSpace.AutoDiscoverXml est une chaîne XML qui est renvoyée du service de découverte automatique du serveur Exchange. L’exemple de code suivant utilise la propriété AutoDiscoverConnectionMode pour indiquer lorsque cette chaîne XML est disponible pendant une session Outlook normale.

Lorsque l’événement Application.Startup se produit, si NameSpace.AutoDiscoverConnectionMode n’est pas égal à olAutoDiscoverConnectionUnknown.
Lorsque l’événement NameSpace.AutoDiscoverComplete se produit, si AutoDiscoverConnectionMode n’est pas égal à 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

Voir aussi

Objet NameSpace

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via