Discussion :

[alexvol]

Bonjour,

avant de poster cette question, j'ai consulté ce post. Il n'a répondu qu'à une partie de mon problème que voici :
je souhaite déplacer mon mail dans un sous-dossier de second niveau, le dossier "Collective". Voici un exemple d'arborescence :

• Boite de réception
  
  • Communications
  • Formations
    
    • Perso
    • Collective
• Eléments envoyés

Je n'arrive pas à accéder à ce sous-dossier. J'ai éssayé avec ces deux propositions mais j'ai échoué.

Si c'est un sous dossier de la boite de reception par defaut
= GetDefaultFolder(olFolderInbox).folders("toto")
Dossier au même niveau
= GetDefaultFolder(olFolderInbox).parent.folders("toto")

Si quelqu'un a la solution, je suis preneur.

Merci par avance

[joe.levrai]

Bonjour,

pour pointer sur le dossier Collective, essaye comme ça :

Code :

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

GetDefaultFolder(olFolderInbox).Folders("Formations").Folders("Collective")

[alexvol]

Bonjour

merci pour cette proposition qui fonctionne parfaitement au vue de ma description...Quand j'ai voulu l'appliquer, je me suis aperçu qu'il y avait encore un sous-niveau.
J'ai tenté :

Code :

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

objNS.GetDefaultFolder(olFolderInbox).Folders("Collective").Folders("sous-niveau")

-> J'obtiens une erreur.

Code :

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

objNS.GetDefaultFolder(olFolderInbox).Folders("Formations/Collective").Folders("sous-niveau")

-> Encore une erreur

Désolé de mon erreur de niveau.

Merci pour l'aide apportée

[joe.levrai]

Bonjour,

il faut enchainer les Folders(x) pour chaque descente de niveau, donc ici il en faut trois

Code :

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

objNS.GetDefaultFolder(olFolderInbox).Folders("Formations").Folders("Collective").Folders("sous-niveau")

[alexvol]

Bonjour,

cela fonctionne parfaitement !!!

Encore merci.