VBA向Outlook发送单元格区域显示异常，需实现表格正常插入

一、修复图片显示异常问题 #

图片显示不符合预期通常是因为CopyPicture参数设置不当、未保留原单元格行高列宽，或是Outlook粘贴时格式丢失。调整方案如下：

• 复制区域前锁定行高列宽，避免转图时变形
• 使用CopyPicture xlScreen, xlPicture参数，确保图片与Excel界面显示一致
• 粘贴到邮件后，设置图片为嵌入型并锁定宽高比例

二、新增直接复制表格到邮件的功能 #

直接复制Excel表格并粘贴到Outlook邮件，可保留表格的可编辑性和原始格式，核心是使用Copy+PasteAndFormat方法，完整保留单元格边框、填充色等格式。

修改后的完整代码 #

Sub CreateStandardMail()
    Dim olApp As Object
    Dim olMail As Object
    Dim ws As Worksheet
    Dim targetRng As Range
    
    ' 初始化Outlook对象
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then Set olApp = CreateObject("Outlook.Application")
    On Error GoTo 0
    
    Set olMail = olApp.CreateItem(0)
    Set ws = ThisWorkbook.Worksheets("Mailo")
    Set targetRng = ws.Range("B9:G10")

    ' --- 方案1：修复后的图片插入功能 ---
    With targetRng
        ' 锁定行高列宽，避免转图变形
        .Rows.RowHeight = .Rows.RowHeight
        .Columns.ColumnWidth = .Columns.ColumnWidth
        ' 按屏幕显示格式复制为图片
        .CopyPicture Appearance:=xlScreen, Format:=xlPicture
    End With
    
    With olMail
        .To = "" ' 填写收件人
        .Subject = "测试邮件（图片版）"
        .BodyFormat = olFormatHTML ' 需设置为HTML格式保证图片正常显示
        .Display ' 必须先显示邮件才能操作正文
        
        ' 粘贴图片并调整格式
        .GetInspector.WordEditor.Range.Paste
        With .GetInspector.WordEditor.InlineShapes(1)
            .LockAspectRatio = msoTrue
            .WrapFormat.Type = wdWrapInline
        End With
    End With

    ' --- 方案2：直接复制表格功能（注释方案1后可启用） ---
    ' With targetRng
    '     .Copy
    ' End With
    ' With olMail
    '     .To = ""
    '     .Subject = "测试邮件（表格版）"
    '     .BodyFormat = olFormatHTML
    '     .Display
    '     ' 粘贴并保留原始格式
    '     .GetInspector.WordEditor.Range.PasteAndFormat wdFormatOriginalFormatting
    ' End With

    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
    Set ws = Nothing
End Sub

关键说明 #

• 图片方案中，BodyFormat必须设为olFormatHTML，否则图片可能无法正常嵌入邮件
• 表格粘贴方案使用wdFormatOriginalFormatting，可完整保留Excel的单元格格式
• 代码中.Display必须调用，否则无法操作邮件的Word编辑器对象

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