Discussion :

[splach]

Bonjour a tous.
Bon je viens soliciter rapidement votre aide. Je suis en train de faire un script permettant d archiver les mails que j ai préalablement selectionner dans un dossier "ToIndex" dans différent dossier en fonction du numero que j attribut. Jusque la tout va biens!

Mon probleme viens de l ordre dans lesquel je les selectionne. Voici un peu de mon code.

Code :

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

1
2
3
4
5
6
7
8
9
 
Set objOutlook = CreateObject("Outlook.Application")
Set objMailbox = objNamespace.Folders(strFolderName)
Set objFolder = objMailbox.Folders("ToIndex")
Set colItems = objFolder.Items
 
For Each objMessage In colItems
....
next

ceci me selectionne les mails du plus récent au plus anciens et dans un but d archivage vous comprendrez que l inverse serais plus pratique.... Si vous avez une Idée dessus je suis preneur Merci d avance!!!!


Splach

[omen999]

bonjour,
un exemple (avec le champ "subject"):
http://www.dailydoseofexcel.com/arch...ms-in-outlook/

[splach]

Code :

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

colItems.Sort "ReceivedTime"

ceci marche a la perfection merci enormément.

Si quelqu un est interesser par ce script n hesitez pas a me contacter.