如何通过VBA读取htm文件并添加至Outlook邮件.HTMLBody？

阿华AIGC实验室

2026-5-26

我来帮你搞定这个问题！要把本地HTM文件的内容整合到Outlook邮件的HTMLBody里，核心是先读取HTM文件的文本内容，再把你要插入的单元格区域转换成HTML格式，最后通过占位符替换的方式把两者合并，再赋值给邮件的HTMLBody属性。下面是具体的实现步骤和修改后的代码：

1. 编写读取HTM文件的函数

我们用Scripting.FileSystemObject来读取HTM文件内容，这个方法简单可靠，还能处理文件不存在的异常情况：

Function ReadHTMFile(filePath As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件是否存在，避免报错
    If Not fso.FileExists(filePath) Then
        ReadHTMFile = ""
        Exit Function
    End If
    
    ' 以Unicode编码读取文件全部内容
    Set ts = fso.OpenTextFile(filePath, 1, False, -2)
    ReadHTMFile = ts.ReadAll
    ts.Close
    
    ' 清理对象
    Set ts = Nothing
    Set fso = Nothing
End Function

2. 把单元格区域转换成HTML格式

用Excel的PublishObjects功能把指定区域生成临时HTML，这样能完整保留单元格的格式（颜色、边框、合并单元格等）：

Function RangeToHTML(rng As Range) As String
    Dim tempWB As Workbook
    Dim tempPath As String
    
    ' 创建临时工作簿，复制目标区域
    Set tempWB = Workbooks.Add(xlWBATWorksheet)
    rng.Copy tempWB.Sheets(1).Range("A1")
    
    ' 生成临时HTML文件路径（存在系统临时文件夹）
    tempPath = Environ("TEMP") & "\temp_email_range.html"
    
    ' 将区域发布为静态HTML
    tempWB.PublishObjects.Add( _
        SourceType:=xlSourceRange, _
        Filename:=tempPath, _
        Sheet:=tempWB.Sheets(1).Name, _
        Source:=tempWB.Sheets(1).UsedRange.Address, _
        HtmlType:=xlHtmlStatic).Publish True
    
    ' 读取临时HTML内容
    RangeToHTML = ReadHTMFile(tempPath)
    
    ' 清理临时文件和工作簿
    Kill tempPath
    tempWB.Close False
    Set tempWB = Nothing
End Function

3. 修改你的邮件发送主程序

在主程序里整合HTM模板和单元格HTML，用占位符替换的方式把表格内容插入到模板的指定位置：

Sub Send_To_Outlook()
    Dim Sendrng As Range
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim htmTemplatePath As String
    Dim htmTemplateContent As String
    Dim rangeHTML As String
    
    ' 让用户选择要发送的单元格区域
    Set Sendrng = Application.InputBox("选择要发送的单元格区域", Type:=8)
    
    ' 设置你的HTM模板文件绝对路径（替换成你实际的路径）
    htmTemplatePath = "C:\Templates\email_template.htm"
    
    ' 读取HTM模板内容
    htmTemplateContent = ReadHTMFile(htmTemplatePath)
    If htmTemplateContent = "" Then
        MsgBox "HTM模板文件不存在或读取失败！", vbExclamation
        Exit Sub
    End If
    
    ' 获取单元格区域的HTML代码
    rangeHTML = RangeToHTML(Sendrng)
    
    ' 替换模板中的占位符（模板里要提前写好<!--TABLE_CONTENT-->标记）
    htmTemplateContent = Replace(htmTemplateContent, "<!--TABLE_CONTENT-->", rangeHTML)
    
    ' 创建Outlook邮件对象
    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)
    
    On Error Resume Next
    With outlookMail
        .To = "收件人邮箱@example.com" ' 替换成实际收件人
        .CC = "抄送人邮箱@example.com" ' 可选，不需要就注释掉
        .Subject = "你的邮件主题" ' 替换成实际主题
        .HTMLBody = htmTemplateContent ' 赋值整合后的HTML内容
        '.Attachments.Add "C:\附件路径\file.pdf" ' 可选添加附件，不需要就注释掉
        .Display ' 先预览效果，确认没问题再改成.Send直接发送
    End With
    On Error GoTo 0
    
    ' 清理对象
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

4. 编写你的HTM模板示例

在HTM文件里提前写好邮件的固定内容和样式，用作为表格内容的占位符：

<!DOCTYPE html>
<html>
<head>
    <meta charset="UTF-8">
    <style>
        /* 自定义邮件样式，比如表格、文字格式 */
        table {
            border-collapse: collapse;
            width: 100%;
            margin: 15px 0;
        }
        th, td {
            border: 1px solid #ddd;
            padding: 8px;
            text-align: left;
        }
        th {
            background-color: #f5f5f5;
            font-weight: bold;
        }
        .email-title {
            font-size: 20px;
            color: #2c3e50;
            margin-bottom: 10px;
        }
        .email-footer {
            margin-top: 20px;
            color: #7f8c8d;
            font-size: 14px;
        }
    </style>
</head>
<body>
    <div class="email-title">最新数据报表</div>
    <p>您好，以下是本次更新的数据内容：</p>
    
    <!--TABLE_CONTENT--> <!-- 这个占位符会被单元格区域的HTML替换 -->
    
    <div class="email-footer">如有疑问，请随时联系。<br>此致<br>你的名字</div>
</body>
</html>

注意事项

确保HTM模板的路径是绝对路径，避免因相对路径导致文件找不到；
测试时先用.Display预览邮件格式，确认没问题再改成.Send直接发送；
如果Excel提示权限问题，需要确保启用了脚本访问（一般默认允许，若报错可在VBA编辑器的「工具」→「引用」里勾选「Microsoft Scripting Runtime」）。

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