Envoi d'un e-mail

Juju - 17 sept. 2001 à 15:39
cs_YsF Messages postés 8 Date d'inscription vendredi 31 décembre 2004 Statut Membre Dernière intervention 16 août 2005 - 16 août 2005 à 21:54
je cherche une fonction sans composant (car je n'ai pas accès au serveur) à qui me permet d'envoyer un e-mail???

merci beaucoup

Julie

4 réponses

Voici une solution potentielle ... ce script est dans les 20 + populaires ;-) fonctionne sur certains serveur ...

Permet d'envoyer le contenu d'un formulaire "type" par Email sans posseder de composant particulier sur le serveur mais en utilisant "objCDOMail"
<%
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="">
  VOTRE ADRESSE EMAIL
    
    

   SUJET
    
    

   MESSAGE
    <textarea name="_body" rows="20" cols="100"></textarea>
    

   

  
  
</form>
</HTML>

Remplace juste "MON_EMAIL@MOI.COM" par ton email pour recevoir le contenu de ton formulaire dans ta boite... c'est sympa...
0
Voici une solution potentielle ... ce script est dans les 20 + populaires ;-) fonctionne sur certains serveur ...

Permet d'envoyer le contenu d'un formulaire "type" par Email sans posseder de composant particulier sur le serveur mais en utilisant "objCDOMail"
<%
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="">
  VOTRE ADRESSE EMAIL
    
    

   SUJET
    
    

   MESSAGE
    <textarea name="_body" rows="20" cols="100"></textarea>
    

   

  
  
</form>
</HTML>

Remplace juste "MON_EMAIL@MOI.COM" par ton email pour recevoir le contenu de ton formulaire dans ta boite... c'est sympa...
0
un essai d'apprentissage avec curiosité du langage
merci.
0
cs_YsF Messages postés 8 Date d'inscription vendredi 31 décembre 2004 Statut Membre Dernière intervention 16 août 2005
16 août 2005 à 21:54
Vos Truc sa marche pas
YsF?YsF
0
Rejoignez-nous