Mailing, mailling complet avec cdonts - jmail

Soyez le premier à donner votre avis sur cette source.

Vue 19 423 fois - Téléchargée 1 487 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
8
Date d'inscription
jeudi 13 décembre 2007
Statut
Membre
Dernière intervention
19 juin 2008

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.
Messages postés
403
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
3 septembre 2012
2
bon qd on fait les test on vire mes adresses email de la bdd merci !!!!!!!!!!!!
Grrrrrrrrrrrrrrrrrrrrrr
Messages postés
62
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 août 2004

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.

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.