- <%
- 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"> </p>
- <input type="submit" name="Submit" value="Envoyer">
- <input type="reset" name="Submit2" value="Rétablir">
- </form>
-
-
- </HTML>
<%
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"> </p>
<input type="submit" name="Submit" value="Envoyer">
<input type="reset" name="Submit2" value="Rétablir">
</form>
</HTML>