Shared Calendar Folder Error Message

[Safal]

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

 

[Sue Mosher [MVP-Outlook]]

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[Sue Mosher [MVP-Outlook]]

The Extended MAPI interface can't be used from VBScript.

This statement is the source of your problem and is totally unnecessary in Outlook custom form code:

Set ol = CreateObject("Outlook.Application")

You need to be using the intrinsic Application object:

Set ol = Application

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[Safal]

The code I have below is that of a *.vbs file that i had planned to use as a
"Scheduled Task". If i need to change the same to as suggested by you its has
to be in VBA ?

 

[Sue Mosher [MVP-Outlook]]

Too bad you didn't start out saying you were trying to automate Outlook from an external script running as a scheduled task. If you had, I would have told you:

1) Outlook is not suitable to automate from the Windows scheduler. CDO 1.21 or Redemption would be a better interface.

2) See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.

Redemption's RDO objects would solve both problems.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers