Carissimi,
ho questo script che invia mail con file allegato, dato che sarà un invio massiccio ogni volta, 200 e +, come posso implementare al mio script la possibilità che siano scaglionate, cioè tipo: 10 mail ogni 5 minuti etc o altro che mi consigliate anche con un contatore che indica quante mail inviare e inviate.
codice:
<%
dim fs,fo,x,extfile,folder
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("d:\inetpub\webs\SITO\public\doc\pdf\" & request.form("periodo") & "\")
set file3 = fo.files

for each x in file3

extfile = left(split(x.Name,".pdf")(0),14)

sql = "SELECT * FROM utenti WHERE codice_cliente = '" & extfile & "' AND attivo = 'SI' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 3, 3

if not rs.eof then

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 = "IO<io@miosito.it>"
.Subject = "MAIL CON ALLEGATO PDF"
.TextBody = "In allegato fattura "
.AddAttachment server.mappath("../doc/pdf/" & request.form("periodo") & "/" & nomefile & "") 
.Send
End With

end if
%>
NO ALLEGATO
<%
else
%>
INVIO MAIL OK
<%
end if
next
set sf=nothing
set fo=nothing
set fs=nothing
set file3=nothing

%>
Grazie
G.