使用VBA Excel发送电子邮件-在电子邮件中添加html文本和引用文本

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim EmailBody As String
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置收件人、主题和发件人
    With OutlookMail
        .To = "recipient@example.com"
        .Subject = "邮件主题"
        .SentOnBehalfOfName = "sender@example.com"
    End With
    
    ' 设置邮件正文，包括HTML文本和引用文本
    EmailBody = "<p>这是一段使用HTML文本的内容。</p>" & _
                "<p>可以在这里添加更多的HTML标签和样式。</p>"
    EmailBody = EmailBody & "<br><br>" ' 添加换行
    EmailBody = EmailBody & "<blockquote>以下是之前的邮件内容：</blockquote>" & _
                "<p>引用文本内容...</p>"
    With OutlookMail
        .HTMLBody = EmailBody
        .Display ' 显示邮件
        '.Send ' 直接发送邮件
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub