VB6 + OUTLOOK .PickFolder show shared Calendars

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.

Code:

---

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

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