Retour ligne pour les emails

[YannC.]

Bonjour à vous tous et bonne journée,

Voici mon code,

Sub lecturetrim1()
Dim Destinataire As String, Document As String, Titre As String, Reponse As Integer
Dim body As String, body2 As String, body3 As String, body4 As String

Titre = "Programme"
Document = ThisWorkbook.Path & "\Trimestre 1.pdf"
body = "Bonjour,"
body2 = "En piece jointe se trouve le fichier de la période de Janvier à Mars."
body3 = "Salutations "
body4 = Application.UserName & "Le coordinateur" If Dir(Document) = "" Then
'fichier à joindre non trouvé
Reponse = MsgBox(Document & " introuvable, poursuivre ?", 4)
'si poursuivre, prépare l'email sans fichier joint
If Reponse = 6 Then Mail Destinataire, Titre, "Programme des Discours de Janvier à Mars"
Else
If Not Mail(Destinataire, Titre, body, body2, body3, body4, Document) Then
MsgBox "Email non envoyé", vbCritical
End If
End If

End Sub

J'aimerai que le texte de mon mail retourne à la ligne, plutot que d'avoir une ligne à rallonge. Surtout lorsque je dit bonjour et bonsoir.

J'ai bien essayé en mettent plusieur "body", mais cela ne fonctionne pas.

Si vous pouviez m'aider.

Merci beaucoupr

 

[PascalXLD]

Re : Retour ligne pour les emails

Bonjour

essaies en faisant

body = "Bonjour," & vbcrlf & "En piece jointe se trouve le fichier de la période de Janvier à Mars." & vbcrlf & "Salutations "

 

[youky(BJ)]

Re : Retour ligne pour les emails

Bonjour Lunixlien,
Je n'ai pas testé mais je verrais bien ceci...
body = "Bonjour," & vbCr
"En piece jointe se trouve le fichier de la période de Janvier à Mars." & vbCr
"Salutations " & vbCr
Application.UserName & "Le coordinateur" If Dir(Document) = "" Then

A faire des essais

 

[YannC.]

Re : Retour ligne pour les emails

Excellent, merci à tous les deux. J'ai pris la méthode

& vbCrLf &

, qui fonctionne à merveille.

Merci de votre aid et bonne fin de journée à tous.