Discussion :

[antoinantoine]

Bonjour,

Je souhaite renommer une grosse centaine de mails ayant le même sujet afin d'y ajouter le nom de l'expéditeur, en passant par une macro. D'un point de vue logique, je vois comment faire mais je suis étranger au VBA sur outlook.

J'aimerais sélectionner les mails que je veux renommer, lancer la macro et qu'elle ajoute automatiquement le nom de l'expéditeur devant le sujet de mail. L'objectif est de mettre ces mails dans un dossier et que leur nom ne soit pas "Sujet" "Sujet(1)" "Sujet(2)" etc.

Je pense que la macro est simple, mais je n'ai jamais fait de macro sur outlook et j'ai peur de faire des bêtises irréparables sur mes mails.

Merci à ceux qui prendront le temps de m'aider!

Antoine

[Jean-Philippe André]

Hello,

sujet deja aborde ici : https://www.developpez.net/forums/d1...t-d-mail-recu/

Avec la logique, tu adapteras le code sans trop de difficultes =]

[antoinantoine]

Super merci, ça fonctionne avec le code suivant que j'ai bricolé depuis l'autre discussion.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub modifsubjectlot()
Dim m As Long, mlist As Selection, mitem As MailItem
Set mlist = Application.ActiveExplorer.Selection
For m = 1 To mlist.Count
Set mitem = mlist(m)
'Affichage du mail à remplacer par le traitement à effectuer sur le mail
mitem.Display
mitem.Subject = mitem.SenderName & " " & mitem.Subject
mitem.Save
mitem.Close olDiscard
Next
End Sub

C'est un peu barbare je crois, c'est lent et ça fait clignoter l'écran une fois par mail, mais bon ça fonctionne.

Bonne fin de journée!

Antoine

[Jean-Philippe André]

En supprimant simplement l'affichage du mail pour commencer ?

Code :

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

mitem.Display

Si c'est OK, ca sauvera les epileptiques.

[antoinantoine]

Effectivement, pas besoin d'ouvrir le mail!

Merci