Метод Items.Sort (Outlook)

Статья
04/07/2023

Сортирует коллекцию элементов по указанному свойству. Индекс для коллекции сбрасывается до 1 после завершения этого метода.

Синтаксис

expression. Сортировка (свойство, убывание)

Выражение Переменная, представляющая объект Items .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Свойство	Обязательный	String	Имя свойства, по которому выполняется сортировка, которое может быть заключено в квадратные скобки, например "[Имя_компании]". Определяемые пользователем свойства, содержащие пробелы, должны быть заключены в квадратные скобки. Может не быть определяемым пользователем свойством ключевых слов типа и не может быть многозначным свойством, например категорией. Для определяемых пользователем свойств свойство должно существовать в коллекции UserDefinedProperties для Items.Parent, которая представляет объект Folder , содержащий элементы.
По убыванию	Необязательный	Variant	Значение True для сортировки в порядке убывания. Значение по умолчанию — False (по возрастанию).

Замечания

Сортировка влияет только на порядок элементов в коллекции. Это не влияет на порядок элементов в представлении обозревателя.

Сортировка не может использоваться и вызовет ошибку, если параметр свойства имеет одно из следующих свойств:

Categories	LastFirstSpaceOnly
Class	MemberCount
CompanyLastFirstNoSpace	NetMeetingAlias
CompanyLastFirstSpaceOnly	RecurrenceState
DLName	ResponseState
LastFirstAndSuffix	Saved
LastFirstNoSpace	Sent
LastFirstNoSpaceCompany

Пример

В следующем примере Visual Basic для приложений (VBA) метод Sort используется для сортировки коллекции Items для папки Задач по умолчанию по свойству DueDate и отображает даты выполнения по очереди.

Sub SortByDueDate() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItem As Outlook.TaskItem 
 Dim myItems As Outlook.Items 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks) 
 Set myItems = myFolder.Items 
 myItems.Sort "[DueDate]", False 
 For Each myItem In myItems 
 MsgBox myItem.Subject & "-- " & myItem.DueDate 
 Next myItem 
End Sub

См. также

Объект Items

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через