Excel-VBA 从 Outlook 地址列表中获取过滤后的集合

excel

使用excel-VBA可以方便地从Outlook地址列表中获取过滤后的集合。Outlook是一个常用的电子邮件客户端，它不仅可以发送和接收电子邮件，还可以管理联系人和地址列表。在某些情况下，我们可能需要从Outlook地址列表中筛选出特定条件的联系人，例如根据名字、电子邮件地址或其他属性进行过滤。下面将介绍如何使用excel-VBA来实现这一功能，并提供相应的案例代码。

步骤1：引用Outlook对象库

在使用excel-VBA操作Outlook之前，首先需要引用Outlook对象库。打开excel，点击“开发者”选项卡，然后点击“Visual Basic”按钮，进入VBA编辑器。在VBA编辑器中，点击“工具”菜单，选择“引用”，勾选“Microsoft Outlook XX.X Object Library”（其中XX.X表示Outlook的版本号），然后点击“确定”。

步骤2：获取Outlook应用程序对象

在VBA编辑器中，我们需要声明一个Outlook应用程序对象，以便后续操作。可以使用以下代码获取Outlook应用程序对象：

VBA
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application

步骤3：获取Outlook地址列表

在获取Outlook地址列表之前，我们需要获取Outlook的命名空间。可以使用以下代码获取Outlook命名空间对象：

VBA
Dim olNamespace As Outlook.Namespace
Set olNamespace = olApp.GetNamespace("MAPI")

接下来，我们可以使用命名空间对象的GetDefaultFolder方法来获取Outlook地址列表。例如，要获取“联系人”地址列表，可以使用以下代码：

VBA
Dim olAddressList As Outlook.Folder
Set olAddressList = olNamespace.GetDefaultFolder(olFolderContacts)

步骤4：筛选地址列表

在获取了Outlook地址列表之后，我们可以使用VBA代码来筛选出符合特定条件的联系人。例如，我们可以根据联系人的名字进行筛选。以下是一个根据名字进行筛选的案例代码：

VBA
Dim olContact As Outlook.ContactItem
Dim filteredContacts As Collection
Set filteredContacts = New Collection
For Each olContact In olAddressList.Items
    If olContact.FirstName = "John" Then
        filteredContacts.Add olContact
    End If
Next olContact

在上述代码中，我们遍历了地址列表中的每个联系人，如果联系人的名字为"John"，则将其添加到一个新的集合中。

步骤5：使用筛选后的集合

在筛选出符合条件的联系人之后，我们可以在excel中使用这个集合进行进一步的操作。例如，我们可以将筛选后的联系人信息写入excel工作表中。以下是一个将筛选后的联系人信息写入excel的案例代码：

VBA
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim i As Integer
For i = 1 To filteredContacts.Count
    ws.Cells(i, 1).Value = filteredContacts(i).FirstName
    ws.Cells(i, 2).Value = filteredContacts(i).LastName
    ws.Cells(i, 3).Value = filteredContacts(i).EmAIl1Address
Next i

在上述代码中，我们将筛选后的联系人的名字、姓氏和电子邮箱地址分别写入excel工作表的第一列、第二列和第三列。

通过excel-VBA可以方便地从Outlook地址列表中获取过滤后的集合。我们可以使用Outlook应用程序对象、Outlook命名空间对象和Outlook地址列表对象来实现这一功能。通过筛选出符合特定条件的联系人，我们可以在excel中进一步使用这些联系人的信息。以上是一个简单的示例，根据自己的需求可以进行相应的修改和扩展。