Tous les dossiers public

Version imprimable

Bonjour,

J'utilise des écouteurs en vba sur outlook 2003 dont voici le code

Code:

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:

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

08/10/2008, 18h04
Oliv-

Salut,
Ca veut dire quoi "ça marche pas" ?

Selon moi si tu as 10 dossiers ou sous dossiers tu dois créer 10 "WithEvents"
22/10/2008, 09h25
mail.spam

Bonjour et merci Oliv

"ça marche pas" veux seulement dire que mon écouteur ne fonctionne pas sur tous mes sous dossiers de mon dossier public.

J'ai fait ce que tu disais en créant plusieur écouteur et là ça marche!!!
Mais j'aurais voulu ne pas être obliger ne faire plusieurs "WithEvents"
car je dois retourner dans le code à chaque création de sous dossier.

Merci quand même.
22/10/2008, 09h53
Oliv-

Salut,
Il y a peut être quelque chose à faire dans un module de classe, en créant une boucle qui va parcourir tous les sous dossiers.

Par contre je ne sais pas comment faire pour déclarer les variables WithEvents dynamiquement.

Regarde ce fil il pourra peut être te donner des idées

http://www.developpez.net/forums/d57...riables-objet/

Quoi qu'en y pensant tu peux déclarer 50 variables en prévisions !!!