Shared Calendar Folder Error Message

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
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
 
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 ?
 
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
 
Back
Top