Bonjour,
je suis sous Outlook 2010 au travail avec un quota ridicule qui me fait totalement cracker
Idéalement, je souhaiterai faire une macro qui me permettrait, toutes les heures, de transférer les mails de mon dossier "exemple 1" de ma boîte de réception vers le dossier "exemple 1" de mon archive.
J'ai trouvé le code suivant sauf qu'il s'agit de MAPI et que je suis sous Exchange donc ça ne fonctionne pas.
Pourriez-vous m'aider s'il vous plaît ?
@+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub MoveItems() 'By Oliv' février 2007 Dim myOlApp As New Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.MAPIFolder Dim myDestFolder As Outlook.MAPIFolder Dim myItems As Outlook.Items Dim myItem As Object Set myNameSpace = myOlApp.GetNamespace("MAPI") 'ici le dossier d'origine Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Divers") Set myItems = myInbox.Items 'ici le dossier destination Set myDestFolder = myNameSpace.Folders("Dossiers personnels").Folders("Divers") For each Myitem in myItems Myitem.Move myDestFolder Next Set myNameSpace=nothing Set myInbox=nothing Set myItems =nothing Set myDestFolder =nothing
Partager