1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../configuration.asp"-->
<!--#include file="../asp_fct/accessdb.asp"-->
<!--#include file="../../asp_fct/php_like.fct"-->
<%
Set objListe=objConnx.Execute ("SELECT * FROM dossiers WHERE issue = 'Non Abouti' and date_traitement = '"&date()-8&"'")
Set objCount=objConnx.Execute ("SELECT COUNT(*) FROM dossiers WHERE issue = 'Non Abouti' and date_traitement = '"&date()-8&"'")
i=0
While i<>objCount(0)
i=i+1
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = SERVEUR_SMTP
Mail.From = EMAIL_EXPEDITEUR_CONFIRMATION_CLIENT
Mail.FromName = "moi"
Mail.AddAddress objListe("email"), ""
Mail.Subject = "Subject"
Mail.Body = parsePage("http://xx.xx.xx.xx/e_DCI/mail_relance_nonabouti.asp?id="&objListe("idDossier"))
Mail.IsHTML = True
On Error Resume Next
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
end if
objListe.movenext
Wend
%> |
Partager