用Excel VBA捕获Outlook地址

指的是在Excel中使用Visual Basic for Applications（VBA）编程语言，通过Outlook应用程序获取收件人的电子邮件地址。

Outlook是一款常用的邮件和日历管理软件，它可以通过COM接口与其他应用程序进行交互，包括Excel。通过VBA，我们可以访问Outlook的对象模型，从而获取邮箱地址。

以下是捕获Outlook地址的步骤：

首先，确保已经在Excel中启用了开发人员选项卡。如果没有，请在Excel的选项中启用它。
打开Excel，并按下Alt+F11打开Visual Basic编辑器。
在编辑器中，选择插入 -> 模块，创建一个新的模块。
在新模块中，编写以下代码：

Sub CaptureOutlookAddress()
    Dim olApp As Object ' Outlook应用程序对象
    Dim olNamespace As Object ' Outlook命名空间对象
    Dim olAddressList As Object ' Outlook地址列表对象
    Dim olRecipient As Object ' Outlook收件人对象
    Dim emailAddress As String ' 收件人邮箱地址
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 打开地址列表选择对话框
    Set olAddressList = olNamespace.PickRecipient
    
    ' 遍历所选地址列表中的收件人
    For Each olRecipient In olAddressList
        ' 获取收件人的邮箱地址
        emailAddress = olRecipient.Address
        ' 在单元格A1中显示邮箱地址
        Range("A1").Value = emailAddress
    Next olRecipient
    
    ' 清理对象
    Set olApp = Nothing
    Set olNamespace = Nothing
    Set olAddressList = Nothing
    Set olRecipient = Nothing
End Sub