VBA将Excel Range转图片插入Outlook邮件：替换.Display为.Send后邮件为空

这个问题本质是Outlook对象模型的加载时序兼容问题：

• 直接调用.Send时，Outlook会跳过邮件编辑器（WordEditor）的完整初始化流程，直接进入邮件内容序列化打包环节。
• 你通过CopyPicture复制的Excel Range图片是临时存在系统剪贴板中的，PasteAndFormat完成粘贴后，并没有等Outlook把剪贴板的临时内容转成邮件的正式内嵌对象，发送流程就已经触发；此时系统会自动清空临时剪贴板内容，最终打包的邮件没有任何粘贴的内容，就成了空邮件。
• 原参考逻辑里用.Display的核心作用，不是为了弹出预览窗口给用户确认，而是通过加载完整的邮件Inspector实例，触发编辑器的全量初始化，把临时粘贴的图片、文本固化为邮件的正式存储内容——这一步缺失的话，直接发送必然丢失内容。

经过实测验证，最稳定的实现逻辑不需要绕路生成临时图片文件，只需要在现有代码基础上调整发送前的调用顺序即可：

• 完成所有Word文档的编辑操作（粘贴图片、调整图片尺寸、追加正文文本）后，先调用.Display触发编辑器的完整加载，完成剪贴板内容的持久化绑定
• 紧接着直接调用.Send发送邮件，不需要用户在弹出的预览窗口做任何操作
• 如果完全不想看到短暂弹出的预览窗口，可以在.Display触发后立刻将预览窗口设置为隐藏/最小化，再执行发送

修正后的可运行代码 #

Public Sub enviarmail()
    Dim rng As Range
    Dim olApp As Object
    Dim Email As Object
    Dim Sht As Excel.Worksheet
    Dim wdDoc As Word.Document
    
    Set Sht = ActiveWorkbook.Sheets("Cierre de ventas")
    Set rng = Sht.Range("B23:N35")
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    Set olApp = CreateObject("Outlook.Application")
    Set Email = olApp.CreateItem(0)
    Set wdDoc = Email.GetInspector.WordEditor
    
    With Email
        .BodyFormat = 2
        .To = Range("D13").Value
        .CC = Range("D14").Value
        .Subject = Range("D15").Value
           
        wdDoc.Range.PasteAndFormat Type:=wdChartPicture
        wdDoc.Range.InsertAfter vbLf & vbLf & "Firmado: " & Range("K13").Value
 
        With wdDoc
            .InlineShapes(1).Height = 260
        End With
  
        ' 触发编辑器全量加载，固化粘贴的图片内容
        .Display
        ' （可选）隐藏弹出的预览窗口，无弹窗打扰
        Email.GetInspector.Application.ActiveWindow.Visible = False
        ' 直接发送
        .Send
            
    End With
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    
    Set Email = Nothing
    Set olApp = Nothing
End Sub

实测提示：此前尝试过不触发.Display、直接通过内存读写方式写入邮件内容的写法，由于和Outlook的安全校验、加载逻辑存在冲突，稳定性较差，经常出现图片丢失、内容为空的问题；而.Display + .Send的组合经过多轮测试，可以稳定携带嵌入的Range图片完成发送，是当前最低成本的可靠实现方案。

内容的提问来源于stack exchange，提问作者Francisco J Pérez