Excel VBA替换OFT模板内容时保留格式问题求助

你的核心问题出在错误使用了OutMail.Body属性——这个属性本身就是纯文本类型，不管你怎么设置BodyFormat，直接赋值都会把模板的富文本/HTML格式强制转换成纯文本，这就是格式丢失的根本原因。修改To/Subject不影响格式是因为这些字段本身不涉及正文格式渲染。

下面给你两种可行的解决方案，根据你的OFT模板复杂度选择：

方案1：使用HTMLBody替换（适合HTML格式的OFT） #

如果你的OFT模板是基于HTML格式创建的，直接操作HTMLBody属性来替换内容，能完整保留格式：

Sub SendMailFromOFT_HTML()
    Dim OutlookApp As Object
    Dim OutMail As Object
    Dim TemplatePath As String
    Dim HTMLContent As String
    
    TemplatePath = "C:\YourTemplate.oft" '替换为你的OFT路径
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutMail = OutlookApp.CreateItemFromTemplate(TemplatePath)
    
    '读取模板的HTML内容，替换占位符（比如{{Name}}、{{Data}}）
    HTMLContent = OutMail.HTMLBody
    HTMLContent = Replace(HTMLContent, "{{Name}}", Range("A2").Value) '替换表格数据
    HTMLContent = Replace(HTMLContent, "{{OrderNo}}", Range("B2").Value)
    
    '重新赋值HTMLBody，保留格式
    OutMail.HTMLBody = HTMLContent
    
    '设置其他字段
    OutMail.To = "recipient@example.com"
    OutMail.Subject = "Updated Subject"
    
    '预览或发送
    OutMail.Display '先预览确认格式，没问题再改成OutMail.Send
    Set OutMail = Nothing
    Set OutlookApp = Nothing
End Sub

方案2：使用WordEditor编辑（适合复杂富文本/RTF格式的OFT） #

如果你的OFT包含复杂格式（比如嵌套表格、特殊字体、图片），用Outlook内置的Word对象模型编辑是最稳妥的方式，完全继承模板格式：

Sub SendMailFromOFT_WordEditor()
    Dim OutlookApp As Object
    Dim OutMail As Object
    Dim TemplatePath As String
    Dim WordDoc As Object
    
    TemplatePath = "C:\YourTemplate.oft"
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutMail = OutlookApp.CreateItemFromTemplate(TemplatePath)
    
    '启用Word编辑器
    OutMail.Display '必须先Display才能获取WordEditor
    Set WordDoc = OutMail.GetInspector.WordEditor
    
    '查找替换占位符，保留格式
    With WordDoc.Content.Find
        .Text = "{{CustomerName}}"
        .Replacement.Text = Range("A2").Value
        .MatchWholeWord = True
        .Execute Replace:=2 'wdReplaceAll，对应数值2
    End With
    
    With WordDoc.Content.Find
        .Text = "{{TotalAmount}}"
        .Replacement.Text = Format(Range("C2").Value, "$#,##0.00")
        .MatchWholeWord = True
        .Execute Replace:=2
    End With
    
    '设置其他字段
    OutMail.To = "recipient@example.com"
    OutMail.Subject = "Invoice Notification"
    
    '发送或保存
    'OutMail.Send
    Set WordDoc = Nothing
    Set OutMail = Nothing
    Set OutlookApp = Nothing
End Sub

额外排查要点 #

• 确认你的OFT模板格式：右键OFT文件→属性→详细信息，查看“格式”字段是HTML还是RTF，对应选择上述方案
• 不要混合使用Body和HTMLBody/WordEditor，否则会触发格式转换
• 测试时先使用OutMail.Display预览，确认格式正常后再发送，避免不必要的错误邮件

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