VBA代码优化：如何将邮件文本置于粘贴的Excel Range区域上方？

问题出在两点：一是直接设置.Body后，邮件正文文本会被置于WordEditor内容的末尾；二是原代码里的x是未定义变量，会导致运行报错。

要让文本显示在粘贴区域上方，你可以直接通过WordEditor管控整个邮件内容，具体调整如下：

Sub SendEmailWithRange()
    Dim MyRange As Range
    Dim doc As Object
    Dim insertPos As Object
    
    Set MyRange = Sheets("Sheet1").Range("A4").CurrentRegion
    
    With CreateObject("outlook.application").CreateItem(0)
        .Display ' 改成.Send可直接发送邮件
        .To = Range("I3").Value
        .Subject = "My subject"
        
        Set doc = .GetInspector.WordEditor
        ' 在正文开头插入文本并添加换行
        doc.Range(0, 0).Text = "This is the body:" & vbNewLine & vbNewLine
        
        ' 将光标定位到文本末尾，准备粘贴表格
        Set insertPos = doc.Range(doc.Content.End - 1, doc.Content.End - 1)
        MyRange.Copy
        insertPos.Paste
        
        Application.CutCopyMode = 0
    End With
End Sub

关键调整说明 #

• 移除了.Body的直接赋值，改用WordEditor的Range对象插入文本，精准控制内容位置
• 定义insertPos变量定位到文本末尾，确保表格粘贴在文本下方
• 修复了原代码中未定义的x变量问题，避免运行错误
• 调整了.To和.Subject的位置，逻辑上更连贯（先设置收件人和主题，再处理正文）

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