Excel VBA：如何保留原内容并更新ReplyAll.HTMLBody

你的代码问题在于直接将纯文本字符串与完整的HTML文档拼接，而原ReplyAll生成的邮件HTMLBody是包含<html>、<body>等完整结构的HTML文档。把"Hello world"加在HTML文档最前面，会让这段文本处于HTML规范的结构之外，Outlook的邮件渲染引擎会忽略这部分内容，所以只显示原有的HTML内容。

要正确添加内容，需要将新内容插入到HTML的<body>标签内部，比如在<body>开头的位置插入。以下是修正后的代码：

mMail.BodyFormat = olFormatHTML
On Error Resume Next
Dim replyMail As MailItem
Set replyMail = mMail.ReplyAll

' 在<body>标签后插入新内容
Dim bodyStartPos As Integer
bodyStartPos = InStr(1, replyMail.HTMLBody, "<body", vbTextCompare)
If bodyStartPos > 0 Then
    ' 定位到<body>标签的结束位置（>符号之后）
    bodyStartPos = InStr(bodyStartPos, replyMail.HTMLBody, ">") + 1
    ' 将新内容用HTML标签包裹后插入
    replyMail.HTMLBody = Left(replyMail.HTMLBody, bodyStartPos - 1) & "<p>Hello world</p>" & Mid(replyMail.HTMLBody, bodyStartPos)
End If

replyMail.Display
Set replyMail = Nothing
On Error GoTo 0

• 用InStr结合vbTextCompare查找<body>标签，兼容大小写不同的情况（比如<BODY>）
• 将新内容用<p>标签包裹，保证符合HTML结构，能被正确渲染
• 通过字符串截取和拼接，把新内容插入到<body>标签的起始位置，不会破坏原HTML结构

如果需要添加更复杂的HTML内容，直接替换<p>Hello world</p>为对应的HTML代码即可。

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