在office VBA中，如何使用Outlook的对象模型来发送邮件

在 VBA 中，可以使用 Outlook 应用程序对象来访问 Outlook 的对象模型。以下是一个示例 VBA 代码，用于发送邮件：

Sub SendEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = "recipient@example.com"
        .CC = "ccrecipient@example.com"
        .BCC = "bccrecipient@example.com"
        .Subject = "Test Email"
        .Body = "This is a test email sent from VBA"
        .Attachments.Add ("C:\example\attachment.txt")
        .Send
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

在这个例子中，我们首先创建了 Outlook 应用程序对象 `OutApp`，然后使用 `CreateItem` 方法创建了一个新的邮件对象 `OutMail`。然后，我们可以使用 `With` 语句设置邮件的各种属性，例如收件人、抄送、主题、正文和附件。最后，我们调用 `Send` 方法来发送邮件，并释放对象引用。

请注意，为了使用 Outlook 的对象模型，你需要安装 Outlook 并启用 Outlook 的 VBA 引用库。在 VBA 编辑器中，你可以通过选择“工具”菜单中的“引用”选项来启用它。在弹出的对话框中，找到 Microsoft Outlook 对象库并勾选它。