使用VBA在电子邮件中插入文本正文和excel表体

Sub InsertTextInEmailBody()
    Dim OutlookApp As Object
    Dim MailItem As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件项
    Set MailItem = OutlookApp.CreateItem(0)
    
    ' 设置邮件的收件人、主题和正文
    With MailItem
        .To = "recipient@example.com"
        .Subject = "邮件主题"
        .HTMLBody = "<p>邮件正文内容</p>"
        .Display ' 显示邮件
    End With
    
    ' 释放对象
    Set MailItem = Nothing
    Set OutlookApp = Nothing
End Sub

Sub InsertExcelTableInEmailBody()
    Dim OutlookApp As Object
    Dim MailItem As Object
    Dim ExcelApp As Object
    Dim ExcelWorkbook As Object
    Dim ExcelWorksheet As Object
    Dim ExcelRange As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件项
    Set MailItem = OutlookApp.CreateItem(0)
    
    ' 创建Excel应用程序对象
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Path\To\Excel\File.xlsx")
    
    ' 选择需要插入的表格区域
    Set ExcelWorksheet = ExcelWorkbook.Worksheets("Sheet1")
    Set ExcelRange = ExcelWorksheet.Range("A1:D10")
    
    ' 将表格复制到剪贴板
    ExcelRange.Copy
    
    ' 设置邮件的收件人、主题和正文，并粘贴剪贴板内容
    With MailItem
        .To = "recipient@example.com"
        .Subject = "邮件主题"
        .HTMLBody = "<p>邮件正文内容</p>"
        .GetInspector.WordEditor.Range.Paste ' 在邮件正文中粘贴剪贴板内容
        .Display ' 显示邮件
    End With
    
    ' 关闭Excel文件并释放对象
    ExcelWorkbook.Close False
    ExcelApp.Quit
    Set ExcelRange = Nothing
    Set ExcelWorksheet = Nothing
    Set ExcelWorkbook = Nothing
    Set ExcelApp = Nothing
    
    ' 释放Outlook对象
    Set MailItem = Nothing
    Set OutlookApp = Nothing
End Sub