Ensuite, si c'est bon, vous pouvez envoyer un mail.
Là, attention, il faut voir comment est configuré le serveur, ça
dépend des composants installés sur le serveur. Il faut se renseigner. |
Un des plus courants est SMPTmailer. Il faut d'abord déclarer
la fonction (renseignez-vous sur le nom du serveur d'envoi de mail)
: |
<%
function mailto(dest,subj,mess)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "wHo-et-Be"
Mailer.FromAddress= "whoetbe@free.fr"
Mailer.RemoteHost = "mail.monserveur.fr"
Mailer.AddRecipient dest,dest
Mailer.Subject = subj
Mailer.BodyText = mess
if Mailer.SendMail then
mailto = true
Mailer.ClearAllRecipients
Mailer.ClearBodyText
else
mailto=false
Response.Write "Echec de l'envoi du mail : " & Mailer.Response
end if
end function
%> |
| et ensuite pour envoyer un mail : |
<%
mail_envoye = mailto("whoetbe@free.fr","SUJET","Bonjour ami
!")
%> |