Bonjour à tous ,
j'ai crée un dossier commun dans outlook utilisé par 6 autres personnes Je souhaite le faire ouvrir en tache planifié à 9h J'ai donc crée un code qui chez moi fonctionne trés bien
j'ai donc pris ce code et je l'ai installé chez les autres mais là j'ai un souci car le code fait une erreur et me dit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub calendar() Dim myFolder As Outlook.Folder Dim mOutlookApp As New Outlook.Application Dim mNameSpace As Outlook.Namespace Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar) myFolders = myFolder.Folders("calendrier communautaire").Display End Sub
erreur -2147221233 8004010f
impossible d'executer l'operation impossible de trouver l'objet
a savoir que le calendrier et visible dans les calendriers
Pouvez vous m'aider ?
Partager