ENVOYER UN EMAIL VIA L'ASP (DONNÉES D'UN FORMULAIRE)

Information sur la source

Catégorie :E-mail Classé sous : envoyer, send, mail, cdomail, formulaire Niveau : Débutant Date de création : 17/04/2001 Vu : 43 748

Auteur : labo

Ecrire un message privé

Note :

7,00 / 10

Commentaire sur cette source (19)

Ajouter un commentaire et/ou une note

Description

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

Source

<%
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">&nbsp;</p>
  <input type="submit" name="Submit" value="Envoyer">
  <input type="reset" name="Submit2" value="R&eacute;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...

Sources de la même categorie

Toutes les sources de la catégorie E-mail

Sources en rapport avec celle ci

Commentaires

Commentaire de spider le 06/03/2002 08:54:11

Sa ne vas pas ...
G un compte sur kilio.com
voici mon code :

dim ObjMsg
set ObjMsg = Server.CreateObject("CDONTS.NewMail")
ObjMsg.From=Mail
ObjMsg.To="Spider987@kilio.com"
ObjMsg.Subject="Nouveau compte"
ObjMsg.Body=msgbody
ObjMsg.Send

et voici le message que g :

Erreur d'exécution Microsoft VBScript error '800a0046'
Permission refusée
/spider987/_membre/verify.asp, line 239
Commentaire de TORIUKE le 17/04/2002 19:01:33

Bonsoir,

Le script fonctionne très bien, bravo, mais j'ai un petit truc qui me pose problème pour personaliser ce cript. En effet, je veux récupérer dans le corps de mon e-mail un ensemble de champs de formulaire avec au comme containte d'affichage un retour à la ligne entre les résultats de chaque champs. Je n'arrive pas à faire de retour de ligne entre mes champs et ca commmence à me ...
Help Me... Help Me... Help Me...

TORIUKE
Commentaire de nirega le 26/04/2002 19:25:18

il ne fonctionne pas il me donne comme erreur :
Objet Server error 'ASP 0177 : 800401f3'
Échec de Server.CreateObject
/KH/testCour/envois.asp, line 4
Chaîne de classe incorrecte

Aider moi SVP
Commentaire de tomger le 04/06/2002 17:21:27

petit probleme de configuration sous IIS et xp pro, mon smtp digère cdonts sans soucis mais me stocke mes mails dans rep. queue, kesako?probablement la conf. mais pour l'instant je seche.... un conseil?
Commentaire de seblap47 le 02/08/2002 03:05:45

salut !
Où trouver cdonts.dll ???
J'ai XP pro avec IIS 5.1
Commentaire de Legion le 02/09/2002 10:08:15

Tous les hébergeurs n'acceptent pas cet objet, là est le prob
Commentaire de wde le 03/03/2003 15:01:32

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... Pourtant, ma configuiration de IIS 5.1 est bonne. Je suis sous XP Pro, j'ai importé cdonts.dll et l'ai enregistré au niveau de la base de registre.
Que se passe-t-il ? Quelqu'un peut-il m'aider ?
Commentaire de tnmit le 25/11/2003 00:34:20

CDonts n'existe plus sous winXP IIS 5.1. il est remplacé par CDO.Message.
Allez regarder le source sur :
http://www.pstruh.cz/tips/detpg_send-email-from-asp.htm
Commentaire de BBeppe le 10/02/2004 03:36:27

cote serveur

envoyer les données TEXTAREA vers NON PAS E-MAIL MAIS DISQUE DUR ??????

projet Editeur traducteur TEMPS REEL
Commentaire de GillesWebmaster le 28/08/2004 10:51:52

Bien mais j'ai un problème;
Si je met comme adresse e-mail, dans le champs mail, un nom quelquonque avec un arobase, je recois un message d'erreur;
SOS
Merci
Gilles Webmaster
Commentaire de sophie13 le 15/09/2004 12:14:53

Bravo. Ce code marche très bien pour moi. Deux questions SVP :
1°) Comment faire pour qu'une nouvelle page s'ouvre pour remercier/confirmer l'envoi du message de l'internaute ?

2°) Comment adapter le code dans le cas d'un ajout d'un menu déroulant dans le formulaire ?

Merci d'avance

Sophie13
Commentaire de chamoussa le 08/10/2004 16:46:26

Je souhaite savoir si on peut joindre des fichiers dans les mails à envoyer avec le composant CDO (Attachement file) ?
Commentaire de hala le 08/03/2005 16:18:23

Bonjour tout le monde,
pour moi le message d'errer c'est "Microsoft VBScript compilation error '800a0401' " j'ai pas trouver la solution. SVP si vous connaissez ce problème, aidez-moi.
merci d'avance.
NB: j'ai win XP
Commentaire de pluc le 09/03/2005 02:53:36

moi ca marche super .. merci pour le code :-)
Commentaire de zebou_session le 17/10/2005 14:47:14

Bonjour,
Infographiste et pas développeur... Je souhaite créer un formulaire dont les infos seraient envoyées par mail.
Les formulaire comprend 2 radios boutons + nom prénom et message.

J'ai utilisé le script de Labo mais le mail ne part pas et sur le serveur j'ai carrément une erreur 500 Erreur interne du serveur
Internet Explorer  !...

Quelqu'un peut-il m'aider ? Please...

Merci à vous

Voici le code :
Le fichier formulaire :
<%
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = request.form("_email")
objCDOMail.To="monmail@masociété.fr"
objCDOMail.Subject=request.form("_sujet")
objCDOMail.Body=request.form("_body")
objCDOMail.Send
Set objCDOMail=Nothing

%>
<form name="form1" method="post" action="traitement_invite.asp">
  <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>

Le fichier de traitement :

<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = request.form("_email")
response.write(request.form("_email"))
objCDOMail.To="boucaud@genapi.fr"
objCDOMail.Subject=request.form("_sujet")
objCDOMail.Body=request.form("_body")
objCDOMail.Send
Set objCDOMail=Nothing

%>

<html>
<head>
<title>Invitaion au bateau</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="secib.css" rel="stylesheet" type="text/css">
</head>

<body background="img/fondbande.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table height="100" border="0" cellpadding="4" cellspacing="0">
  <tr>
    <td width="742" valign="top" class="txt"> Votre demande à bien été
      prise en compte</td>
  </tr>
</table>
<p class="txtrouge">  </p>
</body>
</html>
Commentaire de Cabelec le 15/02/2006 18:23:47

cool...sa marche pas chez moi l'objet CDONTS pose probleme
Commentaire de nourhouda0 le 31/03/2006 11:38:30

j'ai essayé ce sript dans mon serveur web mais quand je clique sur le lien, qui m'envoie vers le formulaire, le navigateur m'affiche l'erreur suivante:
Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A01B6)
Cet objet ne gère pas cette propriété ou cette méthode: 'Form'
/form/index0.asp, line 4

Type de navigateur :
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; FunWebProducts; .NET CLR 1.1.4322)

Page :
GET /form/index0.asp

Heure :
vendredi 31 mars 2006, 09:30:49

que dois je faire?
Commentaire de serieuxgentil le 02/02/2008 22:50:51

salut à tous
ça marche pas chez moi
je reçoie le message suivant:
Technical Information (for support personnel)

Go to Microsoft Product Support Services and perform a title search for the words HTTP and 405.
Open IIS Help, which is accessible in IIS Manager (inetmgr), and search for topics titled Setting Application Mappings, Securing Your Site with Web Site Permissions, and About Custom Error Messages.

aidez moi merci
Commentaire de J17 le 29/05/2008 15:24:19

Je teste, mais rien n'arrive sur ma boîte.
Aucune page d'erreur, et bien sûr j'ai vérifié mes spam, que dalle...
J'ai XP, j'ai installé CDONTS.dll comme il faut.

Une idée?

Ajouter un commentaire

Discussions en rapport avec ce code source

Email Formulaire Web HTML par TORIUKE

envoi du contenu d'un formulaire par mail par sandra26

envoie de mail par caudette

Conversion C en VB pour envoie formulaire par syl62

mail avec une pièce jointe par SuperBouly

existe t'il un moyen d'envoyer un mail et dy attacher un fichier? par sandra26

Pb d'envoi de formulaire par jlh85660

Envoit mail avec du flash ou une image generée à partir du flash par KamiRaiden

suggerer par mail par ThomasCo

vb6 envoyer un e-mail par poiu21456