[Toutes versions] Erreur : Impossible de trouver un objet

[jims34]

Bonjour,

nouveau ce forum et débutant en VBA, je vous soumet une 1ere question :

Je cherche à afficher le calendrier partagé d'un autre utilisateur. Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Essai2()
    Dim ol As Outlook.Application
    Dim olns As Outlook.NameSpace
    Dim myRecipient As Outlook.Recipient
    Dim FloreFolder As Outlook.Folder
 
    Set ol = New Outlook.Application
    Set olns = ol.GetNamespace("MAPI")
    Set myRecipient = olns.CreateRecipient("Jean-Michel")
    myRecipient.Resolve
    If myRecipient.Resolved Then
        Set FloreFolder = olns.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
    End If
    FloreFolder.Display
 
End Sub

Quand j'exécute cette macro je reçois l'erreur suivante :

"Erreur d'exécution -2147221233 (8004010f)
Echec de l'opération. Impossible de trouver un objet."

C'est sur la ligne : Set FloreFolder = olns.GetSharedDefaultFolder(myRecipient, olFolderCalendar)

Quelqu'un peux m'aider ? Merci d'avance.

Jean-Michel