Devo inviare circa 1000 mail a blocchi di 50 mail ogni 15 minuti, altrimenti con aruba nn me le invia tutte, cosa devo inserire nello script che ho riportato sotto. Grazie
<%
Dim tipo, email, mittente, oggetto
Dim BCC, conta
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
If (rs.eof = true) AND (rs.bof = true) then
response.write "Non ho trovato nessun indirizzo"
else
rs.movefirst
Conta = 0
BCC = ""
do until rs.eof
do until (Conta > 30) OR (rs.eof = true)
BCC = BCC & rs("email") & "; "
Conta = Conta + 1
rs.movenext
loop
'#### CREO LA MAIL
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.verdifirenze.it"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' ************************************ DA MODIFICARE
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@verdifirenze.it"
' ************************************ DA MODIFICARE
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mauro"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
objMail.To = mittente
objMail.From = mittente
objMail.Bcc = BCC
objMail.Subject = oggetto
'*** Verifico il formato mail
if tipo="html" then
objMail.HTMLBody = email
else
objMail.TextBody = email
end if
objMail.Send
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
Conta = 0
BCC = ""
loop
end if
set cn = nothing
set rs = nothing
%>
Rispondi quotando
VVoVe: 
