'ici, la définition du corps du message avec les variables
corps = "Nom: " & Cells(i, "B").Value & vbNewLine & _
"Prénom: " & Cells(i, "C").Value & vbNewLine & _
"N° de téléphone: " & tel & vbNewLine & _
"Location de matériel: " & Cells(i, "D").Value & vbNewLine & _
"Food Pack (classique ou sans porc): " & Cells(i, "E").Value & vbNewLine & _
"Assurance: " & assu & vbNewLine & _
"Assurance annulation: " & Cells(i, "G").Value
'ici la définition du corps final avec bonjour, la suite, puis message de fin
corps2 = "Bonjour " & Cells(i, "C").Value & vbNewLine & _
"voici le récapitulatif de votre inscription pour le ski." & vbNewLine & vbNewLine & _
corps & vbNewLine & vbNewLine & _
"Veuillez répondre à cet email en indiquant les erreurs, ou alors que tout est correct" & vbNewLine & vbNewLine & _
"Sandrine Riou"
'commande pour envoyer l'email avec outlook express
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" _
& Cells(i, "I").Value & "?subject=" & "Test d'envoi automatique de mail" & _
"&Body=" & corps2