通过

Inspectors.Add 方法 (Outlook)

  • 项目

创建新检查器窗口。

语法

表达式。加_Item_

表达 一个代表 Inspectors 对象的变量。

参数

名称 必需/可选 数据类型 说明
Item 必需 Object 创建检查器窗口时要在其中显示的项目。

返回值

一个代表新检查器窗口的 Inspector 对象。

备注

此方法是 Outlook 项目，如 MailItem 的 GetInspector 属性本质上是相同的。

示例

此 Microsoft 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。