VB6 + OUTLOOK .PickFolder show shared Calendars

[christ62]

Hello,

I don't understand why I can't list the Shared Calendar with this code. If a friend shares his calendar, I don't see him.

        Dim lO_OutObj As Outlook.Application
        Set lO_OutObj = CreateObject("Outlook.Application")
        
        Dim lO_fdrCalendrier As Outlook.MAPIFolder
        Set lO_fdrCalendrier = lO_OutObj.GetNamespace("MAPI").PickFolder
        
        If Not (lO_fdrCalendrier Is Nothing) Then
            MsgBox "ok"
        Else

        End If
        
        Set lO_OutObj = Nothing
        Set lO_fdrCalendrier = Nothing

Is that impossible? But if i try with Outlook exchange 2013, It's ok. With Outlook 365 nop :/

[jdc2000]

Are you referring to Office 365 Outlook in a web browser? If yes, then the code you have shown won't work there.