Propiedad NameSpace.AutoDiscoverXml (Outlook)
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.
Cuando se produce el evento Application.Startup, si NameSpace.AutoDiscoverConnectionMode no es igual a olAutoDiscoverConnectionUnknown.
Cuando se produce el evento NameSpace.AutoDiscoverComplete, si AutoDiscoverConnectionMode no es igual a 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
Consulte también
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.