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
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