<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.luxury-skischool.com"
JMail.Sender = "commande@luxury-skischool.com"
JMail.AddRecipient "transfert@luxury-skischool.com"
JMail.AddRecipientBCC "aspserveur@gmail.com"
JMail.Subject = "sujet du mail envoyé de la part de JM Duvillard pour un controle d'envoi de mail"
JMail.Body = "envoi d'un mail blablabla"
JMail.Priority = 1
On Error Resume Next
JMail.Execute
If Err <> 0 Then
Response.Write "Erreur : " & Err.Description
else
Response.Write "Message envoyé"
End If
Set Jmail=nothing
%>