Newsletter

Résolu
astuces_jeux Messages postés 731 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 27 mai 2010 - 26 févr. 2006 à 13:11
astuces_jeux Messages postés 731 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 27 mai 2010 - 26 févr. 2006 à 13:14
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

astuces_jeux Messages postés 731 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 27 mai 2010
26 févr. 2006 à 13:14
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>
3