Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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 "Espaço de Nomes".
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.