bonsoir Claude
ci joint la macro modifiée
Sub EvoiMailSansMessageConfirmationV02()
'testé avec XP
'Send using the Pickup directory on the IIS server.
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & " Je vous confirme la réservation endate du " & Range("C10") _
& " au montant de " & Range("D12")
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
bonne soirée
MichelXld