Discussion :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bochene]

Bonjour,
je suis sur Outlook de la suite office 365 et en appliquant la macro pour récupérer les formulaire joint dans un mail, j'obtiens la même erreur au moment du débogage (ligne en rouge)

Private Sub Application_NewMail()
Dim myFld As Folder
Dim myDestFolder As Folder
Dim myNS As NameSpace
Dim myItem As MailItem
Dim oApp As Outlook.Application

Set oApp = Outlook.Application
Set myNS = oApp.GetNamespace("MAPI")
Set myFld = myNS.GetDefaultFolder(olFolderInbox)
Set myDestFolder = myFld.Folders("Temp")

Il n'y a pas eu de réponse à la question mais peut-être aurai-je la chance d'en avoir une aujourd'hui?
Merci d'avance