% ' envoi de formulaire ' Interface pour ASPmail function sendMail(mFrom,mTo,sujet,body) dim Mail ' l'objet SMTP Set Mail = Server.CreateObject("SMTPsvg.Mailer") ' le serveur Mail.RemoteHost = "auth.smtp.1and1.fr" ' l'émetteur Mail.FromAddress = mFrom ' le destinataire ' Mail.Addrecipient mTo,mTo ' Mail.Addrecipient "SARIM2" , "jerome@aimo-boot.fr" Mail.Addrecipient "SARIM" , "melanie@aimo-boot.fr" Mail.Addrecipient "SARIM devis habitation" , "site.aimo.boot@gmail.com" ' l'objet du courriel Mail.Subject = sujet ' le texte du courriel Mail.BodyText = body ' et zou... false si erreur d'émission sendMail = Mail.SendMail end function %>
|
|
|
|
Vos coordonnées |
|