博客

在 VBA 中，使用 Outlook 对象库可以访问和操作 Outlook 应用程序中的邮件项。下面是一些常见的与邮件相关的属性：

MailItem 对象：表示 Outlook 中的邮件项，具有以下常用属性：

Subject：邮件主题。

Sender：发件人。

Recipients：收件人列表。

CC：抄送列表。

BCC：密送列表。

Body：邮件正文。

Attachments：附件集合。

ReceivedTime：接收时间。

SentOn：发送时间。

Namespace 对象：表示当前 Outlook 会话的命名空间，具有以下常用属性：

GetDefaultFolder(FolderType)：获取默认文件夹对象。

Folders：所有文件夹的集合。

CurrentUser：当前用户的 Recipient 对象。

Recipient 对象：表示邮件的收件人、发件人、抄送或密送，具有以下常用属性：

Address：电子邮件地址。

Name：显示名称。

下面是一个基本示例，演示如何使用 VBA 创建并发送一封带有附件的邮件：

Sub SendEmail()
    Dim olApp As Object
    Dim olMail As Object
    
    ' 创建 Outlook 应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set olMail = olApp.CreateItem(0)  ' 0表示邮件
    
    ' 设置邮件属性
    With olMail
        .Subject = "这是一封测试邮件"
        .Body = "这是邮件的正文内容。"
        .Attachments.Add "C:\路径\附件文件.docx"
        .Recipients.Add "recipient@example.com"
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象引用
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

在上述示例中，我们首先创建了 Outlook 应用程序对象（olApp），然后使用 CreateItem 方法创建了一个邮件对象（olMail）。

接下来，我们通过设置邮件对象的各个属性（如主题、正文、附件和收件人）来配置邮件。

最后，我们使用 Send 方法发送邮件，并在完成后释放对象引用以释放资源。

需要注意的是，你需要在 VBA 编辑器中的“工具”>“引用”中添加对“Microsoft Outlook XX.X 对象库”的引用（版本号根据你安装的 Outlook 版本而定）。

希望这些信息对你有帮助。如果你有进一步的问题，请随时提问！

在 VBA 中，你可以使用 Outlook 对象库中的 MailItem 对象来添加 CC（抄送）和 BCC（密送）收件人到邮件中。下面是一些示例代码，演示如何添加 CC 和 BCC 收件人：

Sub SendEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim ccRecipient As Object
    Dim bccRecipient As Object
    
    ' 创建 Outlook 应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set olMail = olApp.CreateItem(0)  ' 0表示邮件
    
    ' 设置邮件属性
    With olMail
        .Subject = "这是一封测试邮件"
        .Body = "这是邮件的正文内容。"
        .Recipients.Add "recipient@example.com"  ' 添加主要收件人
        
        ' 添加 CC 收件人
        Set ccRecipient = .Recipients.Add("cc@example.com")  ' 添加 CC 收件人
        ccRecipient.Type = 2  ' 设置收件人类型为 CC
        
        ' 添加 BCC 收件人
        Set bccRecipient = .Recipients.Add("bcc@example.com")  ' 添加 BCC 收件人
        bccRecipient.Type = 3  ' 设置收件人类型为 BCC
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象引用
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

在上述示例中，我们创建了 olApp 对象来表示 Outlook 应用程序，并使用 CreateItem 方法创建了一个邮件对象 olMail。

然后，我们使用 Recipients.Add 方法添加主要收件人，并使用 Type 属性将其类型设置为 1（默认）。

接下来，我们使用 Recipients.Add 方法添加 CC 和 BCC 收件人，并使用 Type 属性将其类型分别设置为 2（CC）和 3（BCC）。

最后，我们发送邮件并释放对象引用。

希望这个解释对你有所帮助。如果还有其他问题，请随时提问！