MYSQL2 = "SELECT MAX(mailing_cliente) AS mailing_cliente FROM tab_clienti"
        MYCMD2 = New OleDbCommand(MYSQL2, Conn)

        Max = MYCMD2.ExecuteScalar

        Dim i As Integer


        For i = 1 To Max


            Dim MYSQL3 As String
            Dim MYCMD3 As OleDbCommand
            Dim MYDR3 As OleDbDataReader

            MYSQL3 = "SELECT email_cliente FROM tab_clienti WHERE mailing_cliente = " & i & " AND elimina_cliente = false"
            MYCMD3 = New OleDbCommand(MYSQL3, Conn)
            MYDR3 = MYCMD3.ExecuteReader

            Dim Email, Email2, Destinatari As String

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

                    Email = MYDR3.Item("email_cliente")
                    Email2 = Email + "; "
                    Destinatari = Destinatari + Email2

                Loop
            End If



            Dim objMM As New MailMessage()

            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.miodominio.com")
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "email@miodominio.com")
            objMM.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "miapass")


            'Set the properties
            objMM.To = ""
            objMM.Bcc = Destinatari
            objMM.From = "Dominio < email@miodominio.com>"

            'Send the email in HTML format
            objMM.BodyFormat = MailFormat.Html

            'Set the subject
            objMM.Subject = Titolo

            'Set the body - use VbCrLf to insert a carriage return
            objMM.Body = Riepilogo

            SmtpMail.Send(objMM)


            Destinatari = ""

            MYDR.Close()
            MYDR3.Close()


        Next