<%@ LANGUAGE="VBSCRIPT" %>
<%
function sendMail2(mFrom,mTo,sujet,body)
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = mFrom
CDOMail.To = mTo
CDOMail.Subject = sujet
CDOMail.Body = body
CDOMail.Send
Set CDOMail = nothing
end function
%>
<% ' Exemple d'envoi de formulaire
' Interface pour ASPmail
function sendMail(mFrom,mTo,sujet,body)
dim Mail ' l'objet SMTP
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
'Set Mail = Server.CreateObject("CDONTS.NewMail")
' le serveur
Mail.RemoteHost = "mail.asp-php.net"
' l'émetteur
Mail.FromAddress = mFrom
' le destinataire
Mail.Addrecipient mTo,mTo
' l'objet du courriel
Mail.Subject = sujet
' le texte du courriel
Mail.BodyText = body
' false si erreur d'émission
sendMail = Mail.SendMail
end function
%>
Exemple
<% ' SI LE FORM A ETE POSTE
Email = request.form("Email")
Nom = request.form("Nom")
Sexe = request.form("Sexe")
if Email <>"" then
' Récupère les éléments du form
temp=""
for each truc in Request.Form
temp = temp & truc & " : " & Request.Form(truc) & VbCrLf & VbCrLf
next
contenumail = "Bonjour " & Sexe & " " & Nom & ", " & VbCrLf & "Suite à votre demande sur notre site http://anova.fr, vous trouverez en cliquant sur le lien ci-dessous une présentation de notre société ainsi qu'une courte démonstration de l'informatisation d'un processus avec habitat éo. " & VbCrLf & "Suivant la vitesse de votre accès Internet, il faut peut être attendre avant que l'applet Java se charge." & VbCrLf & "http://www.anova.fr/ANOVA-SpeeDemo-heo.html"
' Envoie le message
if sendMail2("anova@anova.fr",Email,"Speed Demo Heo ANOVA",contenumail)<>"" then
end if
if sendMail2("anova@anova.fr","henry.meilhac@anova.fr","Inscription formulaire Speed Demo",temp)<>"" then
end if
response.redirect("http://www.anova.fr/index.htm")
' SINON AFFICHAGE DU FORM
else %>
