求助：如何在Outlook邮件插入带格式Excel表格后添加文本？

你遇到的问题核心是：用WordEditor编辑邮件内容后，直接修改.Body会覆盖之前所有内容（包括已插入的表格），所以添加文本的操作无效。正确的做法是继续借助Word的选区对象，在表格插入完成后，将光标移到表格末尾再插入需要的内容。

修改后的代码如下，关键修改部分已标注：

Sub esendtable()
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object
' 新增变量简化Word选区操作
Dim wordSel As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Data"
    .Body = "Please find the requested information" & vbCrLf & "Best Regards"
    .Display
    
    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor
    Set wordSel = pageEditor.Application.Selection
    
    Sheet5.Range("AA2:AB9").Copy
    
    ' 将光标移到原邮件体末尾
    wordSel.Start = Len(.Body)
    wordSel.End = wordSel.Start
    ' 粘贴表格
    wordSel.PasteSpecial (wdFormatPlainText)
    
    ' --- 新增：在表格后添加文本 ---
    ' 将光标移到当前内容末尾
    wordSel.MoveEnd wdStory, 1
    wordSel.TypeParagraph ' 插入换行，和表格拉开间距
    ' 输入你需要的额外文本
    wordSel.TypeText "这里填写你要添加的内容，比如：如有疑问请随时沟通"
    wordSel.TypeParagraph ' 可按需再插入换行
    
    .Display
    '.Send
    
    Set wordSel = Nothing
    Set pageEditor = Nothing
    Set xInspect = Nothing

End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub

关键说明： #

• 新增wordSel变量是为了简化重复的选区操作，避免冗余代码
• wordSel.MoveEnd wdStory, 1会把光标直接移到当前邮件内容的最后位置
• TypeParagraph用于生成换行，让新增文本和表格保持清晰的排版
• TypeText可以直接输入你需要的任意文本内容

因为代码用的是后期绑定，不需要额外引用Word库，直接运行即可。

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