Outlook VBA按日期排序

Question

我正在构建一个代码，用于在Outlook文件夹中执行搜索，并将这些项目的主体放在一起（仅为一个项目构建历史记录）。

我正在使用Find方法执行搜索（不确定是否全部正确）。一旦我得到搜索结果，我会把它们放入一个数组中。

有没有办法按日期排序数组？调用find前

Dim olApp As Outlook.Application 
Dim olNs As Outlook.Namespace 
Dim olFldr As Outlook.MAPIFolder 
Dim olItms As Outlook.Items 
Dim olMail As Variant 
Dim MyArray() As String 


Set olApp = New Outlook.Application 
Set olNs = olApp.GetNamespace(”MAPI”) 
Set olFldr = olNs.GetDefaultFolder(olFolderInbox) 
Set olItms = olFldr.Items 


Set olMail = myTasks.Find("[Subject] = ""*140115LS*""") 
    If Not (olMail Is Nothing) Then 

MyArray = olMail.Display 

Answer 1

'... 
Dim sFilter as string 
sFilter = "@SQL=""urn:schemas:mailheader:subject"" like '%140115LS%' " 

Set olFldr = olNs.GetDefaultFolder(olFolderInbox) 

Set olItms = olFldr.Items 
Set olMail = olItms.Find(sFilter) 

Do While Not olMail Is Nothing 
    'add to array... 

    Set olMail = olItms.FindNext 
Loop 
'... 

Answer 2

呼叫olItms.Sort("[ReceivedTime]")：我不断收到一个错误与下面的代码。您还需要在循环中调用FindNext，直到它返回null。