XL 2019 Exporter un label vers outlook en gardant la mise n forme du label

carlos

XLDnaute Impliqué
Supporter XLD
Bonjour,
j'ai un Label1 qui a la mise en forme suivante par exemple:
Lundi
--> Tomates
Jeudi
--> Salades

pour la mise à la ligne, j'ai utilisé CHR(10).
Lorsque j'exporte vers Outlook , la mise en forme disparait et tout se colle :
Lundi--> Tomates Jeudi--> Salades
Voici le code utilisé :
MonContenu = Feuil7.Range("A1").Value
Rq : la mise en forme de mon Label est bien conservée dans la cellule mais est perdue ensuite dans Outlook
Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)
Merci et bonne journée
 

carlos

XLDnaute Impliqué
Supporter XLD
Bonjour patricktoulon, le forum,
J'ai remplacé mais c'est le même résultat.
Mon appli mail est Outlook 2019.
Voici le code :
Sub TestEnvoiEmail_Variables()
'par Excel-Malin.com ( https://excel-malin.com )

'définition des variables
Dim MonSujet As String
Dim MonDestinataire As String
Dim MonContenu As String
Dim MaPieceJointe As String
Dim f As Worksheet, p As Range, NomPDF$
Set f = Feuil7
Set p = f.Range("A1") '
chemin = ThisWorkbook.Path & "\AFL23\"
NomPDF = UserForm1.ListBox2.Value & ".pdf"
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
MonDestinataire = Range("D" & UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 1)).Value
Feuil7.Range("A1").Value = "METHODOLOGIE : " & vbCrLf & UserForm1.Methodologie.Caption _
& vbCrLf & "SOCIALE : " & vbCrLf & UserForm1.Sociales.Caption
MonContenu = "Bonjour " & UserForm1.ListBox2.Value & "," & vbCrLf & "Voici en piece jointe le bilan du travail réalisé " & vbCrLf & Feuil7.Range("A1").Value

MaPieceJointe = chemin & NomPDF

'test envoi de l'email
Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)
End Sub