Bonjour,
J'utilise des écouteurs en vba sur outlook 2003 dont voici le 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
17 Private Sub Application_Startup() Set myOlApp = CreateObject("Outlook.Application") Set myNamespace = myOlApp.GetNamespace("MAPI") Set myFolder = myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Planning général") Set colRDVItems = myFolder.Items End Sub Private Sub colRDVItems_ItemAdd(ByVal Item As Object) MsgBox ("Add") end sub
jusque la tout va bien lorsque j'ajoute un rdv j'ai bien le msgbox qui s'affiche.
lorsque je veux étendre ça à la totalité des planning contenue dans "tous les dossiers public" ça ne marche pas voici ce que je met en code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub Application_Startup() Set myOlApp = CreateObject("Outlook.Application") Set myNamespace = myOlApp.GetNamespace("MAPI") Set myFolder = myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders) Set colRDVItems = myFolder.Items End Sub
que dois je faire...
Merci bcp d'avance
Partager