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".
Mais est-il possible de déplacer ce mail dans un dossier au même niveau que "Boîte aux lettres".
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) ...
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![]()
Partager