Bonjour à tous,

J'ai un soucis dans mon code pour rattacher la valeur d'une cellule dans mon mailto(extrait code ci-dessous)

J'ai bien essayé de plusieurs manière mais les données de la cellule ne se rattache pas même si ma fenêtre Outlook s'ouvre correctement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
destinataire = [FORMULAIRE SAISIE'!B1]
Message = [FORMULAIRE SAISIE'!B7]
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto:destinataire " & Email & "?subject=" & "?Body=test" & PropAdd, "", "", "Envoyer message"
 Msg = "Envoyer le message?"
 Ans = MsgBox(Msg, vbYesNo)
 If Ans = vbNo Then Exit Sub
 If Ans = vbYes Then ActiveCell.Hyperlinks(1).Follow
Pour info mes données à récupérer se trouve dans la feuille FORMULAIRE SAISIE (qui se rempli avec un formulaire) et les données sont
Email: B1
Objet: B4
Corps du mail B6 + B7 + B8

Quelqu'un voit-il où est mon erreur?

Merci d'avance.