VBA 在outlook正文的文字后面换行粘贴选中的工作表区域

在VBA中，要在Outlook邮件的正文后面换行粘贴Excel工作表的选定区域，可以先将Excel的内容转换成文本格式，然后再插入到邮件中。以下是示例代码：

Sub PasteWorksheetIntoEmail()
    Dim ExcelApp As Object
    Dim ExcelSheet As Worksheet
    Dim OlApp As Outlook.Application
    Dim OlMail As MailItem
    Dim rngData As Range
    Dim txtData As String

    ' 创建Excel应用对象
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件（假设工作簿位于同一目录）
    Set ExcelSheet = ExcelApp.ActiveSheet '<-- 可以改为特定的工作表
    ' 或者指定你想要复制的任意范围
    Set rngData = ExcelSheet.Range("A1:B10")

    ' 确保有数据，否则返回
    If Not rngData Is Nothing Then
        ' 将数据转换为字符串（换行符用vbCrLf表示）
        txtData = Join(Application.Transpose(rngData.Value), vbCrLf)

        ' 创建Outlook应用程序对象
        Set OlApp = CreateObject("Outlook.Application")
        
        ' 新建邮件
        Set OlMail = OlApp.CreateItem(0) ' olMailItem

        ' 获取邮件的Word版编辑器
        With OlMail.GetInspector.WordEditor
            ' 粘贴数据在邮件结尾处换行
            .AppendText txtData & vbCrLf ' 这样会在文本末尾添加新行
            .Sel.TextStart = .Sel.TextStart + Len(txtData) ' 移动光标到新内容的末尾
        End With
        
        ' 发送邮件
        OlMail.Send
        
        ' 清理对象
        Set rngData = Nothing
        Set ExcelSheet = Nothing
        Set ExcelApp = Nothing
        Set OlMail = Nothing
        Set OlApp = Nothing
    Else
        MsgBox "No data to paste."
    End If
End Sub

这段代码首先读取选定的Excel范围，将其转换为文本格式，包括每行之间的换行符。然后在Outlook邮件的Word编辑器中追加新的文本行。

**注意事项**：
- 使用`vbCrLf`作为换行符，这对应于Windows系统的换行。
- 检查是否有权限操作Excel和Outlook。