Retour ligne pour les emails

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

Cliquez pour agrandir...