excel - 通过 UserID 在 Outlook 中搜索联系人

Question

我想要实现的是通过 UserID 在 Outlook 中查找联系人。这是我正在使用的代码的一瞥(使用此论坛上其他线程的提示汇总在一起):

Sub Lookup_address_book (a as Integer, thissheet as Worksheet, myrange as Range)

Dim myoutapp as Object
Dim myNameSpace as NameSpace
Dim myAddrList as AddressList
Dim myAddrEntry as AddressEntry
Dim alias as String
Dim cell as Range

Set myoutapp = CreateObject("Outlook.Appliation")
Set myNameSpace = myoutapp.GetNameSpace("MAPI")
Set myAddrList = myNameSpace.AddressLists("All Users")

With thissheet

For Each cell In myrange
alias = .Cells(cell.row,a)
Set myAddrEntry = myAddrList.AddressEntries(alias)
.Cells(cell.row,a+1) = myAddrEntry.Name
.Cells(cell.row,a+1) = myAddrEntry.GetExchangeUser.Department
Next
End With
End Sub

好吧，代码有效，但效果不是我所期望的。我通过他们的usderID查找人，例如。 d588588 表示，比如说，一个 Doe，John。但是，当我查找 ID 时，Outlook 会在列表中找到我姓氏以 D 开头的第一个人，例如。丹尼尔斯，乔。我想发生的是，默认情况下，搜索仅按名称完成，如屏幕截图所示。通过自己输入 ID 对此进行了测试，我得到的和宏给我的一样。

Addressbook

如果我启用“更多列”选项进行搜索，我就能找到正确的人。我一直在试图找到一种方法让我的宏在其他领域看起来，但没有运气。我已经查看了整个 OOM，但找不到任何可以帮助我的东西。

有没有办法让宏在除名称之外的其他字段中查找 ID，并让我得到具有此 ID 的人的姓名，而不是姓氏以与 ID 相同的字母开头的人？

Answer 1

调用 Namespace.CreateRecipient/Recipient.Resolve - GAL 提供者将能够通过登录别名解析。获得 Recipient 对象后，使用 Recipient.Name属性(property)