Corps d'un mail

Bonjour,

Dans mon application, j'envoie un mail avec un corps.

Je sépare chaque bout de message par & vbCrLf & pour aller à la ligne . çà ne fonctionne pas. J'ai tous mes bouts de messages qui s'enchaine l'un derrière l'autre. J'ai essayé avec chr(13) et avec des espaces " " . Il n'y a rien qui fonctionne .

Dim Subj As String

Dim EmailAddr As String

Dim Fichier As String

Dim Msg As String

Dim Msg2 As String

Dim HLink As String

Dim cel1 As Range

Dim cel2 As Range

Set cel2 = Range("K20")

Set cel1 = Range("K19")

'-------------------------------------------------définir les données

Worksheets("paramètrage").Select

Application.ScreenUpdating = False

Dim email As String

email = Range("C13") & ";" & Worksheets("page_accueil").Range("N8") & ";" & Worksheets("page_accueil").Range("I9")

If Worksheets("page_accueil").Range("N9") > 0 Then

email = Range("C13") & ";" & Worksheets("page_accueil").Range("N8") & ";" & Worksheets("page_accueil").Range("I9") & ";" & Worksheets("page_accueil").Range("N9")

End If

If Worksheets("page_accueil").Range("N10") > 0 Then

email = Range("C13") & ";" & Worksheets("page_accueil").Range("N8") & ";" & Worksheets("page_accueil").Range("I9") & ";" & Worksheets("page_accueil").Range("N9") & ";" & Worksheets("page_accueil").Range("N10")

End If

Range("A30") = email

Subj = "Envoi feuille d'inscription"

EmailAddr = email

Fichier = "C:\Users\" & NomOrdinateur & "\Downloads\scbc42\inscriptions\" & Range("K19") & "." & "pdf"

'--------------------------------------------------Composer le message

Msg = Range("A28") & vbCrLf & vbCrLf & Range("A29") & " " & Range("A32") & " " & Range("C17") '--------------------------------------------------Construire lien hypertexte

HLink = "mailto:" & EmailAddr & "?"

HLink = HLink & "subject=" & Subj & "&"

HLink = HLink & "body=" & Msg

'--------------------------------------------------Transmettre le message

ActiveWorkbook.FollowHyperlink HLink

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "%i", True

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "p", True

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys Fichier, True

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "{enter}", True

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "%s", True

Application.ScreenUpdating = True

MsgBox "Traitement 5 terminé", vbInformation, "Sauvegarde - Envoi mail"

Voilà ce que j'ai dans mon mail

Veuillez trouver ci-joint le fichier des inscriptions des joueurs du SCBC42. Cette feuille est générée par informatique automatiquement .L'inscription papier et le chèque partent aujourd'hui au courrier .Merci de confirmer la bonne réception de ce message et du fichier. Cordialement Martin Nathalie

Merci d'avance pour votre aide

Cordialement

J.J Martin

bonsoir

essaie

pour ton fichier

Pascal

Je ne sais pas ce qu'il faut faire avec

Je voudrais avoir une solution sur mon problème.

Merci

Cordialement

J.J Martin