Свойство NameSpace.AutoDiscoverXml (Outlook)

Статья
04/07/2023

Возвращает строку, представляющую сведения в ФОРМАТЕ XML, полученные из службы автоматического обнаружения для сервера Microsoft Exchange, на котором размещена основная учетная запись Exchange. Только для чтения.

Синтаксис

выражение. AutoDiscoverXml

Выражение Переменная, представляющая объект NameSpace.

Замечания

Это свойство аналогично свойству AutoDiscoverXml объекта Account . Если в текущем профиле определено несколько учетных записей Exchange, используйте свойство AutoDiscoverXml для конкретной учетной записи.

Возвращаемая строка XML содержит сведения о различных веб-службах (например, службе доступности и службе единой системы обмена сообщениями) и доступных серверах.

Если активный профиль не содержит учетную запись, подключенную к серверу Microsoft Exchange Server 2007 или более поздней версии, возвращается ошибка.

Пример

NameSpace.AutoDiscoverXml — это XML-строка, возвращаемая службой автоматического обнаружения сервера Exchange Server. В следующем примере кода свойство AutoDiscoverConnectionMode используется для отображения доступности этой XML-строки во время обычного сеанса Outlook.

При возникновении события Application.Startup , если NameSpace.AutoDiscoverConnectionMode не равно olAutoDiscoverConnectionUnknown.
При возникновении события NameSpace.AutoDiscoverComplete значение , если autoDiscoverConnectionMode не равно 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

См. также

Объект NameSpace

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через