Salve,
prendendo spunti da un post su Mr Webmaster, ho modificato questo script per le mie esigenze.
Per fare un test ho impostato l'invio di 5 mail x volta su 20, ma dovrà gestirne di più.
Solo che invece di mandare 5 mail per volta , mi manda le 20 mail tutte insieme, dove sbaglio?
Premetto, da come si evince dallo script, che ogni mail ha un allegato specifico.
Potete aiutarmi? Grazie
G.
prendendo spunti da un post su Mr Webmaster, ho modificato questo script per le mie esigenze.
Per fare un test ho impostato l'invio di 5 mail x volta su 20, ma dovrà gestirne di più.
Solo che invece di mandare 5 mail per volta , mi manda le 20 mail tutte insieme, dove sbaglio?
Premetto, da come si evince dallo script, che ogni mail ha un allegato specifico.
Potete aiutarmi? Grazie
G.
Codice:
<%@LANGUAGE = VBScript%>
<%
Dim periodos, pag, cn, rs, quante, tot, i, email
periodos = request.form("periodo")
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
If periodos <> "" Then
Session("periodos") = periodos
Else
Response.End
End If
dim fs,fo,x,extfile,folder
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("d:\inetpub\webs\miositoit\public\pdf\" & periodos & "\")
set file3 = fo.files
for each x in file3
extfile = left(split(x.Name,".pdf")(0),14)
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../mdb-database/prova.mdb")
' Lancio la query
rs.Open "SELECT * FROM utenti WHERE codice_cliente = '" & extfile & "' AND attivo = 'SI'", cn, 1
if not rs.eof then
' Predispongo la paginazione
quante = 5
rs.CacheSize = quante
rs.PageSize = quante
rs.AbsolutePage = pag
tot = CInt(rs.PageCount)
i = 0
Do While Not rs.EOF
nome = rs.fields("Nome")
cognome = rs.fields("Cognome")
codice_cliente = rs.fields("codice_cliente")
emails = rs.fields("email")
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miosito.it"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 240
Flds.Update
folder = request.form("periodo")
bim = MID(folder,17)
bim = Replace(bim, "_" , " ")
anno = MID(folder,1,4)
nomefile = x.Name
With iMsg
Set .Configuration = iConf
.To = emails
.From = "MIAAZIENDA<[email protected]>"
.Subject = "Cod cliente: " & codice_cliente &""
.TextBody = "documento in allegato"
.AddAttachment server.mappath("../pdf/" & request.form("periodo") & "/" & nomefile & "")
.Send
End With
i = i + 1
If i = quante Then Exit Do
rs.MoveNext
Loop
end if
next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
If CInt(pag) < CInt(tot) Then
Response.redirect "inviodocpdf.asp?pag=" & CInt(pag) + 1
End If
Response.write ("Pagina corrente: " & pag)
%>
per me puoi evitare di usare l'attesa, preoccupati che lo script faccia quello che te vuoi.
