Ciao grazie per la risposta.
Nel codice che vedi sotto in pratica io controllo prima il valore massimo del campo mailing_utente che si incrementa nel database di una unità ogni 100 registrazioni.
Sulla base di questo valore faccio un ciclo for, per recuperare 100 indirizzi e fare l'invio di quei 100, e così via.
Su IIS cosa dovrei verificare nello specifico?
Ecco il codice:
codice:
Dim MYSQL2 As String
Dim MYCMD2 As SqlCommand
Dim Max As Int32
MYSQL2 = "SELECT MAX(mailing_utente) AS mailing_utente FROM tab_utenti2 WHERE attiva_utente = 1 AND elimina_mailing = 0"
MYCMD2 = New SqlCommand(MYSQL2, conn)
Max = MYCMD2.ExecuteScalar
Dim i As Integer
Dim MYSQL3 As String
Dim MYCMD3 As SqlCommand
Dim MYDR3 As SqlDataReader
For i = 1 To Max
MYSQL3 = "SELECT DISTINCT(email_utente) FROM tab_utenti2 WHERE mailing_utente = " & i & " " & TxtSql & " " & TxtSqlListino & " " & TxtSqlRegione & " AND elimina_utente = 0 AND attiva_utente = 1 AND elimina_mailing = 0"
MYCMD3 = New SqlCommand(MYSQL3, conn)
MYDR3 = MYCMD3.ExecuteReader
Dim myEmail As New Net.Mail.MailMessage
Dim Email, Email2, Destinatari As String
Destinatari = ""
Email = ""
Email2 = ""
myEmail.IsBodyHtml = True
myEmail.From = New MailAddress("newsletter@sito.com", "SITO")
myEmail.Subject = Titolo
If MYDR3.HasRows = True Then
Do While MYDR3.Read
If Regex.IsMatch(MYDR3.Item("email_utente"), "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*") Then
Email = MYDR3.Item("email_utente")
'Try
myEmail.Bcc.Add(Email)
'Catch ex As Exception
'End Try
Response.Write(Email & "
")
End If
Loop
End If
Response.Write("
<br")
If FupFoto.HasFile = True Then
Allegato = DateTime.Now.Ticks.ToString & "_" & FupFoto.FileName
FupFoto.SaveAs(Server.MapPath("/public/newsletter/" & Allegato))
Dim Attachment As New System.Net.Mail.Attachment(Server.MapPath("/public/newsletter/" & Allegato))
myEmail.Attachments.Add(Attachment)
End If
myEmail.Body = Riepilogo
Try
Dim mySmtpClient As New System.Net.Mail.SmtpClient
mySmtpClient.Timeout = 3000000
mySmtpClient.Send(myEmail)
Catch ex As Exception
End Try
Next
MYDR3.Close()
conn.Close()
Grazie mille