[VBA Outlook] Déplacer un mail dans un dossier au même niveau que "Boîte aux lettres" [Résolu]

[Dailyplanet]

Bonjour,

Oliv' m'a donné un code (Outlook 2003) pour déplacer un mail à l'intérieur de ma "Boîte aux lettres" dans le dossier "test".

Code :

1
2
3
4
5
6
7
8
9
...
Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.MAPIFolder
    Set myNameSpace = objOutlook.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myDestFolder = myInbox.Folders("test")
    Myentryid = objMail.EntryID
     Set objMail = objMail.Move(myDestFolder)
...

Mais est-il possible de déplacer ce mail dans un dossier au même niveau que "Boîte aux lettres".

Je m'explique: J'ai plusieurs "comptes" ou " "Boîte aux lettres" et j'aimerai créer un nouveau dossier par exemple "Dossiers d'archivage" et le mettre au même niveau que mes comptes, puis déplacer certains mail dans ce dossier.

Dailyplanet

[Oliv-]

Salut,

Avec ceci

Code :

Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).parent

[Dailyplanet]

Puis-je encore monter d'un niveau, au même que la Boîte aux lettres ?

Dailyplanet