Retour de chariot disparait dans le mail
Résolubibimtl2x Messages postés 54 Statut Membre -
Bonjour,
j'ai un champs [e-mail_texte] qui comporte une formule pour réunir plusieurs champs [A] [B] et [C] dans ma formule entre chaque champs j'utilise le classique & Car(13) & Car(10)
[e-mail_texte] étant le contenu de mon courriel, mais une fois rendu dans le courriel tout les retours de chariot disparaissent et tout le texte est sur une seul ligne,
qu'est-ce que je peux faire pour régler ca?
Merci
Mon code pour l'envoi de mon mail ( merci encore d'ailleurs yg_be pour ce code :) )
Private Sub btm_e_mail_Click()
Call openOulook
End Sub
Function openOulook() As Boolean
Dim objOutlook As Object, objOutlookMsg As Object
Dim strSignature As String
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.to = Me.email_a
.cc = Me.email_B
.Subject = Replace(Trim(Me.sujet), " ", "")
.Display
strSignature = .HTMLBody
.HTMLBody = Me.[e-mail_texte] & vbNewLine & strSignature
End With
Windows / Chrome 108.0.0.0
- Retour de chariot disparait dans le mail
- Windows live mail - Télécharger - Mail
- Publipostage mail - Accueil - Word
- Excel retour à la ligne dans une formule - Guide
- Chariot imprimante bloqué à droite - Forum Imprimante
- Comment faire retour sur mac ✓ - Forum MacOS
3 réponses
Bonjour
Pour résoudre ton problème tu peux essayer de remplacer les caractères de retour de chariot (CR) et de nouvelle ligne (LF) par des balises HTML de paragraphe <p> ou de saut de ligne <br>.
merci, mais je ne comprend pas, voici, dans mon champ j'ai ce code :
=VraiFaux([Cocher_ASE_info]=-1,[ASE_info] & Car(13) & Car(10),"") & VraiFaux([Cocher_É-mail_client_ase]=-1,[É-mail_client_ase] & Car(13) & Car(10),"")
la il y a Just 2 champs de récupéré, mais dans le vrai champs il récupère 7 champs avec "Car(13) & Car(10) " ca pour faire un retour..
donc je ne sais pas ou et comment je peux utiliser les code que tu me donnes?
merci
Nice!!! mais j'aurais du changer mes champs formule dans une 20aine de champs, mais encore une fois vous m'avez inspirez, mon dernier champs étant crée par VBA et tout mes commentaires dans mes champs commencent par un "-" j'ai eu l'ide de juste changer le VBA de fin avec ceci :
Me.[e-mail_texte] = Me.[email_début] & vbCrLf & Replace(Me.[e-mail-interimaire], "-", "<br>" & "<br>" & " - ")
et ca marche #1 :)
merci
