Table.Sort 方法 (Outlook)
按 SortProperty 中指定的属性对 Table 的行进行排序,并将当前行重置为 Table 中第一行之前。
语法
表达式。排序 (SortProperty, 降序)
表达 一个代表 Table 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
SortProperty | 必需 | String | 指定要使用的 表 的行进行排序的属性。 |
Descending | 可选 | Boolean | 是否对 表 按降序进行排序。 |
备注
SortProperty 可以是任何显式内置属性或自定义属性,但二进制属性和多值属性除外。 属性必须通过其显式字符串名称进行引用;它不能通过命名空间进行引用。 有关指定排序属性的详细信息,请参阅 对文件夹中的项目进行排序。
对表排序等效于调用 MoveToStart 方法。 光标将定位到 Table 的开头。
如果先调用 Table.Sort 再调用 Table.Restrict,则新 Table 中的已筛选项目将按相同的 SortProperty 和 SortOrder 进行排序。
Table.Sort 仅支持单个列上排序。
示例
下面的代码示例演示如何基于 ReceivedTime 属性 表 中的行进行排序,并将打印排序表中每一行的 MAPI 规范化主题属性的值。
Sub SortTableByReceivedTime()
Dim oT As Outlook.Table
Dim oRow As Outlook.Row
Set oT = Session.GetDefaultFolder(olFolderInbox).GetTable
'Add normalized subject (subject without RE:, FW: and other prefixes)to the column set
oT.Columns.Add ("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
'Sort by ReceivedTime in descending order
oT.Sort "[ReceivedTime]", True
Do Until oT.EndOfTable
Set oRow = oT.GetNextRow
'Print the normalized subject of each row
Debug.Print oRow("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
Loop
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。