Hello

I've made a group calendar control to view all recipients appointments. I
created the control on a machine with the program ClickYes installed. But
many Administrators don't like the idea to have ClickYes installed - (i
don't either).

So i saw the Redemption component - would it be possible to loop though all
reciepients calendar items. I tryed the Set objSafeRC =
objNS.CreateRecipient("name") but no lock.

Anyone with an example?

Kind regards
Johnny E. Jensen

You can call Namespace.GetSharedDefaultFolder in OOM *without* causing a
security prompt if you do *not* call Recipient.Resolve after calling
Namespace.CreateRecipient.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Johnny E Jensen" wrote in message
...
Hello

I've made a group calendar control to view all recipients appointments. I
created the control on a machine with the program ClickYes installed. But
many Administrators don't like the idea to have ClickYes installed - (i
don't either).

So i saw the Redemption component - would it be possible to loop though
all reciepients calendar items. I tryed the Set objSafeRC =
objNS.CreateRecipient("name") but no lock.

Anyone with an example?

Kind regards
Johnny E. Jensen

Hello Dmitry

Thanks for your time.

As far as getting SharedDefaultFolder OK
Then I do this

Dim objItems as Object
Dim objAppointment as Outlook.AppointmentItem
Dim objSafeAppointment as Redemption.SafeAppointmentItem

Set objItems = oSharedDefFolder.Items
objItems.Sort "[Start]"
..... some code to make filtering string
Set objAppointment = objItems.Find(strFilter)
While TypeName(objAppointment) "Nothing" And TypeName(objAppointment)
"Empty"
DoEvents
Set objSafeAppointment As New Redemption.SafeAppointmentItem
Set objSafeAppointment.Item = objAppointment === ERROR: Object not
set
Set objAppointment = objItems.FindNext
Wend

How to copy the OOM object (AppointmentItem) to SafeAppointmentItem ?

Kind regards
Johnny E Jensen


"Dmitry Streblechenko" wrote in message
...
You can call Namespace.GetSharedDefaultFolder in OOM *without* causing a
security prompt if you do *not* call Recipient.Resolve after calling
Namespace.CreateRecipient.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Johnny E Jensen" wrote in message
...
Hello

I've made a group calendar control to view all recipients appointments. I
created the control on a machine with the program ClickYes installed. But
many Administrators don't like the idea to have ClickYes installed - (i
don't either).

So i saw the Redemption component - would it be possible to loop though
all reciepients calendar items. I tryed the Set objSafeRC =
objNS.CreateRecipient("name") but no lock.

Anyone with an example?

Kind regards
Johnny E. Jensen

objSafeAppointment.Item = objAppointment

Not

Set objSafeAppointment.Item = objAppointment

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Johnny E Jensen" wrote in message
...
Hello Dmitry

Thanks for your time.

As far as getting SharedDefaultFolder OK
Then I do this

Dim objItems as Object
Dim objAppointment as Outlook.AppointmentItem
Dim objSafeAppointment as Redemption.SafeAppointmentItem

Set objItems = oSharedDefFolder.Items
objItems.Sort "[Start]"
.... some code to make filtering string
Set objAppointment = objItems.Find(strFilter)
While TypeName(objAppointment) "Nothing" And TypeName(objAppointment)
"Empty"
DoEvents
Set objSafeAppointment As New Redemption.SafeAppointmentItem
Set objSafeAppointment.Item = objAppointment === ERROR: Object not
set
Set objAppointment = objItems.FindNext
Wend

How to copy the OOM object (AppointmentItem) to SafeAppointmentItem ?

Kind regards
Johnny E Jensen