[OL-2003] Renommer l'objet d'un mail [Résolu]

[FCL31]

Bonjours a tous

Je voudrais savoir comment renommer l'objet d'un (ou plusieurs) mail sélectionné(s) en y ajoutant la date de réception.

Par exemple j'ai un mail "Bidule" reçu le 31/03/2011
Je voudrais qu'il soit renommer : "2011/03/31 | Bidule"

C'est possible ou pas ???
Comment dois je faire ??

SVP
Merci !

[FCL31]

J'ai réussi a faire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test2()
 
    Dim Exp As Explorer
    Dim Sel As Selection
    Dim Itm As MailItem
 
 
    Set Exp = ActiveExplorer
    Set Sel = Exp.Selection
 
    For Each Itm In Sel
        Itm.Subject = Itm.ReceivedTime & Itm.Subject
 
        Itm.Save
 
    Next Itm
 
        Set Itm = Nothing
        Set Sel = Nothing
        Set Exp = Nothing
 
 
End Sub

Qui a l'air de marcher mais il me faudrait pouvoir changer la mise en forme de la date

Une idée ??

[FCL31]

Bonjours a tous

En cherchant un peu partout sur le net, j'ai trouver ma solution (je pense)
J'ai remplacé ma ligne

Code :

        Itm.Subject = Itm.ReceivedTime & " | " & Itm.Subject

Par :

Code :

        Itm.Subject = Format(Itm.ReceivedTime, "yyyy/mm/dd") & " | " & Itm.Subject

Ce qui a l'air de marcher

Toutefois, si quelqu'un vois une erreur ou un problème dans mon code, se serrai cool de ma le faire savoir!!

Merci a tous !