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

Ce site au démarrage

begin process at 2012 02 14 04:44:13

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

E-mail

> MAILING, MAILLING COMPLET AVEC CDONTS - JMAIL

MAILING, MAILLING COMPLET AVEC CDONTS - JMAIL

Information sur la source

Note :

7,00 / 10

Catégorie :E-mail Niveau :Initié Date de création :13/06/2002 Date de mise à jour :13/06/2002 14:09:22 Vu / téléchargé :17 409 / 926

Auteur : Mcjo

Ecrire un message privé

Site perso

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Bon il faut décompresser le zip dans un dossier mailing sur le site

Source

pour mettre le formulaire d'ajout dans une de vos pages
: <script language=javascript src="mailing/new_mail.htm"></script>
detail des fichier
aff_mail.htm : exemple pour l'affichage du formulaire d'ajout
crea_mail.asp : page de creation de l'email indication sur la page
eff_mail.asp : page de supression exemple d'appelle
eff_mail.asp?email=mcjo@carmail.com
env_mail.asp : page d'envoye de mail avec cdonts
si vous utilisez jmail rempalcer le code de la fonction function envmail(des, em, tit, txt)
avec celui de jmail
new_mail.htm : javascript pour afficher le formulaire d'ajout
nouv_email.asp : page d'ajout d'email exemple d'appelle
nouv_email.asp?email=mcjo@carmail.com
pour utiliser jmail replacer le code de env_mail.asp par :
<%
Server.ScriptTimeout = 600000
dim conMails, sDBMails
dim rs
dim email
dim texte_mail, titre_mail
dim nb_mail, html, mem, compte_env
dim dest
if Session("compte") & "" = "" then Session("compte") = 0
function ini_mail()
dim rs_ini
Session("compte") = 0
conMails.Execute "UPDATE mailling SET mailling.envoyer = False;"
set rs_ini = Server.CreateObject("ADODB.recordset")
rs_ini.Open "SELECT * FROM info_mail", conMails, 1, 2
if rs_ini.EOF then
rs_ini.AddNew
end if
rs_ini("email") = email & ""
rs_ini("titre") = titre_mail & ""
rs_ini("texte") = texte_mail & ""
rs_ini.Update
rs_ini.Close
set rs_ini = nothing
end function
function delmail(email_d)
conMails.Execute "DELETE * FROM mailling where email='" & email_d & "'"
end function
function envmail(des, em, tit, txt)
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Serveur SMTP local
JMail.ServerAddress = "mail.votreserveur.com:25"
' Expediteur
JMail.Sender = em
JMail.Subject = tit
' Plusieurs destinataires
JMail.AddRecipient des
' Ajout en Blink Carbon Copie... (BCC)
if html = "html" then
JMail.ContentType = "text/html"
end if
JMail.Body = txt & vbCrLf
JMail.Priority = 3
If NOT JMail.execute THEN
str = "ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbcrlf & _
"ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbcrlf & _
"LOG: " & JMail.Log & "<br>"
delmail des
Else
str = "Mail Ok..."
End If
set JMail = nothing
end function
Set conMails = Server.CreateObject("ADODB.Connection")
sDBMails = "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("bdd/mailing.mdb")
conMails.Open sDBMails
email = Request("email") & ""
titre_mail = Request("titre_mail") & ""
texte_mail = Request("texte_mail") & ""
nb_mail = Request("nb_mail")
html = Request("html") & ""
mem = Request("mem") & ""
if mem = "del" then ini_mail
mem = "en cours"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM info_mail", conMails, 1, 2
if not rs.EOF then
email = rs("email") & ""
titre_mail = rs("titre")
texte_mail = rs("texte")
end if
rs.Close
compte_env = 0
rs.Open "SELECT * from mailling where envoyer=False", conMails, 1, 2
while not rs.EOF and compte_env <= nb_mail
dest = rs("email") & ""
rs("envoyer") = 1
rs.Update
Session("compte") = Session("compte") + 1
compte_env = compte_env + 1
rs.MoveNext
envmail dest & "", email & "", titre_mail & "", texte_mail & ""
wend
if rs.EOF then
mem = "fini"
end if
conMails.Close
set conMails = nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<%if mem <> "fini" then%>
<META HTTP-EQUIV="Refresh" content="10;url=env_mail.asp?html=<%=html%>&nb_mail=<%=nb_mail%>">
<%end if%>
</HEAD>
<BODY>
<P><%=mem%></P>
<p><%=Session("compte")%> email(s) envoyé(s)</p>
</BODY>
</HTML>

pour mettre le formulaire d'ajout dans une de vos pages
: <script language=javascript src="mailing/new_mail.htm"></script>
detail des fichier
aff_mail.htm : exemple pour l'affichage du formulaire d'ajout
crea_mail.asp : page de creation de l'email indication sur la page
eff_mail.asp : page de supression exemple d'appelle
eff_mail.asp?email=mcjo@carmail.com
env_mail.asp : page d'envoye de mail avec cdonts
si vous utilisez jmail rempalcer le code de la fonction function envmail(des, em, tit, txt)
avec celui de jmail
new_mail.htm : javascript pour afficher le formulaire d'ajout
nouv_email.asp : page d'ajout d'email exemple d'appelle
nouv_email.asp?email=mcjo@carmail.com

pour utiliser jmail replacer le code de env_mail.asp par :

<%
Server.ScriptTimeout = 600000
dim conMails, sDBMails
dim rs
dim email
dim texte_mail, titre_mail
dim nb_mail, html, mem, compte_env
dim dest
if Session("compte") & "" = "" then Session("compte") = 0
 
function ini_mail()
dim rs_ini
	Session("compte") = 0
	conMails.Execute "UPDATE mailling SET mailling.envoyer = False;"
	set rs_ini = Server.CreateObject("ADODB.recordset")
		rs_ini.Open "SELECT * FROM info_mail", conMails, 1, 2
		if rs_ini.EOF then
			rs_ini.AddNew
		end if
		rs_ini("email") = email & ""
		rs_ini("titre") = titre_mail & ""
		rs_ini("texte") = texte_mail & ""
		rs_ini.Update
		rs_ini.Close
	set rs_ini = nothing
end function

function delmail(email_d)
	conMails.Execute "DELETE * FROM mailling where email='" & email_d & "'"
end function

function envmail(des, em, tit, txt)
	on error resume next	
		Set JMail = Server.CreateObject("JMail.SMTPMail") 

	' Serveur SMTP local
	JMail.ServerAddress = "mail.votreserveur.com:25"
		
	' Expediteur
	JMail.Sender  = em
	JMail.Subject = tit
		
	' Plusieurs destinataires
	JMail.AddRecipient des

	' Ajout en Blink Carbon Copie... (BCC)
	if html = "html" then
			JMail.ContentType = "text/html"

	end if
	
	JMail.Body = txt & vbCrLf 

			
	JMail.Priority = 3
	
	If NOT JMail.execute THEN
	    str = "ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbcrlf & _
	          "ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbcrlf & _
	          "LOG: " & JMail.Log & "<br>"
	   delmail des
	Else
	   	str = "Mail Ok..."
	End If

	set JMail = nothing
end function

Set conMails 	= Server.CreateObject("ADODB.Connection")

sDBMails 		= "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("bdd/mailing.mdb")
conMails.Open sDBMails

email = Request("email") & ""
titre_mail = Request("titre_mail") & ""
texte_mail = Request("texte_mail") & ""
nb_mail = Request("nb_mail")
html = Request("html") & ""
mem = Request("mem") & ""

if mem = "del" then ini_mail

mem = "en cours"

set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM info_mail", conMails, 1, 2
if not rs.EOF then
email = rs("email") & ""
titre_mail = rs("titre")
texte_mail = rs("texte")
end if
rs.Close

compte_env = 0
rs.Open "SELECT * from mailling where envoyer=False", conMails, 1, 2
while not rs.EOF and compte_env <= nb_mail
	dest = rs("email") & ""
	rs("envoyer") = 1
	rs.Update
	Session("compte") = Session("compte") + 1 
	compte_env = compte_env + 1
	rs.MoveNext
	envmail dest & "", email & "", titre_mail & "", texte_mail & ""

wend
if rs.EOF then
	mem = "fini"
end if

conMails.Close
set conMails = nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<%if mem <> "fini" then%>
<META HTTP-EQUIV="Refresh" content="10;url=env_mail.asp?html=<%=html%>&nb_mail=<%=nb_mail%>">
<%end if%>
</HEAD>
<BODY>

<P><%=mem%></P>
<p><%=Session("compte")%> email(s) envoyé(s)</p>

</BODY>
</HTML>

Conclusion

pour toute question ou pour me demande le script de jmail mcjo@caramail.com

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

aff_mail.htm 208 octets
crea_mail.asp 2 608 octets
eff_email.asp 686 octets
env_mail.asp 2 744 octets
new_mail.htm 217 octets
nouv_email.asp 1 122 octets
bdd
- mailing.mdb237 568 octets

Télécharger le zip

Sources du même auteur

DICTON DU JOURS

AFFICHER LA DATE EN LETTRE EN FRANCAIS SUR UN SERVEUR ANGLAI...

UN COMPTEUR DE VISITEUR IP

Toutes les sources de Mcjo

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

Commentaires et avis

Commentaire de Fabio972 le 31/08/2002 13:12:14

Function envmail(des, em, tit, txt)
-> Génial pour utiliser un mailer en local, puis le configurer pour utiliser celui de l'hébergeur (si on ne le connait pas d'avance). Merci pour cette *excellente* astuce (quoique simple).
Sinon désolé, j'ai pas testé le code.

Commentaire de Mcjo le 04/09/2002 10:51:05

bon qd on fait les test on vire mes adresses email de la bdd merci !!!!!!!!!!!!
Grrrrrrrrrrrrrrrrrrrrrr

Commentaire de aya16 le 08/04/2008 13:14:25

svp j'ai besoin de votre aide parseque il m'affihe comme érreur: et c pour tout les codes que j'avais télécharger pour émail l'érreur c:

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^

Objet Server error 'ASP 0177 : 800401f3'

Échec de Server.CreateObject

/systeme_auteur_collaboratif/mailing/env_mail.asp, line 35

Chaîne de classe incorrecte

que je doit faire pour qu'il marche correctement vraiment j'ai trés besoin de ce code car je ss étudiante en fin d'études et il me restera pas tros de temps merci bien pour votre aide.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio

TECHDAYS PARIS 2012 : CHUCK MORRIS N'A PAS PEUR DES MALWARES, CE SONT LES MALWARES QUI ONT PEUR DE CHUCK MORRIS par ROMELARD Fabrice

[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz

Forum

RE : FORMULAIRE par ap24dp

RE : FORMULAIRE par jopop

RE : FORMULAIRE par ap24dp

RE : FORMULAIRE par jopop

RE : RECHERCHE COMPOSANT DIAGRAMME AVEC INTERACTION AU CLIC, DéPLACEMENT SOURIS … par gieidea

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

URGENT - Realisation d-un flux standard XML -NewsML- CAHIER DES CHARGES DISPONIBLE
Budget : 400€
Creation de newsletter sur une page Facebook
Budget : 400€
fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System