Bonjour à tous,
Je vous sollicite pour un petit problème que je rencontre.
J'ai un classeur permettant d'envoyer des mails personnalisés avec mozilla thunderbird.
Pour faire court, j'ai un userform contenant une liste de destinataire dans un combobox.
Juste à côté, j'ai un textbox censé contenir le corps du mail qui devra être envoyé.
Comme dans tous mails professionnels, un minimum de mise en forme doit être de rigueur ; retour à la ligne, saut de ligne etc.
J'ai donc réussi à faire des retours à la ligne dans mon textbox, ainsi que des sauts de ligne mais ceux-ci ne se reproduisent pas dans le corps de mail. Quand la fenêtre thunderbird s'ouvre, j'ai le contenu de mon textbox en pavé.
J'ai bien trouvé une solution en intégrant des "<br><br>" directement après le texte dans le textbox, mais comme le fichier est destiné à plusieurs collègues, ceci sera impossible à comprendre pour eux.
Si quelqu'un avait une solution... Pour le coup je ne sais pas si cela peut se régler avec du VBA ou si c'est lié aux réglages de Thunderbird.
Un grand merci par avance,
Bien cordialement,
SC
Private Sub CommandButton1_Click()
Dim destinataire, sujet, fichierjoint, cc As String
destinataire = combobox1.value
cc = combobox2.value
sujet = TextBox2.Value
Text1 = TextBox3.Text
Body = Text1
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & sujet1 & ","
strcommand = strcommand & "body='" & Body & "'"
strcommand = strcommand & "," & "cc='" & cc
Call Shell(strcommand, vbNormalFocus)
End Sub