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

Статья
04/07/2023

Возвращает константу OlAutoDiscoverConnectionMode , указывающую тип подключения для автоматического обнаружения сервера Microsoft Exchange, на котором размещена основная учетная запись Exchange. Только для чтения.

Синтаксис

выражение. AutoDiscoverConnectionMode

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

Замечания

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

Пример

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

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

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