Не удается получить доступ к объекту AddressEntries из объекта AddressList (Outlook VBA)

Я пытаюсь получить доступ к свойству AddressEntries объекта AddressList внутри скрипта VBA в Excel. Список – это глобальный список адресов, содержащий контакты, хранящиеся на сервере Exchange.

Однако, когда я пытаюсь запустить следующий код, это дает мне ошибку:

Ошибка времени выполнения «287»: определяемая приложением или объектная ошибка

• Microsoft access импортирует всю электронную почту из любой папки из Outlook
• Оптимизация кода - прокрутка / поиск электронной почты из Excel
• Доступ к автоответчикам (ООО) в Outlook 2013 с использованием VBA
• Извлечение информации электронной почты Outlook в Excel со специфических дат vba
• Как захватить данные из формы VBA Access и использовать эти данные в пользовательской форме Outlook?

Вот код barebones, который я пытаюсь выполнить. Отладчик останавливается в строке, где я пытаюсь получить доступ к AddressEntries.

Public Sub Test() Dim appOL As Object Dim mapiNamespace As Object Dim GAL As AddressList, allGAL As AddressEntries Set appOL = GetObject(, "Outlook.Application") Set mapiNamespace = appOL.GetNamespace("mapi") Set GAL = mapiNamespace.AddressLists("Global Address List") Set allGAL = GAL.AddressEntries 'Debugger stops here MsgBox allGAL.Count End Sub 

Может ли какая-то настройка на сервере предотвратить мой доступ к записям списка? Есть ли другой способ получить записи? Моя конечная цель – получить записи из списка, которые соответствуют списку адресов электронной почты, которые у меня есть в файле excel, и проверить, есть ли в каждой записи рабочий телефон #, указанный в свойстве номера телефона.

Изменить: Изображение Перспективы выравнивает мои параметры

Установить приложение

Edit2: Это все равно дает мне ту же ошибку на второй строке

 Set appOL = CreateObject("Outlook.Application") Set oGAL = appOL.GetNamespace("MAPI").AddressLists("Global Address List").AddressEntries