在Outlook中打开一个子文件夹并打开最新的电子邮件？

Question

这是我到目前为止，我在"**._**" folder("Delete Transactions")时遇到错误。

Sub OpenDeleteTransactions()

   Dim Ns As Outlook.NameSpace

   Set Ns = Application.GetNamespace("MAPI")

   Set Items = Ns.GetDefaultFolder(olFolderInbox).Items

   Set Items = Session.GetDefaultFolder(olFolderInbox)._

   Folders("Delete Transactions").Items

   Set Items = Application.ActiveExplorer.CurrentFolder.Items

End Sub

以上不起作用......

Answer 1

对项目集合进行排序并检索第一个（或最后一个，具体取决于您对它的排序方式）项目：

Items.Sort("ReceivedTime", true)
set LatestMessage = Items.GetFirst()
MsgBox LatestMessage.Subject