Hello,

I found a solution to get access to a shared Folder (Calendar) with the Email-address:


olFolderCalendar = 9
oOutlook = Createobject('outlook.application')
oNameSpace = oOutlook.getnamespace('MAPI')
oItems = oDefaultFolder.items

OutlookUser = oNameSpace.CreateRecipient("e.mail@addresse.com")
If Not OutlookUser.Resolve
=messagebox("User not found!")
return
else
OutlookCalendar = oNameSpace.GetSharedDefaultFolder(OutlookUser, olFolderCalendar)
oItems = OutlookCalendar.items
For ix = oItems.Count To 1 Step -1
if oItems.Item(ix).subject = "Testappointment"
lDelete = oItems.Item(ix).Delete
endif
Next ix


So far so good. With this solution I can only get access to the Default calendar of the user. But I now need access to a shared sub calender of him. How can I get access to his shared subcalendar (created under inbox - I have all rights)?
If I create a sub calendar under my own inbox, how can I get access to this folder?

Thanks for your help

Marcus