使用Excel VBA发送粘贴到电子邮件正文中的带有筛选范围的电子邮件

Sub FilterDataAndSendEmail()
    Dim rng As Range
    Dim filterRange As Range
    Dim filteredData As Range
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' 设置筛选范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:D10")
    
    ' 开启筛选
    rng.AutoFilter
    
    ' 设置筛选条件
    rng.AutoFilter Field:=1, Criteria1:="条件1"
    rng.AutoFilter Field:=2, Criteria1:="条件2"
    
    ' 获取筛选后的数据范围
    Set filterRange = rng.SpecialCells(xlCellTypeVisible)
    
    ' 复制筛选后的数据
    filterRange.Copy
    
    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' 设置邮件主题
    outlookMail.Subject = "筛选后的数据"
    
    ' 将筛选后的数据粘贴到邮件正文中
    outlookMail.GetInspector.WordEditor.Range.Paste
    
    ' 发送邮件
    outlookMail.Send
    
    ' 关闭筛选
    rng.AutoFilterMode = False
    
    ' 释放对象
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub