Excel VBA 使用 ExchangeUser Alias 属性搜索 Outlook GAL

【问题标题】：Excel VBA Search Outlook GAL Using ExchangeUser Alias PropertyExcel VBA 使用 ExchangeUser Alias 属性搜索 Outlook GAL
【发布时间】：2014-07-10 18:07:16
【问题描述】：

我正在尝试使用 Excel VBA 搜索超过 200,000 个 Outlook GAL，而我唯一的搜索参数是别名属性。

这可以从 Outlook >> 通讯簿 >> 高级查找对话框中完成，它会很快返回结果。

我尝试过遍历每个项目，调用 ExchangeUser 对象并将 Alias 属性与我的搜索进行比较，但这需要很长时间。

来源是一份月度报告，其中包含大约 100 个别名且不断变化的 Excel 列表，每个别名都必须在包含超过 200,000 个条目的 Outlook GAL 中进行搜索。

有没有一种方法可以在 Excel 中实现与 Outlook 对话框一样快的响应速度？

【问题讨论】：

标签： vba excel outlook

【解决方案1】：

你可以

使用Application.Session.CreateRecipient / Recipient.Resolve 并希望别名能够解析并且没有歧义条目。搜索将在搜索路径上的所有地址簿容器中执行。
使用扩展 MAPI（C++ 或 Delphi）对 GAL 应用一个限制。请注意，只能应用非常特殊的限制 - 您需要将 PR_SEARCH 属性打开为 IMAPIContainer，设置 PR_ALIAS 属性，调用 IMAPIContainer::GetSearchCriteria，然后将该条件应用于 GAL 内容表。
使用 Redemption（任何语言，我是它的作者） - 它公开了 RDOAddressListSearch 对象

【讨论】：