可以通过以下步骤实现:
Sub SendRichTextEmail()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim MailBody As String
' 创建Outlook应用程序对象
Set OutlookApp = CreateObject("Outlook.Application")
' 创建邮件对象
Set OutlookMail = OutlookApp.CreateItem(0)
' 设置邮件主题
OutlookMail.Subject = "这是一个富文本邮件"
' 设置收件人
OutlookMail.To = "recipient@example.com"
' 设置抄送人
OutlookMail.CC = "cc@example.com"
' 设置邮件内容为富文本格式
OutlookMail.BodyFormat = 2
' 设置邮件内容
MailBody = "<html><body>"
MailBody = MailBody & "<h1>这是一个富文本邮件的标题</h1>"
MailBody = MailBody & "<p>这是邮件的正文内容。</p>"
MailBody = MailBody & "<p>可以在邮件中插入各种格式的文本、图片、超链接等。</p>"
MailBody = MailBody & "</body></html>"
OutlookMail.HTMLBody = MailBody
' 发送邮件
OutlookMail.Send
' 释放对象
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
这种方法可以方便地使用Excel VBA从Outlook发送富文本电子邮件。在实际应用中,可以根据需要进一步扩展和优化代码,例如添加附件、设置邮件格式等。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云