Получить глобальный список адресов для другой учетной записи?

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

Как мне получить глобальный список адресов для моего адреса "second.com"?

Спасибо.

Answer 1

В объектной модели Outlook эта функция явно не раскрывается.Лучшее, что вы можете сделать, - это перебрать коллекцию Application.Session.AddressLists , чтобы выбрать нужный контейнер.

Если используется Погашение , это опция *Свойство 1007 * RDOExchangeAccount . GAL (возвращает RDOAddressList объект).