vba - 如何按日期对电子邮件进行排序并打开找到的最新电子邮件？

Question

我想知道是否有办法按日期对电子邮件进行排序，然后打开找到的最新电子邮件。

我正在尝试搜索在正文中具有唯一标签的电子邮件。为了避免具有相同标签的重复电子邮件，我必须按日期对这些电子邮件进行排序并打开找到的最新电子邮件以便我可以回复它。

Answer 1

您需要 Sort ReceivedTime 上的电子邮件属性，它返回一个 Date 指示接收项目的日期和时间。

 Sub SortByDate() 
  Dim myNameSpace As Outlook.NameSpace 
  Dim myFolder As Outlook.Folder 
  Dim myItem As Outlook.MailItem 
  Dim myItems As Outlook.Items 

  Set myNameSpace = Application.GetNamespace("MAPI") 
  Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) 
  Set myItems = myFolder.Items 
  myItems.Sort "[ReceivedTime]"
  For Each myItem In myItems 
   MsgBox myItem.Subject & " ---- " & myItem.ReceivedTime
  Next myItem 
 End Sub