ソートされない例
Dim objFolder As Outlook.Folder
' フォルダのアイテムに対して直接ソートをかける
objFolder .items.Sort "[ReceivedTime]", True
ソートされる例
Dim objFolder As Outlook.Folder
Dim items As Items
' フォルダのアイテムをコピーした配列に対してソートをかける
Set items = objFolder .items
items.Sort "[ReceivedTime]", True