Excel单元格区域转图插入邮件正文，文本丢失问题修复求助

我来帮你搞定这个问题！你遇到的文本被跳过、只显示图片的情况，大概率是因为代码里没有正确处理邮件正文的编辑顺序，或者重复创建Outlook实例导致的对象混乱。下面给你分析原因和修正后的方案：

问题根源 #

1. 你的代码里重复创建了Outlook.Application实例（olApp和Olobj），这会导致对象引用混乱，干扰正文内容的插入逻辑
2. 没有利用Outlook邮件的Word编辑器对象来有序添加文本和图片，直接粘贴图片可能会覆盖或跳过之前的文本内容

修正后的代码 #

Option Explicit
Public Sub POSTRUN()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim mailItem As Outlook.MailItem
    Dim mailDoc As Word.Document ' 需要引用Microsoft Word对象库
    Dim rng As Word.Range
    
    ' 统一创建Outlook实例，避免重复创建导致的对象混乱
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    
    ' 创建新邮件对象
    Set mailItem = olApp.CreateItem(olMailItem)
    
    ' 获取邮件的Word编辑对象（核心：像操作Word文档一样编辑邮件正文）
    Set mailDoc = mailItem.GetInspector.WordEditor
    
    ' --- 第一步：添加自定义文本 ---
    Set rng = mailDoc.Range
    rng.InsertAfter "您好，这是本次的报表内容：" & vbCrLf & vbCrLf ' vbCrLf实现换行
    
    ' --- 第二步：插入Excel单元格区域为图片 ---
    ' 先把目标Excel区域复制为图片
    ThisWorkbook.Sheets("Sheet1").Range("A1:C10").CopyPicture _
        Appearance:=xlScreen, Format:=xlPicture
    
    ' 将图片粘贴到邮件正文的当前位置
    mailDoc.Range.Paste
    
    ' 设置邮件基础属性
    mailItem.Subject = "最新报表通知"
    mailItem.To = "收件人邮箱@example.com"
    
    ' 显示邮件（如需直接发送可改为mailItem.Send）
    mailItem.Display
    
    ' 释放对象，避免内存占用
    Set rng = Nothing
    Set mailDoc = Nothing
    Set mailItem = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub

关键注意事项 #

• 引用Word对象库：打开VBA编辑器后，点击「工具」→「引用」，勾选「Microsoft Word xx.x Object Library」（xx.x对应你的Word版本号）
• 控制插入顺序：先添加文本再插入图片，确保内容按你想要的逻辑顺序显示
• 避免重复实例：只保留一个Outlook.Application实例，多余的实例会引发对象引用错误
• 若不想依赖Word对象库，也可以用HTML格式构建邮件正文，将文本和图片的HTML代码组合后赋值给mailItem.HTMLBody，但Word编辑器的方式更贴近手动编辑邮件的逻辑，上手更简单

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