Outlook VBA教程:Sort方法

按指定属性对项目的集合进行排序。在完成该方法后将集合的索引重新设置为 1。

expression.Sort(Property, Descending, Order)

expression  必选。该表达式返回“应用于”列表中的一个对象。

Property  必选,String 类型。作为排序根据的属性名称,可以用方括号括起来(如“[CompanyName]”)。不能为用户定义的字段,也不能是多值属性,如“类别”。

Descending  适用于“应用于”列表中的所有对象,除了AddressEntries对象。对Results对象为可选的 Variant 类型;对所有其他对象为可选的 Boolean 类型。降序排列为 True。默认值为 False(升序)。

Order  仅适用于 AddressEntries对象。可选,Variant 类型。指定地址项的顺序。可以为以下 OlSortOrder 常量之一:olAscending、olDescending 或 olSortNone。

说明

对于Items集合,Sort 不能与以下属性一起使用,否则将导致出错:

Categories

Children

Class

Companies

CompanyLastFirstNoSpace

CompanyLastFirstSpaceOnly

Contacts

DLName

IsOnlineMeeting

LastFirstAndSuffix

LastFirstNoSpace

LastFirstNoSpaceCompany

LastFirstSpaceOnly

LastFirstSpaceOnlyCompany

MemberCount

NetMeetingAlias

NetMeetingAutoStart

NetMeetingOrganizerAlias

NetMeetingServer

NetMeetingType

RecurrenceState

ResponseState

Sent

Saved


Sort 仅影响集合中项目的顺序,不影响浏览器视图中项目的顺序。

VBA示例

本 Visual Basic for Applications 示例使用Sort方法按“CompanyName”属性对默认“联系人”文件夹的Items集合进行排序,然后按顺序显示单位名称。


Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(olFolderContacts)
Set myItems = myFolder.Items
myItems.Sort "[CompanyName]", False
For Each myItem in myItems
    MsgBox myItem.CompanyName
Next myItem

如果使用 VBScript,则不创建Application对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。


Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(10)
Set myItems = myFolder.Items
myItems.Sort "[CompanyName]", False
For Each myItem in myItems
    MsgBox myItem.CompanyName
Next

上页:Outlook VBA教程:Snooze方法 下页:Outlook VBA教程:Start方法

Outlook VBA教程:Sort方法:相关链接

Outlook VBA教程:Start方法 Outlook VBA教程:StartTimer方法
Outlook VBA教程:StatusReport方法 Outlook VBA教程:Stop方法
Outlook VBA教程:StopTimer方法 Outlook VBA教程:Update方法
Outlook VBA教程:Action对象 Outlook VBA教程:Actions对象
Outlook VBA教程:AddressEntries对象 Outlook VBA教程:AddressEntry对象
Outlook VBA教程:AddressList对象 Outlook VBA教程:AddressLists对象
Outlook VBA教程:Application对象 Outlook VBA教程:AppointmentItem对象
Outlook VBA教程:Attachment对象 Outlook VBA教程:Attachments对象
Outlook VBA教程:ContactItem对象 Outlook VBA教程:DistListItem对象
Outlook VBA教程:DocumentItem对象 Outlook VBA教程:Exception对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号