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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Safal" wrote in message ...

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

Hi,
I did go through the link sent by you. Well i could only conclude that I
either make sure of a 3rd party control or make use of C++ or Delphi to code
for the same. If yes please show me a few simple examples to do so.

-Safal

"Sue Mosher [MVP-Outlook]" wrote:

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Safal" wrote in message ...

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

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Safal" wrote in message ...
Hi,
I did go through the link sent by you. Well i could only conclude that I
either make sure of a 3rd party control or make use of C++ or Delphi to code
for the same. If yes please show me a few simple examples to do so.

-Safal

"Sue Mosher [MVP-Outlook]" wrote:

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.


"Safal" wrote in message ...

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

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]" wrote:

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Safal" wrote in message ...
Hi,
I did go through the link sent by you. Well i could only conclude that I
either make sure of a 3rd party control or make use of C++ or Delphi to code
for the same. If yes please show me a few simple examples to do so.

-Safal

"Sue Mosher [MVP-Outlook]" wrote:

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.


"Safal" wrote in message ...

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

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Safal" wrote in message ...
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]" wrote:

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

"Safal" wrote in message ...
Hi,
I did go through the link sent by you. Well i could only conclude that I
either make sure of a 3rd party control or make use of C++ or Delphi to code
for the same. If yes please show me a few simple examples to do so.

-Safal

"Sue Mosher [MVP-Outlook]" wrote:

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.


"Safal" wrote in message ...

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

Sorry about that I assumed you would recall the chain of email exchanges in
the past couple of days or threads. But then you attend to plenty of queries
so it would be diff to recall all of them
Thanks for the solution. Will try em out!.

-Safal

"Sue Mosher [MVP-Outlook]" wrote:

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Safal" wrote in message ...
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]" wrote:

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

"Safal" wrote in message ...
Hi,
I did go through the link sent by you. Well i could only conclude that I
either make sure of a 3rd party control or make use of C++ or Delphi to code
for the same. If yes please show me a few simple examples to do so.

-Safal

"Sue Mosher [MVP-Outlook]" wrote:

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.


"Safal" wrote in message ...

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