我太懂你遇到的这个坑了——手动切换格式能完美压缩体积还保留样式，但直接用VBA改BodyFormat属性根本没效果，尤其是带图片的邮件，完全达不到预期。这是因为Outlook的富文本转HTML不是单纯改个属性就行的，它需要触发内部的内容渲染逻辑，把富文本里的嵌入图片、格式标记转换成对应的HTML结构，而手动操作时Outlook其实是偷偷调用了Word的编辑引擎来完成这个转换的。

下面是经过验证的VBA方案，完全模拟手动操作的逻辑，能正确转换带图片的富文本邮件，同时保留格式并大幅减小体积：

核心思路 #

1. 借助Outlook内置的Word编辑器（和你手动编辑邮件用的是同一个工具）来渲染富文本内容
2. 将渲染后的内容保存为标准HTML格式
3. 替换原邮件的内容并切换为HTML格式
4. 自动保存并清理临时文件

完整VBA代码 #

Sub ConvertRichTextToHTML()
    Dim olApp As Outlook.Application
    Dim olFolder As Outlook.Folder
    Dim olMail As Outlook.MailItem
    Dim wordDoc As Word.Document
    Dim htmlContent As String
    Dim tempPath As String
    
    ' 初始化Outlook应用实例
    Set olApp = Outlook.Application
    
    ' 让用户选择要处理的目标文件夹（比如收件箱、已发送邮件等）
    Set olFolder = olApp.Session.PickFolder
    If olFolder Is Nothing Then
        MsgBox "未选择任何文件夹，操作已终止。", vbExclamation
        Exit Sub
    End If
    
    ' 创建临时HTML文件路径（系统临时文件夹，避免权限问题）
    tempPath = Environ("TEMP") & "\temp_email_convert.html"
    
    ' 遍历目标文件夹中的所有邮件
    For Each olMail In olFolder.Items
        ' 只处理富文本格式的邮件（跳过已为HTML或纯文本的邮件）
        If olMail.Class = olMail And olMail.BodyFormat = olFormatRichText Then
            On Error Resume Next ' 捕获单个邮件的处理错误，不中断批量操作
            
            ' 后台打开邮件检查器（不可见，避免干扰日常操作）
            olMail.Display (False)
            
            ' 获取邮件的Word编辑器对象（核心：用Word来处理格式转换）
            Set wordDoc = olMail.GetInspector.WordEditor
            
            ' 将富文本内容保存为HTML格式的临时文件
            wordDoc.SaveAs2 tempPath, wdFormatHTML
            
            ' 读取临时HTML文件的内容
            Open tempPath For Input As #1
            htmlContent = Input$(LOF(1), 1)
            Close #1
            
            ' 将邮件格式切换为HTML，并替换内容为转换后的HTML
            olMail.BodyFormat = olFormatHTML
            olMail.HTMLBody = htmlContent
            
            ' 保存修改后的邮件
            olMail.Save
            
            ' 关闭邮件检查器，自动保存更改
            olMail.Close olSave
            
            ' 清理当前邮件的对象引用
            Set wordDoc = Nothing
            On Error GoTo 0 ' 恢复默认错误处理
            
            ' 删除临时HTML文件（可选，避免临时文件堆积）
            Kill tempPath
        End If
    Next olMail
    
    MsgBox "批量转换完成！所有富文本邮件已转为HTML格式。", vbInformation
End Sub

必要前置设置 #

在运行代码前，需要在VBA编辑器中引用Word对象库：

1. 打开Outlook的VBA编辑器（按Alt + F11）
2. 点击顶部菜单的「工具」→「引用」
3. 在弹出的列表中找到并勾选「Microsoft Word xx.x Object Library」（xx.x对应你的Office版本，比如16.0是Office 365/2016）
4. 点击「确定」保存设置

实用注意事项 #

• 测试先行：建议先找几封测试邮件试试，确认转换效果后再批量处理
• 关闭已打开的邮件：如果目标文件夹中有已打开的邮件，可能会导致锁定错误，处理前请关闭所有相关邮件
• 大文件夹分批次处理：如果要处理几百上千封邮件，建议分批次进行，避免Outlook卡顿
• 图片自动处理：代码会自动将富文本中的嵌入图片转换为HTML中带CID引用的图片，和手动转换效果一致，体积会大幅减小

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