>Hello,
>
>I found a solution to get access to a shared Faolder. I need 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
I do not know. If I find the answer, I will reply.
Thanks