使用Excel VBA从Outlook发送富文本电子邮件

基础概念

Excel VBA：Visual Basic for Applications（VBA）是Microsoft Office套件中的一个编程语言，允许用户自定义应用程序的功能。在Excel中使用VBA可以自动化许多任务，包括与Outlook交互。

Outlook：Microsoft Outlook是一个电子邮件客户端，也用于管理联系人、日程安排和任务。

富文本电子邮件：富文本电子邮件（Rich Text Emails）允许使用格式化文本、颜色、字体样式等，使邮件内容更加丰富和吸引人。

类型

简单文本邮件
富文本格式（RTF）邮件
HTML邮件

应用场景

批量发送通知
自动报告生成与发送
客户关系管理中的自动化沟通

示例代码

以下是一个使用Excel VBA通过Outlook发送富文本电子邮件的示例代码：

Sub SendRichTextEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim wdDoc As Object
    Dim rng As Range
    
    On Error Resume Next
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ' 设置邮件基本信息
    With OutMail
        .To = "recipient@example.com"
        .CC = ""
        .BCC = ""
        .Subject = "Rich Text Email Example"
        
        ' 创建一个Word文档用于构建富文本内容
        Set wdDoc = .GetInspector.WordEditor
        Set rng = wdDoc.Range
        
        ' 添加富文本内容
        rng.InsertAfter "Hello, this is a rich text email example." & vbCrLf
        rng.Font.Name = "Arial"
        rng.Font.Size = 12
        rng.Font.Color = RGB(0, 0, 255)
        
        rng.InsertAfter vbCrLf & "This is a bold statement." & vbCrLf
        rng.Font.Bold = True
        
        ' 发送邮件
        .Send
    End With
    
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub