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

  • Post author:
  • Post category:其他


在 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)。

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

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



版权声明:本文为QingYuanve原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。