MS Outlook календарь

[Белый котик Профиль]

Написал скрипт
При попытке обращения к получателям события возникает окно Outlook, которое спрашивает - разрешить доступ к календарю для программы или нет.
Как убрать это окно? Заранее благодарен


Set Application = CreateObject("Outlook.Application")
Set MyNameSpace = Application.GetNameSpace("MAPI")
Set MyCalendarFolder = MyNameSpace.GetDefaultFolder(9)
Set MyItems = MyCalendarFolder.Items
for each itm in MyItems
if Month(itm.Start)=month(now) then
print itm.Subject
print itm.Start
for each recipient in itm.Recipients
print recipient.Name
next
end if
next
sub print (what)
wscript.echo what
end sub