如何回复最近的电子邮件？

Question

我循环浏览收件箱中的所有电子邮件，并在收到邮件后立即停止。我得到最旧的。我想买最新的。

Dim objNS As Outlook.Namespace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Dim Item As Object

For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then
        Dim oMail As Outlook.MailItem: Set oMail = Item
        If InStr(oMail.Subject, "Whatever") > 0 Then
            'Do something
            Exit For
        End If
    End If
Next

Answer 1

您可以使用 MAPIFolder 对象的 Items.Sort 方法。

Dim objNS As Outlook.Namespace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
olFolder.Items.Sort "ReceivedTime", True  ' Sort items by received date in descending order
Dim Item As Object

For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then
        Dim oMail As Outlook.MailItem: Set oMail = Item
        If InStr(oMail.Subject, "Whatever") > 0 Then
            'Do something
            oMail.ReplyAll 
            oMail.Display 'This will open the reply window
            Exit For
        End If
    End If
Next

Answer 2

永远不要遍历文件夹中的所有项目，始终使用Items.Find/FindNext（如果你想查找一个或多个项目）或Items.Restrict（如果你想找到所有匹配项）。

如果您想要特定顺序的项目，请先使用 Items.Sort 对它们进行排序，例如 Items.Sort "ReceivedTime", true

在您参与的情况下，使用如下所示的查询。请注意，它位于 PR_NORMALIZED_SUBJECT MAPI 属性中，因为它已编入索引（与 PR_SUBJECT 不同）。

@SQL="http://schemas.microsoft.com/mapi/proptag/0x0E1D001F" LIKE '%whatever%'

以下将完成这项工作：

set oItems = olFolder.Items
oItems.Sort "ReceivedTime", true
set oMail = oItems.Find "@SQL=""http://schemas.microsoft.com/mapi/proptag/0x0E1D001F"" LIKE '%whatever%'"
if not (oMail is Nothing) Then
  'Do something
End If