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