获取主要帐户以外的全局地址列表？

Question

我有两个帐户...

• me@primary.com
• me@secondary.com

我的“主要”帐户是我的默认帐户。

我需要获取“辅助”帐户的“全局地址列表”。

即使我使用辅助帐户，此代码也为我提供了主要帐户的全局地址列表...

Dim account As Outlook.Account

For Each acc As Outlook.Account In Outlook.Application.Session.Accounts
    If acc.SmtpAddress = "me@secondary.com" Then
        account = acc
        Exit For
    End If
Next

Dim store As Outlook.Store = account.DeliveryStore

Dim globalAddressList As Outlook.AddressList = store.Session.GetGlobalAddressList

如何获取“ secondary.com”地址的全局地址列表？

谢谢。

Answer 1

Outlook对象模型没有显式公开该功能。最好的办法是遍历Application.Session.AddressLists集合以选择正确的容器。

如果使用Redemption是一个选项，它将公开RDOExchangeAccount。GAL属性（返回RDOAddressList对象）。