Dim MYSQL2 As String
        Dim MYCMD2 As OleDbCommand
        Dim MYDR2 As OleDbDataReader

        MYSQL2 = "SELECT DISTINCT(email_cliente) FROM tab_clienti WHERE elimina_cliente = 0 ORDER BY email_cliente ASC"
        MYCMD2 = New OleDbCommand(MYSQL2, Conn)
        MYDR2 = MYCMD2.ExecuteReader

        Dim Email As String

        Dim ContaEmail As Integer = 0

        Dim myEmail As New Net.Mail.MailMessage

        myEmail.IsBodyHtml = True
        myEmail.From = New MailAddress("email_mittente", "Newsletter")
        myEmail.Subject = Titolo
        myEmail.Body = Riepilogo

        If MYDR2.HasRows = True Then
            Do While MYDR2.Read

                ContaEmail = ContaEmail + 1

                If Regex.IsMatch(MYDR2.Item("email_cliente"), "^[\w\.=-]+@[\w\.-]+\.[\w]{2,3}$") Then
                    Email = MYDR2.Item("email_cliente")

                myEmail.Bcc.Add(Email)
                   
                    If ContaEmail Mod 50 = 0 Then
                        Response.Write("<br>--------------<br>")

                        Try
                            Dim mySmtpClient As New System.Net.Mail.SmtpClient
                            mySmtpClient.Timeout = 3000000
                            mySmtpClient.Send(myEmail)

                            For Each element In myEmail.Bcc
                                Response.Write(element.ToString & "<br>")
                            Next

                            myEmail.Bcc.Clear()

                        Catch ex As Exception

                        End Try

                    End If

                End If

            Loop
        End If

        MYDR2.Close()

        Conn.Close()