次の方法で共有

Inspectors.Add メソッド (Outlook)

  • [アーティクル]

新しいインスペクター ウィンドウを作成します。

構文

式。足す_Item_

表現Inspectors オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Item 必須 オブジェクト型 (Object) 作成されたときにインスペクター ウィンドウに表示するアイテムを指定します。

戻り値

新しいインスペクター ウィンドウを表す Inspector オブジェクト。

解説

このメソッドは、 MailItem などの Outlook アイテムの GetInspector プロパティと基本的に同じです。

例

このマイクロソフトの Visual Basic for Applications (VBA) の例は、会社名の入力を求めます、 Restrict メソッドを使用してその名前を持つ連絡先] フォルダーですべての連絡先アイテムを検索し、それぞれを表示します。

Sub DisplayMyContacts() 
 
 Dim myFolder As Folder 
 
 Dim myItems As Items 
 
 Dim myRestrictItems As Items 
 
 Dim answer As String 
 
 Dim filter As String 
 
 Dim myInspector As Inspector 
 
 Dim x As Integer 
 
 
 
 answer = InputBox("Enter the company name") 
 
 Set myFolder = Application.GetNamespace("MAPI") _ 
 
 .GetDefaultFolder(olFolderContacts) 
 
 filter = "[MessageClass] = 'IPM.Contact' AND [CompanyName] = '" & answer & "'" 
 
 
 
 Set myItems = myFolder.Items 
 
 Set myRestrictItems = myItems.Restrict(filter) 
 
 For x = 1 To myRestrictItems.Count 
 
 Set myInspector = Application.Inspectors.Add(myRestrictItems.Item(x)) 
 
 myInspector.Display 
 
 Next x 
 
End Sub

関連項目

インスペクター オブジェクト

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

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