Aller à la ligne dans mail html généré par macro

Bonjour le forum

En pièce jointe j'ai mis un fichier qui me permets de générer un mail en fonction de plusieurs UserForms.

Mon souci, je n'arrive pas à mettre en forme le corps du mails lorsqu'il est générer.

Tout le texte ce colle à la suite alors que mois je voudrais des paragraphes en fonction des "UserForms".

Si quelqu'un connait la manière de faire (pour lancer le code cliquez sur mon ami le fumeur).

Merci d'avance pour votre aide et votre disponibilité

Bonjour eole-33,

Peux-tu joindre le code HTML généré sur le forum? (Pour ma part ton fichier ne fonctionne pas, et je n'ai pas trop le courage de trouver pourquoi ^^) Surtout que ton soucis semble venir de ta sortie HTML et non de ton code VBA.

Bonjour d3d9x

Merci pour ton aide, mais je viens de trouver

Voici le code

Option Explicit

Sub EnvoiReponse()

Dim ObjOutlook As New Outlook.Application
Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

   With olMail
       .To = Range("Feuil1!A1").Value ' le destinataire(adresse du mail d'origine)
       .CC = Range("Feuil1!A2").Value ' le destinataire
       .Subject = Range("Feuil1!D1").Value 'Récupération de l'objet d'origine
       .Body = Range("Feuil1!A3").Value & vbCrLf & _
       Range("Feuil1!H1").Value & vbCrLf & vbCrLf & _
       Range("Feuil1!H2").Value & vbCrLf & vbCrLf & _
       Range("Feuil1!H3").Value & vbCrLf & _
       Range("Feuil1!H4").Value & vbCrLf & _
       Range("Feuil1!H5").Value & vbCrLf & _
       Range("Feuil1!H6").Value & vbCrLf _
       '& GetBoiler("C:\Users\jean-francois.olewsk\AppData\Roaming\Microsoft\Signatures\Jean François.htm")
       .Display
      '.Send
  End With

' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing

End Sub

Function GetBoiler(ByVal sFile As String) As String

    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close

End Function

à la ligne 12 j'avais écris ".htmlbody" alors qu'il fallait simplement ".body"

de plus pour que le code fonctionne il faut activer "Microsoft Outlook 15.0 Object Library" dans les référence"

Merci pour ta disponibilité