Envoyer un email via l'asp (données d'un formulaire)

Commenter

Contenu du snippet

Permet d'envoyer le contenu d'un formulaire "type" par Email sans posseder de composant particulier sur le serveur mais en utilisant "objCDOMail"

Source / Exemple : 


<%
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = request.form("_email")
objCDOMail.To="MON_EMAIL@MOI.COM"
objCDOMail.Subject=request.form("_sujet")
objCDOMail.Body=request.form("_body")
objCDOMail.Send
Set objCDOMail=Nothing

%>
<HTML> 
<form name="form1" method="post" action="">
  <p><font face="Arial, Helvetica, sans-serif"><b>VOTRE ADRESSE EMAIL 
    <input type="text" name="_email" size="45">
    </b></font></p>
  <p> <b><font face="Arial, Helvetica, sans-serif">SUJET 
    <input type="text" name="_sujet" size="60">
    </font></b></p>
  <p align="left"> <b><font face="Arial, Helvetica, sans-serif">MESSAGE 
    <textarea name="_body" rows="20" cols="100"></textarea>
    </font></b> </p>
  <p align="left">&nbsp;</p>
  <input type="submit" name="Submit" value="Envoyer">
  <input type="reset" name="Submit2" value="Rétablir">
</form>

</HTML>

Conclusion :


Remplacer juste "MON_EMAIL@MOI.COM" par votre email pour recevoir le contenu de votre formulaire dans votre boite... tester c'est sympa...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.