小编Lee*_*key的帖子

我一直在尝试根据输入名称导入联系人的电子邮件。我不太擅长宏编程，但找到了一个有效的代码。然而，它只能通过查找联系人文件夹中的信息来工作，我需要它来查找全局地址列表中的联系人，将与该人关联的电子邮件返回给我。我搜索了其他帖子，他们都想从 Outlook 中获取每个联系人并将其粘贴到 excel。我只想根据输入的姓名搜索一个人的全局地址列表，并让它返回该人的电子邮件。

这是我所拥有的：

Function GrabContactInfo(rRng As Range, iWanted As Integer) As String

Dim olA As Outlook.Application

Dim olNS As Namespace

Dim olAB As MAPIFolder

Dim lItem As Long   

Dim sNameWanted As String

Dim sRetValue As String

Set olA = New Outlook.Application
Set olNS = olA.GetNamespace("MAPI")
Set olAB = olNS.GetDefaultFolder(olFolderContacts)

Application.Volatile
sNameWanted = rRng.Value
sRetValue = "Not Found"

On Error Resume Next

For lItem = 1 To olAB.Items.Count
    With olAB.Items(lItem)
        If sNameWanted = .FullName Then
            Select Case iWanted
                Case …