通过

Table.Restrict 方法 (Outlook)

  • 项目

将筛选器应用于 表 中的行，并获得新的 表 对象。

语法

expression。 Restrict( _Filter_ )

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

参数

名称 必需/可选 数据类型 说明
Filter 必需 String 在 Table 对象中指定的条件的行。

返回值

通过将 Filter 应用于父 Table 对象中的行返回的 Table 对象。

备注

您只能使用 Table.Restrict 将另一个筛选器应用于 表 ，如果 表 的父对象是 文件夹 对象。 如果父对象是 搜索 对象， 限制 将返回一个错误。

由于筛选器应用于 Table 对象中的行，这等效于应用一个筛选器，该筛选器是 Filter 的逻辑 AND，以及应用于同一 Table 对象的所有上述筛选器。

筛选器 是对在父 Table 中表示为行的项的指定属性的查询。 该查询使用 Microsoft Jet 语法或 DAV 搜索和定位 (DASL) 语法。 例如，下面的 Jet 筛选器和 DASL 筛选器指定项的条件与 LastModificationTime 早于 2005 年 6 月 12 日下午 3:30:

criteria = "[LastModificationTime] < '" & Format$("6/12/2005 3:30PM","General Date") & "'"criteria = "@SQL=" & Chr(34) & "DAV:getlastmodified" & Chr(34) 
 & " < '" & Format$("6/12/2005 3:30PM","General Date") & "'"

有关为 Table 对象指定筛选器的详细信息，请参阅筛选项目。

如果 Filter 包含自定义属性，则这些属性必须存在于 Table 对象的父文件夹中，才能使限制正常工作。 在包括二进制属性、 计算的属性和 HTML 或 rtf 格式的正文内容的 表 筛选器不支持其中一些属性。 有关详细信息，请参阅 Table 对象或 Table 筛选器中不受支持的属性。

如果 Filter 是空字符串，则 Restrict 返回与父 Table 对象相同的 Table 对象。

示例

下面的代码示例获取具有大于 2005 年 11 月 1 日 LastModificationTime 项目的收件箱中的项目应用一个 Jet 筛选器。 然后输出的收件箱中的这些项的默认属性值: EntryID 、 主题 、 CreationTime 、 LastModificationTime 和 邮件类 。

注意

[!注释] 由于种类的项目可以在 Outlook 中的同一个文件夹中存在，返回将筛选器应用于收件箱中的项目可能的不同类型。 一般情况下，然后才能访问任何属性都不是在收件箱中项目的默认属性，您应该检查项的 邮件类 。

Sub RestrictTable() 
 'Declarations 
 Dim Filter As String 
 Dim oRow As Outlook.Row 
 Dim oTable As Outlook.Table 
 Dim oFolder As Outlook.Folder 
 
 'Get a Folder object for the Inbox 
 Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 'Define Filter to obtain items last modified after November 1, 2005 
 Filter = "[LastModificationTime] > '11/1/2005'" 
 'Restrict with Filter 
 Set oTable = oFolder.GetTable(Filter) 
 
 'Enumerate the table using test for EndOfTable 
 Do Until (oTable.EndOfTable) 
 Set oRow = oTable.GetNextRow() 
 Debug.Print (oRow("EntryID")) 
 Debug.Print (oRow("Subject")) 
 Debug.Print (oRow("CreationTime")) 
 Debug.Print (oRow("LastModificationTime")) 
 Debug.Print (oRow("MessageClass")) 
 Loop 
End Sub

另请参阅

表对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。