查找收件箱中最舊的電子郵件，Outlook

Question

我需要獲取一個msgbox，它顯示Outlook中收件箱中最舊電子郵件的日期，但我無法找到它，儘管我大致嘗試過。

我知道它一定是一個簡單的句子，但我無法找到它。

請任何人給我任何提示？只是一個簡單的代碼...

在此先感謝。

Answer 1

set folder = Application.Session.GetDefaultFolder(olFolderInbox) 
set items = folder.Items 
items.Sort "[ReceivedTime]", false 
set oldestMessage = items.GetFirst 
Msgbox oldestMessage.Subject & " " & oldestMessage.ReceivedTime