Ciao.

Qualcuno può aiutarmi a capire se questo script invia email doppie, cioè la stessa email uguale per ciascun destinatario della lista ?

Non posso provarlo al momento... grazie...

codice:
   Conta = 0
   ListaDestinatari = ""
   Blocco = 0
      
   Do Until rec.eof
   Do Until (Conta > 9) OR (rec.eof = true)

   ListaDestinatari = ListaDestinatari & rec("email") & "; "
   Conta = Conta + 1
   Blocco = Blocco + 1
   
   rec.MoveNext() 
   Loop   

'#### CREO LA MAIL
	
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
	.Item(cdoSendUsingMethod)       = cdoSendUsingPort
	.Item(cdoSMTPServer)            = "XXXXX"
	.Item(cdoSMTPServerPort)        = 25
	.Item(cdoSMTPConnectionTimeout) = 60
	.Update
End With

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

If objMessage Is Nothing Then
  Response.Write "Failed to create object 
"
Else
  Response.Write "objMessage created OK 
"
End If

With objMessage
    .From     = "emailmittente@email.it"
    .To       = ListaDestinatari
    .Subject  = strOggetto
    .HtmlBody = messaggio
    .Fields("urn:schemas:httpmail:importance").Value = 2 
    .Fields("urn:schemas:mailheader:X-MSMail-Priority") = 6
    .Fields.Update()	

on error resume next
   objMessage.Send
   if Err.Number <> 0 then
     response.Write "Email send failed # : " & Err.Number & " -  " & Err.Description & ".
"&vbcrlf
   end if	
End With

   Set Fields = Nothing
   Set objMessage = Nothing

Response.Write("Trasmesso a numero = " & blocco & " destinatari ===> Attendo 2 secondi...")
Response.Flush
Sleep 2
Response.Write("OK ===> ")

response.write "Email inviata a ===> " 
response.write "" & ListaDestinatari & ""
response.write "

"

Conta = 0
ListaDestinatari = ""
      
   Loop 

   Set objConfig = Nothing