Share via

Propiedad NameSpace.AutoDiscoverXml (Outlook)

  • Artículo

Devuelve una cadena que representa información en XML que recupera desde el servicio de detección automática para el servidor de Microsoft Exchange que hospeda la cuenta principal de Exchange. Solo lectura.

Sintaxis

expresión. AutoDiscoverXml

Expresión Variable que representa un objeto "NameSpace".

Comentarios

Esta propiedad es similar a la propiedad AutoDiscoverXml del objeto Account. Si hay varias cuentas de Exchange definidas en el perfil actual, use la propiedad AutoDiscoverXml para la cuenta específica.

La cadena devuelta de XML contiene información sobre varios servicios Web (por ejemplo, servicio de disponibilidad y servicio de mensajería unificado) así como servidores disponibles.

Se devuelve un error si el perfil activo no contiene una cuenta conectada a un servidor de Microsoft Exchange Server 2007 o posterior.

Ejemplo:

NameSpace.AutoDiscoverXml es una cadena XML que se devuelve desde el servicio de detección automática del servidor de Exchange. El ejemplo de código siguiente utiliza la propiedad AutoDiscoverConnectionMode para mostrar cuando esta cadena XML está disponible durante una sesión normal de Outlook.

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

Consulte también

Objeto NameSpace

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.