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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 59 580 fois - Téléchargée 36 fois

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

Ajouter un commentaire

Commentaires

le script ne fonctionne pas y a t il une manip a faire au niveau du serveur ???
merci d'avance pour la reponse
moi ca marche , c cool
pour moi ça ne marche pas en Netscape. Auriez-vous une solution?
C'est très urgent.
Peut-on aussi intégrer du code javascript dans cette page pour faire les contrôles et par exemple des calculs?
Pour moi, pas message d'erreur, mais pas de résultat non plus... La page se réaffiche normalement, mais pas de mail reçu...
Y a-t-il une config particulière à mettre en place ?? (j'ai pas encore mis de note à ce code...)
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/Cours/email.asp, line 4

800401f3

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.