在IT领域，VBA（Visual Basic for Applications）是一种强大的编程语言，广泛应用于Microsoft Office套件，包括Outlook。本主题聚焦于如何利用VBA在Outlook中获取收件人的信息，这对于自动化邮件处理、报告生成或者自定义工作流程非常有用。在2016版的Outlook中，VBA提供了丰富的API接口，使得开发人员能够访问并操作Outlook对象模型，进而获取邮件的收件人信息。
我们需要了解Outlook对象模型的基础。在Outlook中，一切皆为对象，如邮件（MailItem）、联系人（ContactItem）、任务（TaskItem）等。收件人信息存储在MailItem对象的Recipients集合中。Recipients集合包含了所有收件人、抄送人和密送人的信息，每个Recipient对象代表一个具体的收件人。
要获取收件人信息，我们首先需要创建一个Outlook应用程序对象，并通过它来访问现有的邮件项目。以下是一个基本的VBA代码框架：
```vba
Sub GetRecipients()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim olRecipient As Outlook.Recipient
' 创建Outlook对象
Set olApp = New Outlook.Application
' 假设我们要处理已打开的邮件，可以通过Inspector对象来获取
Dim olInspector As Outlook.Inspector
Set olInspector = Application.ActiveInspector
If Not olInspector Is Nothing Then
Set olMail = olInspector.CurrentItem
Else
MsgBox "没有活动的邮件可供处理。"
Exit Sub
End If
' 遍历邮件的收件人
For Each olRecipient In olMail.Recipients
Debug.Print "姓名: " & olRecipient.Name & " | 地址: " & olRecipient.Address
Next olRecipient
' 清理对象
Set olRecipient = Nothing
Set olMail = Nothing
Set olInspector = Nothing
Set olApp = Nothing
End Sub
```
在这个示例中，我们首先创建了一个Outlook应用程序对象`olApp`，然后通过`Application.ActiveInspector`获取当前正在编辑或查看的邮件项`olMail`。接着，我们遍历`olMail.Recipients`集合中的每一个Recipient对象，打印出其名称和电子邮件地址。
需要注意的是，获取收件人信息时，可能需要处理各种类型的收件人，包括To、CC和BCC。在`Recipients`集合中，可以使用`Type`属性来判断收件人的类型，例如`olTo`（1）表示直接收件人，`olCC`（2）表示抄送人，`olBCC`（3）表示密送人。
此外，VBA还可以用于更复杂的操作，比如根据特定条件筛选收件人，或者动态填充邮件模板。例如，你可以创建一个用户窗体（UserForm）来让用户输入查询条件，然后通过VBA检索满足条件的收件人并自动填充邮件。
VBA在Outlook中的应用提供了无尽的可能性，让办公自动化更加高效。通过学习和掌握VBA获取Outlook收件人信息的方法，你可以定制自己的邮件处理工具，提升工作效率，节省宝贵的时间。
vba 获取 outlook 收件人_2016.rar （1个子文件） 
vba 获取 outlook 收件人_2016.xlsm 60KB
