我明白你的痛点——把Excel里包含多个表格的区域复制到Outlook邮件后，想让表格自动适配邮件窗口宽度，但目前的代码只能在Excel里调整列宽，邮件里的表格还是没法自动适配。问题主要出在粘贴方式和表格自动适配属性这两个地方，下面给你修改后的解决方案：

问题根源分析 #

1. 你使用了wdFormatPlainText粘贴，这会把表格转成纯文本，完全丢失了表格结构，自然没法做宽度适配；
2. 就算保留格式粘贴，Outlook的Word编辑器默认不会让表格自动适应邮件窗口，需要手动设置表格的自动适配行为。

修改后的完整VBA代码 #

Sub SendEmailWithAutoFitTables()
    Dim newEmail As Outlook.MailItem
    Dim xInspect As Outlook.Inspector
    Dim pageEditor As Word.Document
    Dim strbody As String, HMOimg As String
    Dim tbl As Word.Table
    
    ' 替换成你自己的正文和图片内容
    strbody = "Hi Team,<br><br>Please find the report below:<br><br>"
    HMOimg = "" ' 你的图片HTML代码
    
    Set newEmail = Outlook.Application.CreateItem(olMailItem)
    With newEmail
        .To = "123@email.com"
        .CC = ""
        .BCC = ""
        .Subject = "My Report"
        .HTMLBody = strbody & HMOimg & .HTMLBody
        .Display
        
        Set xInspect = .GetInspector
        Set pageEditor = xInspect.WordEditor
        
        ' 先在Excel里适配列宽（确保源内容显示正常）
        ThisWorkbook.Worksheets("MyData").Range("B24:Q133").Columns.AutoFit
        
        ' 复制目标区域
        ThisWorkbook.Worksheets("MyData").Range("B24:Q133").Copy
        
        ' 将光标定位到邮件正文末尾
        pageEditor.Application.Selection.Start = Len(.Body)
        pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
        
        ' 保留原始格式粘贴（替代纯文本粘贴）
        pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
        
        ' 遍历所有表格，设置自动适配邮件窗口宽度
        For Each tbl In pageEditor.Tables
            tbl.AutoFitBehavior wdAutoFitWindow
            ' 可选：如果想让表格根据内容自动调列宽，替换成下面这行
            ' tbl.AutoFitBehavior wdAutoFitContent
        Next tbl
    End With
    
    ' 释放对象
    Set pageEditor = Nothing
    Set xInspect = Nothing
    Set newEmail = Nothing
End Sub

关键修改点说明 #

• 替换粘贴格式：把wdFormatPlainText改成wdFormatOriginalFormatting，保留Excel里的表格结构和格式，为宽度适配提供基础；
• 添加表格自动适配：粘贴完成后遍历所有表格，设置AutoFitBehavior为wdAutoFitWindow，让表格自动撑满邮件的可用宽度；
• 常量定义（可选）：如果你的VBA项目未引用Microsoft Word对象库，可能会出现常量未定义的错误，可在代码开头手动添加：

  Const wdFormatOriginalFormatting As Integer = 16
  Const wdAutoFitWindow As Integer = 2
  Const wdAutoFitContent As Integer = 1
  

额外提示 #

• 若希望表格根据内容自动调整列宽（而非撑满窗口），将wdAutoFitWindow替换为wdAutoFitContent即可；
• 确保Excel源区域的表格没有复杂合并单元格，否则自动适配可能出现布局异常。

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