Probleme format mail

Bonjour à tous le forum,

J'ai besoin de vos services, j'ai un problème de format d'envoi pour un mail.

Je m'explique, j'ai créer un userform qui permet d'envoyer un compte rendu à une liste de destinataire.

Mon problème et que le corps du texte est dans une textbox et que je souhaite avoir à l'identitique lors d'un envoi d'un mail.

Si j'ai plusieurs lignes dans la textbox, j'aurai plusieurs ligne dans le mail.

Merci par avance de votre.

N'hesitez pas si je ne suis pas assez clair avec m'a demande de m'en faire part.

(Ci joint un extrait de mon fichier)

Sam20102

Bonsoir,

il faudrait trouver dans TxtTrav le retour chariot et les remplacer par <br />

du coup dans le corps du mail il y aurait un retour chariot, non ?

Retour chariot en VBA c'est CHR(10) , non ?

Avec la fonction Replace de VBA par exemple :

nouvelle variable : Dim Les_Travaux as String

Les_Travaux = Replace(TxtTrav.Value, Chr(10), "<br />")

donc dans le code du "Valider" :

With Mon_Message

    .Subject = "Compte rendu de la journée du " & " " & TxtDat.Value & " " & "site" & " " & TxtSite.Value & " " & "Numéro:" & " " & TxtNum.Value
    .HTMLBody = "Bonjour" & "<br />  <br />Veuillez trouver ci-joint le compte rendu de la journée du" & " " & _
    TxtDat.Value & " " & "site" & " " & TxtSite.Value & "." & _
     "<br />  <br /> <b>Travaux en cours</b>" & vbCrLf & "<br />" &Les_Travaux& _
      "<br />  <br />Cordialement" & vbCrLf & vbCrLf & "<br />" & "<br />" & CboResp.Value
    .BodyFormat = olFormatHTML
    .Recipients.Add TextBox1
    .Recipients.Add TextBox2
    .Recipients.Add TextBox3
    .Send

End With

Pas essayé bien évidemment ce n'est qu'une réflexion...

@ bientôt

LouReeD

Bonjour LouReed,

Merci 1000 fois, ça fonctionne.

Sam

Bonjour,

également merci pour votre, vos mercis

@ bientôt

sur le forum

LouReeD