Carissimi,
utilizzo questo script per invio multiplo di e-mail ai miei utenti che sono + di 3000
Con un invio unico purtroppo si blocca e non li invia a tutti(sono su aruba), come posso impostare che invii email a blocchi di 300 così da inviarle tutte?
Grazie 1000
Gino
codice:
server.scriptTimeOut = 36000000 ' secondi

dim dove 
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("../mdb-database/user.mdb") 
Set rs=Server.CreateObject("ADODB.recordset") 
dim stmsql 
stmsql="Select * FROM utenti" 
rs.Open stmsql,dove  
do while not rs.EOF 
Set objMail = CreateObject("CDO.Message")

Set objConfig = Server.CreateObject("CDO.Configuration")

With objConfig
     
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miosito.it" 

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

  danome="MIOSITO" 
  damail="<info@miosito.it>"
  dachi=chr(34) & danome & chr(34) & damail
  nomesocio = rs.Fields("Nome")
  cognomesocio = rs.Fields("Cognome")
  emailsocio = rs.Fields("email")
  achi= chr(34) & nomesocio & VbCrLf & cognomesocio & chr(34) & emailsocio
  oggetto= request.Form("oggetto")
  testo= request.Form("messaggio")


Set objMail.Configuration = objConfig

objMail.From = dachi

objMail.To = achi 

objMail.Subject = oggetto

objMail.Fields("urn:schemas:httpmail:importance").Value = 2

objMail.Fields.Update()

objMail.TEXTBody = testo

objMail.Send()

Set objMail = Nothing

rs.MoveNext 
loop 
rs.close 
Set rs = nothing