Use GetSharedDefaultFolder using Redemption

  • Thread starter Thread starter Dave
  • Start date Start date
D

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
 
Redemption's MAPIUtils has a CreateRecipient method that returns a
SafeRecipient that can be used with GetSharedDefaultFolder without setting
off the security prompts.
 
Back
Top