Déclencher une macro a l'ouverture d'un mail pour modifier le champs objet

Bonjour,
J'aimerais modifier l'objet d'un mail (nouveau ou réponse)
J'arrive a enclencher la macro, mais je n'arrive pas a lire le champs objet, si il y a qq chose dedans pour le modifier
peut on m'aider ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public WithEvents AM As MailItem     Private Sub Application_ItemLoad(ByVal Item As Object) 'se déclenche à la selection du mail ' Vérifis que le formulaire est bien celui d'un MAIL If Item.Class <> olMail Then Exit Sub Set AM = Item   End Sub   Private Sub AM_Open(Cancel As Boolean) ' se déclenche à l'ouverture du Mail Dim Exp, DateRecp, NouveauSujet, TestObjet As String x = Format(Date, "yymmdd") Y = Subject     NouveauSujet = x & "_" & y & "_" & Subject Subject = NouveauSujet     End Sub

---

essaye comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Public WithEvents AM As MailItem     Private Sub Application_ItemLoad(ByVal Item As Object) 'se déclenche à la selection du mail ' Vérifis que le formulaire est bien celui d'un MAIL If Item.Class <> olMail Then Exit Sub Set AM = Item   End Sub   Private Sub AM_Open(Cancel As Boolean) ' se déclenche à l'ouverture du Mail   Dim Exp, DateRecp, NouveauSujet, TestObjet As String x = Format(Date, "yymmdd") Y = AM.Subject     NouveauSujet = x & "_" & y & "_" & AM.Subject AM.Subject = NouveauSujet am.save     End Sub

---

Super merci
Pendant que j'y suis je veux mettre le nom de l'envoyeur
J'ai essayé d'utiliser : Exp = AM.Sender.Name
Ca ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Public WithEvents AM As MailItem     Private Sub Application_ItemLoad(ByVal Item As Object) 'se déclenche à la selection du mail ' Vérifis que le formulaire est bien celui d'un MAIL If Item.Class <> olMail Then Exit Sub Set AM = Item   End Sub   Private Sub AM_Open(Cancel As Boolean) ' se déclenche à l'ouverture du Mail   Dim DateEnv, Exp, NouveauSujet, TestObjet As String DateEnv = Format(Date, "yymmdd") Exp = AM.Sender.Name TestObjet = AM.Subject         NouveauSujet = DateEnv & "_" & Exp & "_" & TestObjet   AM.Subject = NouveauSujet AM.Save     End Sub

---