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

Ce site au démarrage

begin process at 2010 03 15 19:05:54

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é :15 906 / 904

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

SQL SERVER : PHP ET SQL SERVER par christian

[TECHDAYS 2010] WINDOWS AZURE APPFABRIC (CLO305) par NeuroCypher

OUTILS D'IMPORT AVEC MISE à JOUR DANS MICROSOFT DYNAMICS CRM par bianca

SQL SERVER : DéVELOPPER UN ADDON POUR SQL SERVER MANAGEMENT STUDIO (SSMS) par christian

EDITEUR XAML DE VISUAL STUDIO: COMMENT ALIGNER LES ATTRIBUTS LES UNS EN DESSOUS DES AUTRES AUTOMATIQUEMENT par Miiitch

Forum

INPUT STRING WAS NOT IN A CORRECT FORMAT. par scorpion1970

RE : COMMENT ATTACHER UNE BASE SQL DANS ASP.NET ENTREPRISE MANAGER par GesStock

GARDER L'éTAT DU ACCORDION par debladz

DROPDOWLIST:L'ARGUMENT SPéCIFIé N'éTAIT PAS DANS LES LIMITES DE LA PLAGE DES VALEURS VALIDES par tngtng

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Application FLASH URGENT
Budget : 1 000€
Plaquette commerciale Urgent
Budget : 300€
Application Web service Site internet
Budget : 100€

Logiciels

Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods
Konvertor (4.00)
KONVERTOR (4.00)

Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format...

Cliquez pour télécharger Konvertor