如何通过vba自动发送选定的量程

Sub SendSelectedRange()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim rng As Range
    
    ' 设置要发送的电子邮件的收件人
    Recipient = "recipient@example.com"
    
    ' 设置要发送的电子邮件的主题
    Subject = "Selected Range"
    
    ' 设置要发送的电子邮件的正文
    Body = "Here is the selected range:"
    
    ' 获取当前选定的单元格范围
    Set rng = Selection
    
    ' 将选定的单元格范围复制到剪贴板
    rng.Copy
    
    ' 创建一个新的Outlook应用程序实例
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建一个新的邮件项
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的收件人、主题和正文
    With OutlookMail
        .To = Recipient
        .Subject = Subject
        .Body = Body
        .Display  ' 如果想要预览邮件，可以使用.Display方法；如果想要直接发送邮件，可以使用.Send方法
        .GetInspector.WordEditor.Range.Paste  ' 将剪贴板中的内容粘贴到邮件正文中
    End With
    
    ' 清空剪贴板
    Application.CutCopyMode = False
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub