Compartilhar via


Propriedade NameSpace.AutoDiscoverXml (Outlook)

Retorna uma cadeia de caracteres que representa as informações em XML recuperada do serviço de descoberta automática do Microsoft Exchange server que hospeda a conta principal do Exchange. Somente leitura.

Sintaxe

expression. AutoDiscoverXml

Expressão Uma variável que representa um objeto 'NameSpace'.

Comentários

Esta propriedade é semelhante à propriedade AutoDiscoverXml do objeto Account. Se houver várias contas do Exchange definidas no perfil atual, use a propriedade AutoDiscoverXml para a conta específica.

A cadeia de caracteres retornada de XML contém informações sobre vários serviços da Web (por exemplo, serviço de disponibilidade e serviço de mensagens unificado) e os servidores disponíveis.

Um erro será retornado se o perfil ativo não contiver uma conta que esteja conectada a um servidor Microsoft Exchange Server 2007 ou posterior.

Exemplo

Autodiscoverxml é uma sequência de caracteres XML que é retornada do serviço de descoberta automática do Exchange server. O exemplo de código a seguir usa a propriedade AutoDiscoverConnectionMode para mostrar quando esta cadeia de caracteres XML está disponível durante uma sessão do Outlook normal.

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

Confira também

Objeto NameSpace

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.