Outlook 2010，将电子邮件复制到文件夹并将复制的电子邮件标记为已读，但将原始电子邮件保留为未读答案

【问题标题】：Outlook 2010, copy an email into folder and mark copied email as read but keep original email as unreadOutlook 2010，将电子邮件复制到文件夹并将复制的电子邮件标记为已读，但将原始电子邮件保留为未读
【发布时间】：2014-09-26 03:34:54
【问题描述】：

我设置了规则，将包含某些关键字的电子邮件复制到特定文件夹并标记为已读。

我遇到的问题是，当它将这些电子邮件复制到文件夹时，它会将收件箱中的原始电子邮件标记为已读，这可能会导致我错过邮件。如果我没有将其标记为已读，那么当我在收件箱中阅读它时，它会在特定文件夹中保持未读状态。

我找不到任何规则属性来完成这个，有人有什么想法吗？

【问题讨论】：

你在使用交换吗？我认为 Outlook 不会通过交换电子邮件将它们标记为未读。其他电子邮件提供商（如 gmail）可能会导致您的问题。
作为解决方法，您可以将邮件移动到新文件夹，然后再次将邮件转发给自己。
@Mike Cheel 不仅仅是标准的 MS Outlook 2010
@davidhigh 可以工作，如果我找不到好的解决方案，我会试试这个。

标签： outlook-2010

【解决方案1】：

设置复制到目标文件夹但不标记为已读的规则。

将此未经测试的代码放在 ThisOutlookSession 模块中。假设目标文件夹直接位于收件箱下方。如果埋得更深，请根据需要添加 .Folders。

Option Explicit

' one line for each target folder
Private WithEvents myOlItemsA  As Outlook.Items
Private WithEvents myOlItemsB  As Outlook.Items

Private Sub Application_Startup()

    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")

    ' one line for each target folder
    Set myOlItemsA = objNS.GetDefaultFolder(olFolderInbox).Folders("targetfoldernameA").Items
    Set myOlItemsB = objNS.GetDefaultFolder(olFolderInbox).Folders("targetfoldernameB").Items

End Sub

' one copy of ItemAdd code for each target folder
Private Sub myOlItemsA_ItemAdd(ByVal item As Object)

    On Error GoTo ErrorHandler
    Dim Msg As Outlook.MailItem

    If TypeName(item) = "MailItem" Then
        Set Msg = item
        Msg.Unread = False
    End If

ProgramExit:
    Set Msg = Nothing
    Exit Sub

ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit

End Sub

Private Sub myOlItemsB_ItemAdd(ByVal item As Object)
 ' same code as for myOlItemsA
End Sub

代码基于这篇帖子Using VBA to read new Outlook Email?

规则将邮件移动到目标文件夹。 ItemAdd 代码作用于添加到目标文件夹的项目。

【讨论】：