Newsletter [Résolu]

Signaler
Messages postés
731
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
27 mai 2010
-
Messages postés
731
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
27 mai 2010
-
je cherche un code pour faire une newsletter si vous voulez prenez se code de contact suprimer piece jointe et enlever le champ du message te enlever les liens contacter moi et aide en bas et soit ne pas mettre le champn destinataire et faire que cela arrive a l'adresse [mailto:jja00185_cedricdenotte@scarlet.be jja00185_cedricdenotte@scarlet.be] ou le mettre mais désactiver la zone de texte pour que l'on ne sache pas le changer comme sa je mettrait de coté les adresses de mes inscrits mais si vous avez un moyen qui fait mieux newsletter dite la moi


@++


Astuces-jeux

1 réponse

Messages postés
731
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
27 mai 2010

voici le code dite moi le code fait svp
<head>
<hta:application
icon= "mails.ico"
border="yes"
borderstyle="sunken"
contextmenu="yes"
scroll="yes"
selection="yes"
SysMenu="yes"
windowstate="normal"
Singleinstance="yes"
showintaskBar="yes"
maximizebutton="yes">


<title>Maileur - ALGORI</title>



<link rel =stylesheet type="text/css" href="style.css">



<script type="text/javascript">
self.resizeTo(400,370);



function envoyer(){


emetteur = document.formulaire.emet.value;
destinataire = document.formulaire.dest.value;
suj = document.formulaire.sujet.value;
pj = document.formulaire.piece.value;
mess = document.formulaire.message.value;


var verifier = /^[a-z0-9\-_\.]+@[a-z0-9]+\.[a-z]{2,5}$/i;

if(destinataire=="" || verifier.exec(destinataire) == null)
alert("Veuillez donner une adresse email du destinataire correcte.");


else if(emetteur=="" || verifier.exec(emetteur) == null)
alert("Veuillez donner une adresse email de l'émetteur correcte.");


else{


var obmail = new ActiveXObject("CDO.Message");
obmail.To = destinataire;
obmail.From = emetteur;
obmail.Subject = suj;


if(document.formulaire.choix.checked)
obmail.HTMLBody = mess;
else
obmail.TextBody = mess;



if(pj != ""){obmail.AddAttachment(pj);}
obmail.Send();
self.close();
}
}


</script>


</head>




<form name="formulaire">



----

Formulaire d'envoi
,

----

Emetteur :,
,

----

Destinataire :,
,

----

Sujet :,
,

----

Pièce jointe :,
,

----

Message :,
Page HTML

<textarea name="message" rows=5 cols=30></textarea>,






</form>