<% Dim strTo Dim strSubject Dim strMessage Dim MyMail strFrom = Request.Form("txtFrom") strTo = Request.Form("txtTo") strSubject = Request.Form("txtSubject") strMessage = Request.Form("txtMessage") If strFrom ="" then Response.redirect("listeclient.asp?") End IF Set MyMail = Server.CreateObject("CDONTS.NewMail") MyMail.From = StrFrom MyMail.To = strTo MyMail.Subject = strSubject MyMail.Bcc = "Support@"&Request.Servervariables("Server_name") MyMail.Importance = 1 '(0=priorité basse, 1=priorité normale, 2=priorité haute) MyMail.BodyFormat = 0 MyMail.MailFormat = 0 strMessage = strMessage & vbcrlf & vbcrlf & vbcrlf &"
-----------------------------------------------------------
" strMessage = strMessage & vbcrlf & vbcrlf & vbcrlf &"Ce produit vous est envoyé par "&StrFrom&",
" strMessage = strMessage & vbcrlf & vbcrlf & vbcrlf &"qui a pensé que vous seriez interessé.

" strMessage = strMessage & vbcrlf & vbcrlf & "Cliquez sur le lien ci-dessous pour le visualiser.
" strMessage = strMessage & vbcrlf &"" strMessage = strMessage & vbcrlf &"http://"&Session("ToFriend")&"

" strMessage = strMessage & vbcrlf & vbcrlf & vbcrlf &"

" strMessage = strMessage & vbcrlf & vbcrlf & vbcrlf &"-----------------------------------------------------------
" strMessage = strMessage & vbcrlf &"[ L'adresse IP de l'expéditeur est " &Request.ServerVariables("REMOTE_ADDR")&" ;
" strMessage = strMessage & vbcrlf &"Merci de reporter tout abus à Support@"&Request.Servervariables("Server_name")&" ]
" strMessage = strMessage & vbcrlf & vbcrlf & vbcrlf &"-----------------------------------------------------------
" MyMail.Body = strMessage MyMail.Send Set MyMail = Nothing %>

<% Response.Write "Voici le message qui a été envoyé " &strMessage %>