If it's a bug how does one resolve it? Is it readable some other way eg MAPI
property or in the registry?
FYI - Here's my code....
Public Sub appfolders()
Dim olApp As New Outlook.Application
Dim nsp As Outlook.NameSpace
Dim sycs As Outlook.SyncObjects
Dim syc As Outlook.SyncObject
Dim fdr As Outlook.MAPIFolder
Dim myRecipient As Outlook.Recipient
Dim insync As Boolean
Set nsp = olApp.GetNamespace("MAPI")
Set sycs = nsp.SyncObjects
Set syc = sycs.appfolders
Set myRecipient = nsp.CreateRecipient("John Doe")
myRecipient.Resolve
If myRecipient.Resolved Then
Set fdr = nsp.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
insync = fdr.InAppFolderSyncObject <---- throws error
End If
End Sub