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 : Sélectionner tout - Visualiser dans une fenêtre à part
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