将多个excel范围作为图片粘贴到同一Outlook电子邮件中

Sub ExportRangesToOutlookEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim rng As Range
    Dim pic As Picture

    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    ' 创建新邮件
    Set olMail = olApp.CreateItem(0)

    ' 添加邮件主题
    olMail.Subject = "Excel Ranges as Pictures"

    ' 添加邮件正文
    olMail.Body = "以下是多个Excel范围作为图片："

    ' 选择要复制为图片的范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")

    ' 将范围复制为图片
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    ' 将图片粘贴到邮件中
    olMail.GetInspector.WordEditor.Range.Paste

    ' 添加换行符
    olMail.GetInspector.WordEditor.Range.InsertParagraphAfter

    ' 发送邮件
    olMail.Display

    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    Set olMail = Nothing
    Set olApp = Nothing
End Sub