Redemption possibility

[Johnny E Jensen]

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

 

[Dmitry Streblechenko]

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]

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

 

[Ken Slovak - [MVP - Outlook]]

objSafeAppointment.Item = objAppointment

Not

Set objSafeAppointment.Item = objAppointment