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

在VBA（Visual Basic for Applications）中，您可以使用Outlook对象模型来生成电子邮件并在正文中添加文本或图像。以下是如何实现这一功能的步骤和示例代码。

基础概念

Outlook对象模型：一组允许您通过VBA与Microsoft Outlook交互的对象和方法。
MailItem对象：代表一封电子邮件。
InlineShapes对象：用于在邮件正文中插入图像。

类型与应用场景

文本：适用于任何需要发送标准文本信息的场景。
图像：适用于需要视觉辅助的营销邮件、报告或其他文档。

示例代码

以下是一个简单的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