Compartir a través de

Evento NameSpace.AutoDiscoverComplete (Outlook)

  • Artículo

Se produce después de que Microsoft Outlook haya finalizado el acceso al servicio de detección automática del servidor Microsoft Exchange que hospeda la cuenta principal de Exchange y tenga la información relacionada disponible en NameSpace.AutoDiscoverXml.

Sintaxis

expresión. AutoDiscoverComplete

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

Comentarios

Este evento es similar al evento AutoDiscoverComplete del objeto Accounts. Si hay varias cuentas de Exchange definidas en el perfil actual, use el evento AutoDiscoverComplete del objeto cuentas que especifica la cuenta en particular.

Ejemplo:

NameSpace.AutoDiscoverXml es una cadena XML que se devuelve desde el servicio de detección automática del servidor de Exchange. Ejemplo de código siguiente se muestra cuándo esta cadena XML está disponible durante una sesión normal de Outlook:

  1. Cuando se produce el evento Application.Startup, si NameSpace.AutoDiscoverConnectionMode no es igual a olAutoDiscoverConnectionUnknown

  2. Cuando se produce el evento 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.