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

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

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

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

Вот код 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 

Кажется, что ваш антивирус рассматривает доступ как потенциальную угрозу – это закодированная автоматизация для последующего доступа к вашим данным.

Проконсультируйтесь с администратором и посмотрите, можете ли вы включить один из вариантов, показанный в вашем центре доверия (Откройте Outlook 2010, перейдите в пункт меню «Файл / Параметры / Центр доверия», а затем нажмите кнопку «Настройки центра доверия» на правая сторона диалогового окна), предпочтительно самая первая.

Вот статья по разрешению доступа, которую вы можете попробовать.

  • Как установить свойство Recipients в Outlook.AppointmentItem?
  • Как я могу подавить предупреждение Outlook при отправке почты с помощью макроса в excel
  • Поиск в папке Outlook в файле вложения
  • Как вставить гиперссылку в тело электронной почты
  • Создание макроса в Outlook для извлечения данных из отчетов
  • Экспорт содержимого электронной почты в Excel / Google Таблицы
  • Найти письмо, начинающееся с конкретной темы с помощью VBA
  • Excel VBA: прикреплять файлы к электронной почте без полного имени файла
  • Попытка открыть шаблон электронной почты Outlook с помощью excel VBA
  • Захват графов (объектов) в пределах выделения
  • vba копировать тело электронной почты, чтобы преуспеть в качестве таблицы
  • Давайте будем гением компьютера.