找到收件箱中最早的电子邮件，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