Discussion :

[pepsister]

Bonjour,

Voila dans outlook j'ai un dossier Archives au même niveau que boîte de reception. Déplacer un mail de boite de réception vers Archives en VBA, j'y arrive.
Voici mon code:

Code :

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

1
2
3
4
5
6
7
 
Dim olNS As Outlook.NameSpace
Set olNS = Application.GetNamespace("MAPI")
Dim myDestFolder As Outlook.MAPIFolder     
Set MyInbox = olNS.GetDefaultFolder(olFolderInbox).Parent
Set myDestFolder = MyInbox.Folders("Archives")
MyMail.Move myDestFolder

Par contre je voudrais déplacer mon mail dans un sous dossier de 'archives' et là je bloque.

Pouvez-vous m'aider a comprendre les déplacements de mail dans les différents dossier / sous dossier de ma messagerie?

Merci beaucoup

[joe.levrai]

Bonjour,

[Je me permet de poster une réponse adéquate, étant donné que le sujet est marqué "RESOLU" sans solution pour toute personne intéressée par la question]

déplacer un mail dans ton dossier "Archives" :

Code :

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

1
2
3
4
 
 
Set myDestFolder = MyInbox.Folders("Archives")
MyMail.Move myDestFolder

déplacer un mail dans un sous dossier de ton dossier "Archives" :

Code :

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

1
2
3
4
5
 
 
Set myDestFolder = MyInbox.Folders("Archives").Folders("nom du sous-dossier")
 
MyMail.Move myDestFolder

Et si tu veux le déplacer dans un "sous dossier du sous dossiers" de ton dossier "Archives" :

Code :

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

1
2
3
4
5
 
 
Set myDestFolder = MyInbox.Folders("Archives").Folders("nom du sous-dossier").Folders("nom du sous sous-dossier")
 
MyMail.Move myDestFolder

Pour résumer : l'arborescence des sous-dossiers se parcours en "ajoutant" .folders("nom du dossier") autant de fois que tu souhaites descendre dans l'arborescence.