CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 13 00:35:31

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

E-mail

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

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

Information sur la source

Note :

7,00 / 10

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

Auteur : labo

Ecrire un message privé

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

HIDDENEMAIL : MASQUER VOS EMAILS AUX ROBOTS par sebmafate

C# - FONCTION TRÈS SIMPLE POUR ENVOYER UN MAIL VIA SMTP par fabrice69

ASP.NET - ENVOYER UN MAIL AVEC JMAIL.NET par epetegnief

CLASS : NEWSLETTER AVEC OPTIN par vladam

E-MAIL EN JMAIL SIMPLE ET EFFICACE + FORMULAIRE par GillesWebmaster

Toutes les sources de la catégorie E-mail

Sources en rapport avec celle ci

E-MAIL EN JMAIL SIMPLE ET EFFICACE + FORMULAIRE par GillesWebmaster

ENVOI D'UN MAIL EN ASP.NET (GARANTIE 100% ET TRÈS SIMPLE) par CBphoenix

ASP.NET UPLOAD D'UN FICHIER DU PC CLIENT VERS VOTRE SITE par michelsto

ENVOYER UN MAIL EN BCC À PLUSIEURS PERSONNES par BinOff

ENVOYER UN E-MAIL EN ASP par BinOff

Commentaires et avis

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 dans le forum

Email Formulaire Web HTML [ par TORIUKE ] Salut,Je veux envoyer un email automatique à partir d'un formulaire. Quand je clic sur "envoyer", le mail part automatiquement au destinataire avec le envoi du contenu d'un formulaire par mail [ par sandra26 ] Salut, je voudrais envoyer le contenu de mon formulaire par mail.pour envoyer un mail ya pas de soucis, mon seul soucis est que jei besoin d'envoyer l envoie de mail [ par caudette ] Bonjour,voici mon pb, j'ai un formulaire d'insertion d'un nouvel appel et dans ce formulaire j'ai une dropdownliste qui me permet de selectionner une Conversion C en VB pour envoie formulaire [ par syl62 ] Bonjour à tous, voilà, je vous écris car j'ai terminé d'écrire ma page qui permet de récupérer tous les champs d'1 formulaire et de les envoyer dans mail avec une pièce jointe [ par SuperBouly ] bonjour, Je sais bien comment envoyer un mail avec une pièce jointe :Dim mm as new Net.Mail.MailMessage("adressefrom", "adresseto")etc...mm.Attachemen existe t'il un moyen d'envoyer un mail et dy attacher un fichier? [ par sandra26 ] Salut, jai un bouton "Send by mail" il me permet d'envoyer ma page par mail.Je pense qu'il me faut utiliser l'element mailto mais je ne parvien pas a Pb d'envoi de formulaire [ par jlh85660 ] Le theme serait asp formulaire ou quelquechose de ressemblant. Alors suite a mes nombreuse lecture et pour repondre tout de suite a une question qui Envoit mail avec du flash ou une image generée à partir du flash [ par KamiRaiden ] Bonjour tout le monde,Voila je suis confronté à une demande un peu tordue et je ne vois pas trop comment la résoudre.Voila j'ai des statistique que j' suggerer par mail [ par ThomasCo ] Bonjour à tous,<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o: vb6 envoyer un e-mail [ par poiu21456 ] Salut tout le monde !!! Je suis en train de finir un programme sous vb6 et j'ai un gros probleme, je n'arrive pas à envoyer de mail. J'ai lu déja que

Nos sponsors

Derniers Blogs

[ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1 par pierre

PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet

[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2) par JeremyJeanson

[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2) par JeremyJeanson

[ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT() par tja

Forum

PIC16F877 par sawsouna200

RE : [ASP.NET] SITE MULTI-LANGUES par lutecefalco

FORMULAIRE ACTUALISATION ASP-SQL SERVER par loic2810

RE : COMMENT MODIFIER LES DONNéES APRES AVOIR LES CHARGéES DANS UN TEXTBOX par nsegi

[ASP.NET] SITE MULTI-LANGUES par neofenix

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Site internet php
Budget : 350€
site formation reiki distance
Budget : 900€
Banniere Flash Drupal
Budget : 150€

Logiciels

Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods
Konvertor (4.00)
KONVERTOR (4.00)

Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format...

Cliquez pour télécharger Konvertor