如何在VBA生成的电子邮件正文中添加其他文本/图像？

Sub SendEmailWithTextAndImage()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strBody As String
    Dim strImagePath As String
    
    ' 初始化Outlook应用
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0) ' 0代表MailItem
    
    ' 设置邮件基本信息
    With OutMail
        .To = "recipient@example.com"
        .CC = ""
        .BCC = ""
        .Subject = "邮件主题"
        
        ' 设置邮件正文文本
        strBody = "<h1>欢迎查看此邮件</h1><p>这是一些文本内容。</p>"
        .HTMLBody = strBody
        
        ' 添加图像到邮件正文中
        strImagePath = "C:\path\to\your\image.jpg" ' 替换为实际图像路径
        .Attachments.Add strImagePath
        .HTMLBody = .HTMLBody & "<img src='cid:image1' alt='My Image'>"
        
        ' 显示邮件（可选）
        .Display
        ' .Send ' 如果想要直接发送邮件，取消注释这行代码
    End With
    
    ' 清理对象
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub