Propiedad NameSpace.AutoDiscoverConnectionMode (Outlook)

Devuelve una constante OlAutoDiscoverConnectionMode que especifica el tipo de conexión para la detección automática del servidor de Microsoft Exchange que hospeda la cuenta principal de Exchange. Solo lectura.

Sintaxis

expresión. AutoDiscoverConnectionMode

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

Comentarios

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

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

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.