将每日电子邮件从Excel发送到Outlook -包括PivotTable

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MyWorkbook As Workbook
    Dim MyWorksheet As Worksheet
    Dim MyPivotTable As PivotTable
    Dim MyRange As Range
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 打开Excel文件
    Set MyWorkbook = ThisWorkbook
    
    ' 指定要发送的工作表和数据范围
    Set MyWorksheet = MyWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    Set MyRange = MyWorksheet.Range("A1:D10") ' 替换为你的数据范围
    
    ' 将数据复制到邮件正文
    MyRange.Copy
    OutlookMail.GetInspector.WordEditor.Range.Paste
    
    ' 添加邮件主题和收件人
    With OutlookMail
        .Subject = "每日数据报告" ' 替换为你的邮件主题
        .To = "example@example.com" ' 替换为你的收件人邮箱地址
        .Display ' 如果想要预览邮件，使用.Display方法；如果想要直接发送邮件，使用.Send方法
    End With
    
    ' 清理对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    Set MyRange = Nothing
    Set MyWorksheet = Nothing
    Set MyWorkbook = Nothing
End Sub