j'ai créé une page permettant l'envoi automatique de mail à diverses personnes. La liste de ces personnes est disponible dans une base de données mais il arrive que certaines personnes y apparaissent plusieurs fois.
Je voudrai que mon code contrôle si le mail a déjà été envoyé à une personne et si oui, que l'envoi ne se fasse pas.
Voici ma page :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title> </title>
</head>
<body bgcolor="dddddd" style="text-align:center">
<font face="Arial, Helvetica, sans-serif"></font>
<table width="800px" bgcolor="#FFFFFF">
<tr>
<td align="center">
<img src="bannerNewInter.jpg"><br>
<br>
<font face="Arial, Helvetica, sans-serif"><strong></strong></font>
</td>
</tr>
<tr>
<td>
<%
on error resume next
Mail = request.querystring("Mail")
Mailtmp2 = split(Mail, ",")
dateech = request.querystring("date_echeance")
heureech = request.querystring("heure_echeance")
x=0
set Mail = server.CreateObject("Persits.MailSender")
%>
<% tmpcount= ubound(Mailtmp2) %>
<% do while x <= tmpcount
tmpMail2 = Mailtmp2(x)
%>
<%
set conn = Server.CreateObject("ADODB.Connection")
ConnString = "driver={SQL Server}; server=XXXXXX;uid=XXXXXX; pwd=XXXXXX;database=XXXXXX"
conn.Open connString
SQL = "Select MailDM, MailExp, MdpExp from DM, PropositionTM, Experts where dm.noDM = PropositionTM.numdm and experts.NoExpert = PropositionTM.NumExpert and NumProposition=" & tmpMail2
set rs = conn.execute (SQL)%>
<% do while rs.eof = false %>
<% MailDM = rs("MailDM") %>
<% MailExp = rs("MailExp") %>
<% MdpExp = rs("MdpExp") %>
<%if NumEtat <> 4 then
Mail.resetall
Mail.host = "mail.???.ch"
Mail.From = "test_AT_??.com"
Mail.addaddress MailExp
Mail.Subject = "Sujet 1"
msg = "test1"
Mail.Body = msg
Mail.send
Mail.resetall
Mail.host = "mail.???.ch"
Mail.From = "test_AT_??.com"
Mail.addaddress MailDM
Mail.Subject = "Sujet 2"
msg2 = "test2"
Mail.Body = msg2
Mail.send%>
<%end if%>
<% RS.Movenext %>
<% loop %>
<% RS.Close %>
<% conn.Close %>
<% Set conn=nothing
x=x+1%>
<%loop%>
<font face="Arial, Helvetica, sans-serif">
Les mails ont été envoyés. <br>
<br>
<a href="menu.asp">Retour</a>
</font>
<br><br>
</td>
</tr>
</table>
</body>
</html>
Pouvez-vous m'aider ?
Merci beaucoup ;-)
Haut
