Outlook宏查找所有未读的电子邮件

Question

我试图浏览收件箱中所有未读的电子邮件，查找包含某个主题行的邮件，将其标记为未读，然后移至文件夹。

它适用于某些电子邮件，但不适用于所有未读的电子邮件，因此我不得不多次单击为宏创建的按钮，我不确定为什么。

这是宏：

Sub MoveAlerts()

On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("@Alerts")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = True")
Dim strSubject As String
For Each oMessage In oFilteredItems
      If InStr(oMessage.Subject, "high temperature") Or InStr(oMessage.Subject, "Temperature: High") Then
        oMessage.UnRead = False
        oMessage.Move oFolderDst
      End If
Next
End Sub