Retour de chariot disparait dans le mailRésolu/Fermé

Question

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

xHaMaz · Answer

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

ou de saut de ligne
.

bibimtl2x · Answer

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

bibimtl2x · Answer

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], "-", "
" & "
" & " - ") et ca marche #1 :) merci

Retour de chariot disparait dans le mail

3 réponses

Discussions similaires

Newsletters