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。