vba 工作表选定范围复制到outlook正文

在VBA中，如果你想要将Excel工作表的一个选定范围复制并粘贴到Outlook邮件的正文中，你可以使用`MailItem`对象和一些基本的字符串操作。这里是一个简单的示例：

Sub CopyRangeToEmail()
    Dim ws As Worksheet ' 工作表对象
    Dim rng As Range ' 选定的范围
    Dim olApp As Object ' Outlook应用程序对象
    Dim olMail As Object ' Outlook邮件对象
    Dim emailBody As String
    
    ' 设置工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你需要的sheet名
    Set rng = ws.Range("A1:C10") ' 更改为你要复制的范围
    
    ' 检查是否有数据被选中
    If Not rng Is Nothing Then
        ' 创建Outlook对象
        Set olApp = CreateObject("Outlook.Application")
        Set olMail = olApp.CreateItem(0) ' 创建一封新邮件
        
        ' 将工作表内容复制到变量emailBody
        emailBody = rng.Value '.Value属性会转换为文本形式
        ' 如果你想保持单元格格式，可以使用 rng.Copy Destinations:=1
        
        ' 将复制的内容添加到邮件正文中
        olMail.Body = emailBody
        
        ' 发送邮件
        olMail.Send
        
        ' 清理对象
        Set olMail = Nothing
        Set olApp = Nothing
    Else
        MsgBox "没有选择任何范围!"
    End If
End Sub

在这个例子中，你需要根据实际情况修改`ws`和`rng`的引用。运行这个宏后，选定的工作表范围内内容会被复制，并插入到新的Outlook邮件正文中。