excel - 如何从 Outlook 联系人中获取列中列出的名称的电子邮件地址？

Question

我是 VBA 新手，我需要帮助做一些事情:

如下图所示，我有一个名字列表。我想要做的是根据他们在A列中的姓名从Outlook联系人列表中检索他们的电子邮件地址(电子邮件地址分散在不同的联系人文件夹中)并将它们粘贴到B列中。

或者，是否可以从 Outlook 联系人中获取每个名称的电子邮件地址，并使用 Outlook 自动向他们发送电子邮件，以便我可以摆脱 B 列。

Answer 1

此代码假定名称在 A 列中。它进一步假定您正在访问的地址簿的名称名为“联系人”，并且它们是根据您的图表进行格式化的。

Option Explicit 
Private Sub GetAddresses() 
Dim o, AddressList, AddressEntry 
Dim c As Range, r As Range, AddressName As String 
Set o = CreateObject("Outlook.Application") 
Set AddressList = o.Session.AddressLists("Contacts") 
 'Change this range accordingly
Set r = Range("A1:A25") 
  For Each c In r 
    AddressName = c.Value 
    For Each AddressEntry In AddressList.AddressEntries 
        If AddressEntry.Name = AddressName Then 
            c.Offset(0, 1).Value = AddressEntry.Address 
            Exit For 
        End If 
    Next AddressEntry 
  Next c 
End Sub 

如果地址在全局地址列表中，在 Outlook 中，转到工具--> 地址簿。然后使用下拉列表确定您的地址在哪个列表中。将代码中的“联系人”替换为存储地址的通讯簿的名称。

我没有写这个，我在 Ozgrid 上找到了它并修改了一些东西以适应你的情况。您的应用程序可能需要稍作调整。希望这有助于或让您朝着正确的方向前进。