Доступ к адресной книге Outlook

[deepforest]

Скрипт работает с адресной книгой Outlook. После создания соответствующих объектов:

Код: Выделить всё

Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNameSpace("MAPI")
Set objContacts = objNS.Folders("Общие папки").Folders("Избранное").Folders("Адреса").Items

происходит непосредственное обращение к полям:

Код: Выделить всё

cEMail = objContact.Email1DisplayName

В этом месте Outlook выводит окно следующего содержания:

Программа пытается получить доступ к адресам электронной почты, хранящимся в Outlook. Разрешить это действие?

Подскажите пожалуйста, как можно избежать появление этого окошка?

[RayShade]

Поиск по форуму. Было обсуждение. И потом, в Кирпичном заводе по моему есть пример как это убрать.