Envoi de mail avec Thunderbird, mise en forme du corps

Bonjour à tous,

J'ai une macro me permettant d'envoyer un mail à plusieurs destinataires en même temps. (En gros, un petit outil de mailing).

Le souci, c'est que le corps du mail (qui change à chaque fois), est contenu dans une cellule. (fusionnée pour avoir la place d'écrire )

Dans cette cellule, il y a des phrases en gras, des sauts lignes, des retours à la ligne, etc.

Mais lorsque le mail est généré, Thunderbird ne prend pas en compte toute cette mise en forme. Je retrouve mon texte en un seul tenant, sans mes sauts de ligne.

Est-ce qu'il existe une solution, à part mettre "des balises html" à chaque fois dans ma cellule ?

Merci par avance pour vos réponses,

Sub Envoimail()

Dim destinataire As String
Dim sujet As String
Dim body As String
Dim i As Integer
Dim PJ As String

    With Sheets("Mailing")
        For i = 10 To .[L65536].End(xlUp).Row 

    destinataire = .Cells(i, "L")
    sujet = Range("B7")
    body = Range("B10")
    PJ = Range("L2")

strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body='" & body & "'"
strcommand = strcommand & "," & "format='" & 1 & "'"
strcommand = strcommand & "," & "attachment=file:///" & PJ

Call Shell(strcommand, vbNormalFocus)

Next i

  End With
End Sub

Bonjour,

Est-ce qu'il existe une solution, à part mettre "des balises html" à chaque fois dans ma cellule ?

Oui, formater le texte en vba

Par exemple,

strHtml = "Bonjour, </font></BR>"
strHtml = strHtml & "<BR>" & _
"Vous avez reçu une nouvelle Demande d'Intervention validée à l'instant. </font></BR>"
strHtml = strHtml & "<BR>" & _
"Merci de bien vouloir la prendre en compte. </font></BR>"
strHtml = strHtml & "<BR>" & _
"<font color=black>Bien cordialement.</font>" & "<BR><BR>"
strHtml = strHtml & "<BR>" & _
"<font color=blue>L'équipe Travaux. </font>" & "<BR>"
strHtml = strHtml & "<BR><BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""

strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body='" & strHtml & "'"
strcommand = strcommand & "," & "format='" & 1 & "'"
strcommand = strcommand & "," & "attachment=file:///" & PJ
Rechercher des sujets similaires à "envoi mail thunderbird mise forme corps"