Public Class Form1

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim Mittente, Destinatari, Oggetto, Corpo, NewMail
        Dim StrProvider, StrQuery, r, r2, invioacc, invioaccn

        Dim objMail, objConfig
        Dim invioA, invioDa
        r = CreateObject("adodb.recordset")
        r2 = CreateObject("adodb.recordset")
        StrProvider = "Driver=MySql ODBC 3.51 Driver;Server=10.16.183.39;uid=root;pwd=Admin2012;database=serviziomessaggi"
        'StrProvider = "Driver=MySql ODBC 5.5 Driver;Server=10.16.183.39;uid=root;pwd=Admin2012;database=serviziomessaggi"
        'seleziona solo i record non lavorati
        StrQuery = "SELECT * FROM msg WHERE Inviato='n'"
        r.Open(StrQuery, StrProvider)
        Do While Not r.eof

            invioDa = ""      'aggiunti in data 26.01.2009 per evitare invio in cc o ccn anche in presenza di campo vuoto
            invioA = ""
            invioacc = ""
            invioaccn = ""

            invioDa = Replace(r.fields("mittente").value, " ", "_")
            invioA = Replace(r.fields("Destinatario").value, "_", "'")
            If r.fields("DestinatarioCC").value <> "" Then invioacc = Replace(r.fields("DestinatarioCC").value, "_", "'")
            If r.fields("DestinatarioCCn").value <> "" Then invioaccn = Replace(r.fields("DestinatarioCCN").value, "_", "'")

            ' Dimensiona l'oggetto email
            objMail = CreateObject("CDO.Message")

            ' ====================================

            ' Assegna all'oggetto le proprietà necessarie

            ' Mittente dell'email (indirizzo)
            objMail.From = invioDa

            ' Destinatario dell'email (indirizzo)
            objMail.To = invioA

            ' Cc e Bcc (opzionale)
            objMail.Cc = invioAcc
            objMail.Bcc = invioAccn

            ' Oggetto dell'email
            objMail.Subject = r.fields("Oggetto").value

            ' Valore di priorità
            objMail.Fields("urn:schemas:httpmail:importance").Value = 2
            objMail.Fields.update()


            ' Corpo del messaggio
            objMail.HTMLBody = r.fields("Corpo").value
            'objMail.TextBody = r.fields("Corpo")

            ' Invia l'email
            ' objMail.Send()
            objMail.Send()

            ' Distruggi l'oggetto
            objMail = Nothing

            'aggiorna il campo inviato doveid = a quello in lavorazione
            StrQuery = "UPDATE msg SET inviato='s',InviatoData='" & Today & "',InviatoOra='" & TimeOfDay & "'WHERE id=" & r.Fields("id").value
            r2.Open(StrQuery, StrProvider)
            r.MoveNext()
        Loop
        r.Close()
        r = Nothing
        End
    End Sub
End Class