vba outlook正文输入文字后，换行粘贴选中的工作表范围

在VBA中，如果你想在Outlook邮件的正文中输入文字后自动换行，并接着粘贴Excel工作表中的选定范围，可以先设置一个临时变量保存文字，然后粘贴范围。这里有一个简单示例：

Sub InsertWorksheetRangeIntoEmail()
    Dim ws As Worksheet
    Dim rng As Range
    Dim olMail As Object
    Dim bodyBuilder As String ' 用于构建邮件正文的临时字符串

    ' 设置工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你需要的sheet名
    Set rng = ws.Range("A1:C10") ' 更改为你要粘贴的范围
    
    ' 确定有数据被选中
    If Not rng Is Nothing Then
        ' 获取工作表范围内的值
        bodyBuilder = Join(Application.Transpose(rng.Value), vbCrLf) ' 使用vbCrLf表示换行符
        
        ' 创建Outlook对象
        Set olMail = Application.GetNamespace("MAPI").Items.Add(0) ' 创建一封新邮件
        
        ' 将文本插入邮件正文中
        olMail.Body = "这是文字内容" & vbCrLf & bodyBuilder ' 文字内容后直接跟上换行和工作表范围内容
        
        ' 发送邮件
        olMail.Send
        
        ' 清理对象
        Set olMail = Nothing
    Else
        MsgBox "没有选择任何范围!"
    End If
End Sub

当你运行此宏时，会首先在邮件正文中插入预设的文字，然后换行并粘贴选定的工作表范围。注意，`Join`函数用于合并数组成为一个字符串，每个元素间由指定字符（这里是`vbCrLf`，代表回车换行）分隔。