Use GetSharedDefaultFolder using Redemption

[Dave]

Is there anyway to then achieve this without any security
warnings popping up using Redemption?


Dim myNameSpace, myRecipient, CalendarFolder As object

myNamespace = Application.GetNamespace("MAPI")
myRecipient = myNamespace.CreateRecipient("Name")
myRecipient.Resolve
If myRecipient.Resolved Then
CalendarFolder := myNameSpace.GetSharedDefaultFolder
(myRecipient, olFolderCalendar)
end If

 

[Ken Slovak - [MVP - Outlook]]

Redemption's MAPIUtils has a CreateRecipient method that returns a
SafeRecipient that can be used with GetSharedDefaultFolder without setting
off the security prompts.