使用VBA从Excel生成Outlook回复邮件时如何保留原有邮件链？

你的现有代码问题是直接对.Body赋值，会覆盖Outlook调用ReplyAll后自动生成的包含历史邮件链、原有签名的默认正文内容，调整拼接逻辑即可实现需求： #

核心逻辑说明 #

• 调用ReplyAll方法后，Outlook会自动生成带完整历史邮件链的回复草稿
• 先执行.Display触发Outlook自动追加默认个人签名
• 再把你的自定义回复内容ChsBody插入到现有正文的最前面，不要直接覆盖

适配两种邮件格式的代码 #

1. 纯文本邮件场景 #

If OutItem.Class = olMail Then
    Set replyEmail = OutItem.ReplyAll
    With replyEmail
        ' 先触发显示，自动加载签名和历史邮件链
        .Display
        ' 把自定义回复拼接到原有正文（包含历史+签名）的最前面，可按需加换行分隔
        .Body = ChsBody & vbCrLf & vbCrLf & .Body
    End With
Else
    MsgBox "ERROR: Make sure email is selected"
End If

2. HTML格式邮件场景（更常用，保留格式、链接等） #

如果你的邮件是HTML格式，建议用.HTMLBody属性避免格式丢失：

If OutItem.Class = olMail Then
    Set replyEmail = OutItem.ReplyAll
    With replyEmail
        .Display
        ' HTML格式用<br>换行，按需调整间距
        .HTMLBody = ChsBody & "<br><br>" & .HTMLBody
    End With
Else
    MsgBox "ERROR: Make sure email is selected"
End If

注意事项 #

• 如果你的ChsBody本身是带格式的HTML内容，直接拼到.HTMLBody中即可保留格式
• 不需要手动调用.Signature方法，Outlook触发显示时会自动加载当前账号的默认签名
• 如果不需要立刻显示邮件，可把.Display替换为GetInspector，同样会触发签名加载：

  ' 替换.Display为以下代码，后台加载不弹出窗口
  Dim tempInspector As Object
  Set tempInspector = .GetInspector
  

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