Mailing, mailling complet avec cdonts - jmail

Télécharger le projet
Commenter

Description

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

Source / Exemple : 


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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Mcjo)