begin process at 2010 02 09 19:20:04
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

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 / 10 - par 21 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :E-mail Classé sous :envoyer, send, mail, cdomail, formulaire Niveau :Débutant Date de création :17/04/2001 Vu :49 025
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">&nbsp;</p>
  • <input type="submit" name="Submit" value="Envoyer">
  • <input type="reset" name="Submit2" value="R&eacute;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

Source avec Zip Source .NET (Dotnet) HIDDENEMAIL : MASQUER VOS EMAILS AUX ROBOTS par sebmafate
Source .NET (Dotnet) C# - FONCTION TRÈS SIMPLE POUR ENVOYER UN MAIL VIA SMTP par fabrice69
Source .NET (Dotnet) ASP.NET - ENVOYER UN MAIL AVEC JMAIL.NET par epetegnief
Source .NET (Dotnet) CLASS : NEWSLETTER AVEC OPTIN par vladam
Source avec Zip 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

Source avec Zip E-MAIL EN JMAIL SIMPLE ET EFFICACE + FORMULAIRE par GillesWebmaster
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI D'UN MAIL EN ASP.NET (GARANTIE 100% ET TRÈS SIMPLE) par CBphoenix
Source avec Zip Source .NET (Dotnet) 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">&nbsp;</p>
  <input type="submit" name="Submit" value="Envoyer">
  <input type="reset" name="Submit2" value="R&eacute;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 &agrave; bien &eacute;t&eacute;
      prise en compte</td>
  </tr>
</table>
<p class="txtrouge">&nbsp; </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


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,733 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)