NameSpace.AutoDiscoverXml プロパティ (Outlook)

XML で情報を表す 文字列 を返しますから取得した Microsoft Exchange サーバーの自動検出サービスをホストしている Exchange のプライマリ アカウントです。 読み取り専用です。

構文

式。 AutoDiscoverXml

式 'NameSpace' オブジェクトを表す変数。

注釈

このプロパティは、 アカウント オブジェクトの AutoDiscoverXml プロパティに似ています。 現在のプロファイルで定義されている複数の Exchange アカウントがある場合は、特定のアカウントの AutoDiscoverXml プロパティを使用します。

返される XML の文字列には、可用性サービスやユニファイド メッセージング サービスなどの各種 Web サービスや、利用可能なサービスについての情報が含まれます。

アクティブなプロファイルに Microsoft Exchange Server 2007 またはそれ以降のサーバーに接続されたアカウントが含まれていない場合は、エラーが返されます。

例

NameSpace.AutoDiscoverXml は、Exchange サーバーの自動検出サービスから返される XML 文字列です。 次のコード サンプルでは、この XML 文字列は、通常の Outlook セッション中に使用可能なときに表示する AutoDiscoverConnectionMode プロパティを使用します。

• 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 Object

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。