Outlook VBA回复邮件保留会话链并自定义内容时触发错误'287'

问题根源 #

运行时错误287及会话链丢失的核心原因：错误拼接原邮件的HTMLBody，而非使用Reply方法生成的回复邮件自带的会话结构。直接调用latestEmail.HTMLBody会破坏Outlook自动生成的会话引用格式，同时触发对象模型的权限/格式校验错误。

修正方案 #

关键修改点 #

1. 放弃直接使用原邮件的HTMLBody，改用回复邮件（ReplyEmail）自身的HTMLBody——Reply方法已自动将原邮件的会话引用（含格式、引用标记）嵌入到回复邮件的HTML中。
2. 将自定义strHTML拼接在回复邮件原有HTML内容的前面，既保留会话链，又添加自定义回复内容。

修正后的完整代码 #

'set the subject to search for
SubjectToSearch = ShEmail.Range("b3").Value

'to get the inbox folder
Set outlookapp = CreateObject("outlook.application")
Set outlooknamespace = outlookapp.GetNamespace("MAPI")
Set inboxfolder = outlooknamespace.GetDefaultFolder(6)

Set mailitems = inboxfolder.Items

'sort the emails
mailitems.Sort "ReceivedTime", True

'initialize variables
latestreceivedtime = DateSerial(2023, 1, 1) '修正原代码拼写错误：latestreceivedtiem -> latestreceivedtime
foundEmail = False '初始化变量，避免未定义值

For Each mailitem In mailitems
    If mailitem.Subject = SubjectToSearch Then
        'check if the current email is the latest one
        If mailitem.ReceivedTime > latestreceivedtime Then
            Set latestEmail = mailitem
            latestreceivedtime = mailitem.ReceivedTime
            foundEmail = True
        End If
    End If
Next mailitem

If foundEmail Then
    Dim ReplyEmail As Object
    Set ReplyEmail = latestEmail.Reply

    With ReplyEmail
        .To = ShEmail.Range("B1")
        .CC = ShEmail.Range("B2")
        '无需手动添加Re:，Reply方法会自动生成
        '.Subject = "Re: " & latestEmail.Subject

        '关键修改：将自定义HTML拼在回复邮件原有内容前，保留会话链
        .HTMLBody = strHTML & .HTMLBody
        .Attachments.Add AttachmentPath1
        
        .Display
    End With
Else
    MsgBox "未找到主题为：" & SubjectToSearch & "的邮件", vbInformation
End If

额外注意事项 #

• 确保strHTML是格式正确的HTML片段（比如包含<p>等标签），避免破坏整体HTML结构。
• 原代码存在拼写错误：latestreceivedtiem已修正为latestreceivedtime。
• 无需手动设置回复主题，Reply方法会自动添加Re:前缀并继承原主题。
• 若仍出现287错误，检查Outlook安全设置：确保宏启用，或改用Outlook对象库引用（而非后期绑定CreateObject），部分Outlook版本会限制后期绑定对象的HTMLBody修改权限。

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