Hi, I can acess a shared calendar folder via Ms Outlook 2003. I am trying to
get the values of the same via a script shown below -

But each time i run the script i get the following pop-up on my outlook window
"A program is trying to access email......."
"If this is unexpected it may be a Virus......."
Allows acess with a checkbox shows

If i click "No" the script ends. Why this behaviour ? And how can one avoid
the same ?

Below is the code i tried for the same -

' Automation code.
Set ol = CreateObject("Outlook.Application")
Set olns = ol.GetNameSpace("MAPI")

' Get the shared calendar for a user
Set myRecipient = olns.CreateRecipient("Firstname Lastname")
myRecipient.Resolve
If myRecipient.Resolved Then
Set MyFolder2 = olns.GetSharedDefaultFolder(myRecipient, 9)
' Get the number of items in the folder.
NumItems = MyFolder2.Items.Count
' Set MyItem to the collection of items in the folder.
Set itms = MyFolder2.Items
' Loop through all of the items in the folder.
For Each itm in itms
If itm.Start "" Then MsgBox DateValue(itm.Start)
Next
Else
MsgBox "Cannot find the calendar for user"
End If