Bonjour à toutes et tous,

Je viens aujourd'hui vers vous car mon fichier excel contenant l macro fonctionnait et depuis quelques semaines, je n'arrive plus à l'utiliser comme je le faisais avant et je ne comprends pas pourquoi.
En effet, le but de mon code est de récupérer le mail ouvert et de le transférer avec un contenu supplémentaire dans le corps du mail, exactement comme si, manuellement, je prenais le mail, je le transférais et rajoutais mon texte et mes destinataires.

Voici la partie de mon code qui gère ce transfert et qui, je pense, ne fonctionne plus :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Transfert_Click()
 
    Dim myinspector As Outlook.Inspector
    Dim ThisEmail As Outlook.MailItem
    Dim FwEmail As Outlook.MailItem
 
    Set myinspector = Outlook.ActiveInspector
    Set ThisEmail = myinspector.CurrentItem
    Set FwEmail = ThisEmail.Forward
 
    With FwEmail
        .Subject = "Tranfert automatique."
Si quelqu'un avait une idée e l'endroit qui peut pêcher ...

Merci à toutes et tous pour votre aide et le temps précieux que vous pourrez m'accorder

Cordialement,
Talzatior.