VBA Thunderbird encoi de Mail + caracteres avec accents

Bonjour,

Je cherche depuis 15 jours sur tous les forums la possibilité d'envoyer un mail en macro avec Thunderbird.

J'ai trouvé mon code qui fonctionne mais un dernier élément reste apparent.

Lorsque le mail est généré, tous les caractères avec un accent sont supprimés. Le texte devient donc incompréhensible. (Ex: "à")

C'est peut être un petit paramétrage mais impossible d'obtenir la solution.

Voici mon code :

Private Sub MailPMV_Click()

Dim destinataire, sujet, sujet1 As String

destinataire = InputBox("E-mail du destinataire")

sujet = "Votre projet de voyage Promovacances \ Dossier N° "

sujet1 = InputBox("N° de dossier")

text1 = Range("A3") & " "

text2 = Range("A5") & " "

text3 = Range("A9") & " "

text4 = Range("A11") & " "

text5 = Range("A13") & " "

text6 = Range("A15") & " "

text7 = Range("A17") & " "

text8 = Range("B2") & "," & " "

text9 = Range("A18") & " " & Range("B18")

body = text1 & text2 & text3 & text4 & text5 & text6 & text7 & text8 & text9

strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"

strcommand = strcommand & " -compose " & "to='" & destinataire & "'"

strcommand = strcommand & "," & "subject=" & sujet & sujet1 & ","

strcommand = strcommand & "body='" & body & "'"

MsgBox strcommand

Call Shell(strcommand, vbNormalFocus)

End Sub

A chaque cellule correspond un texte.

Je vous remercie infiniment de votre aide.C