bonjour Patrick
je te proposes deux solutions
avec Outlook
Sub EvoiMailAvecSautDeLignes()
'testé avec XP
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim Test As String
Test = "le forum XLD" 'variable pour essais
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
'utiliser </br> pour les sauts de lignes
'utiliser   pour insérer un espace de caractere
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b><U> premiere reponse :</U></b></br>" & Range("C1") & "</br></br>"
strHTML = strHTML & "<b><U> deuxieme reponse :</U></b></br>   " & Range("D1") & "</br></br>"
strHTML = strHTML & "<b><U> troisieme reponse :</U></b></br>" & Test & "</br></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With iMsg
Set .Configuration = iConf
.To = "michelxld@yahoo.fr"
'.From = "youralias@yourdomain.com"
.Subject = "reponses au questionnaire"
.HTMLBody = strHTML
.Send
End With
End Sub
avec OutlookExpress
Sub envoiMailOutlookExpress()
Dim Adresse As String
Dim Sujet As String, Texte As String
Dim Test As String
Test = "essai d'insertion de variable"
Adresse = "forum@XLD.fr"
Sujet = "Test d'envoi "
Texte = "Bonjour ," & vbCrLf & vbCrLf _
& "Ceci est un essai de mail multilignes et un " & Test & vbCrLf & vbCrLf _
& "Signé " & Application.UserName
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" _
& Adresse & "?subject=" & Sujet & "&Body=" & Texte
End Sub
bon apres midi
MichelXld