% ' 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 "SARIM" , "accueil@aimo-boot.fr" Mail.Addrecipient "SARIM devis auto" , "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 %>
|
|
|
|
Le souscripteur - conducteur principal |
|