Discussion :

[jondsyl]

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 :

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
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

[Oliv-]

essaye comme cela

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
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

[jondsyl]

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 :

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
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