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.

• Quando o evento Application. Startup ocorre, se namespace. Autodiscoverconnectionmode não for igual a olAutoDiscoverConnectionUnknown.

• Quando o evento namespace. Autodiscovercomplete ocorre, se AutoDiscoverConnectionMode não for 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

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.