如何通过Outlook VBA将原邮件标记为已回复而非已转发

• Outlook 内置的MailItem.Forward方法会自动给原邮件设置MAPI层的“已转发”标记，这个行为没有公开参数可以直接关闭，需要通过PropertyAccessor手动修改底层标记值。
• 只要清除原邮件的“已转发”标记位、写入“已回复”标记位，就能让原邮件显示为已回复状态，和手动点击“全部回复”后的界面表现完全一致。
• 原代码存在冗余设计：每次循环调用mail.ReplyAll会临时生成多个独立的回复邮件对象，既会造成内存泄漏，还会提前给原邮件打“已回复”标记、再被Forward的自动逻辑覆盖为“已转发”，完全没必要——直接读取原邮件自身的To、CC字段，就能拿到原邮件链所有相关人的地址，不需要依赖ReplyAll对象。另外原代码把CC字段的内容拼接到To字段里，也会导致收件人、抄送人的分区错乱。

Sub my_test()
    ' 定义MAPI属性常量，用于修改邮件状态标记
    Const PR_MESSAGE_FLAGS As String = "http://schemas.microsoft.com/mapi/proptag/0x0E090003"
    Const MSGFLAG_ANSWERED As Long = &H10  ' 对应已回复标记位
    Const MSGFLAG_FWDED As Long = &H20     ' 对应已转发标记位
    
    Dim objItem As Object
    Dim mail As MailItem
    Dim forwardMail As MailItem
    Dim templateItem As MailItem
    Dim pa As PropertyAccessor
    Dim msgFlags As Long
    
    For Each objItem In ActiveExplorer.Selection
        If objItem.Class = olMail Then
            Set mail = objItem
            ' 生成转发邮件项
            Set forwardMail = mail.Forward
            ' 加载自定义模板
            Set templateItem = CreateItemFromTemplate("C:\template.oft")
            
            With forwardMail
                ' 拼接模板内容与原邮件正文
                .HTMLBody = templateItem.HTMLBody & .HTMLBody
                ' 直接读取原邮件的收件人、抄送人列表，无需生成ReplyAll对象
                .To = mail.To
                .CC = mail.CC
                .Display
            End With
            
            ' 手动修改原邮件的状态标记
            Set pa = mail.PropertyAccessor
            ' 读取当前的状态标记值
            msgFlags = pa.GetProperty(PR_MESSAGE_FLAGS)
            ' 清除自动生成的已转发标记
            msgFlags = msgFlags And (Not MSGFLAG_FWDED)
            ' 写入已回复标记
            msgFlags = msgFlags Or MSGFLAG_ANSWERED
            ' 写回修改后的属性，保存生效
            pa.SetProperty PR_MESSAGE_FLAGS, msgFlags
            mail.Save
        End If
    Next
End Sub

• 状态修改通过原生MAPI属性完成，不依赖第三方插件，兼容Outlook 2010及之后的所有正式版本。
• 标记修改后需要调用mail.Save才能持久化，否则刷新视图后状态会恢复。
• 拆分To、CC的赋值逻辑后，不会出现半角/全角分隔符导致的地址识别错误问题。

内容的提问来源于stack exchange，提问作者Fr0zt