VBA宏问题：无法将Excel指定区域粘贴至Outlook 365邮件正文

原代码核心问题 #

1. 直接将Range区域赋值给字符串变量Email_Body无效：Range("B6:L27")是二维数组结构，无法直接转换为字符串，导致邮件正文为空。
2. 使用.Body属性仅支持纯文本：手动粘贴的内容带格式（表格、单元格样式等），但.Body无法保留这些格式，只能显示无排版的纯文本。

方案一：复制粘贴（和手动粘贴效果完全一致） #

通过复制Excel区域，再粘贴到Outlook邮件的Word编辑器中，完整保留格式：

Sub EnviarAbertura()
    Dim Outlook As Object, Novo_Email As Object
    Dim targetRange As Range
    
    '指定目标区域
    Set targetRange = Planilha5.Range("B6:L27")
    targetRange.Copy '复制区域内容（带格式）
    
    '初始化Outlook对象
    Set Outlook = CreateObject("Outlook.application")
    Set Novo_Email = Outlook.CreateItem(0)
    
    With Novo_Email
        .SentOnBehalfOfName = "centraldecomandotd@natura.net"
        .Subject = Planilha5.Range("G4").Value
        .Display '必须先显示邮件，才能访问正文编辑对象
        
        '将剪贴板内容粘贴到邮件正文（保留原格式）
        .GetInspector.WordEditor.Range.Paste
    End With
    
    '清除剪贴板残留内容
    Application.CutCopyMode = False
End Sub

代码说明 #

• 先复制目标区域，再创建并显示邮件：只有邮件显示后，才能调用WordEditor对象操作正文。
• .GetInspector.WordEditor.Range.Paste直接复用系统剪贴板内容，和手动粘贴的格式、排版完全一致。
• 最后清除剪贴板，避免影响后续操作。

方案二：转为HTML格式（无剪贴板依赖） #

将Excel区域转为HTML代码，直接设置邮件的HTMLBody属性，适合完全自动化场景：

Sub EnviarAbertura_HTML()
    Dim Outlook As Object, Novo_Email As Object
    Dim tempWB As Workbook, targetRange As Range
    Dim htmlContent As String, tempPath As String
    
    '指定目标区域
    Set targetRange = Planilha5.Range("B6:L27")
    tempPath = Environ("TEMP") & "\temp_email_body.html" '临时HTML文件路径
    
    '创建临时工作簿，复制区域内容
    Set tempWB = Workbooks.Add
    targetRange.Copy
    tempWB.Sheets(1).Range("A1").PasteSpecial xlPasteAll '保留所有格式
    
    '保存为HTML并读取内容
    tempWB.SaveAs tempPath, xlHtml
    htmlContent = CreateObject("Scripting.FileSystemObject").OpenTextFile(tempPath).ReadAll
    
    '清理临时文件和工作簿
    tempWB.Close SaveChanges:=False
    Kill tempPath
    
    '初始化Outlook并创建邮件
    Set Outlook = CreateObject("Outlook.application")
    Set Novo_Email = Outlook.CreateItem(0)
    
    With Novo_Email
        .SentOnBehalfOfName = "centraldecomandotd@natura.net"
        .Subject = Planilha5.Range("G4").Value
        .HTMLBody = htmlContent
        .Display
    End With
    
    Application.CutCopyMode = False
End Sub

代码说明 #

• 通过临时工作簿将Excel区域转为HTML格式，避免依赖剪贴板。
• 生成的HTML邮件会保留表格结构和基础格式，部分复杂Excel样式可能会有轻微差异。

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