Envoi de mail

Bonjour,

je suis un débutant dans la programmation vb.net j' ai crée une application qui permet d'envoyer des mails à partir d'une base de donnée dans un timer le souci est que l'application ne soufre d'aucune erreur donc est sensé marché mais au final les mails ne sont pas envoyer au destinataire.

voici la methode pour l'envoi de mail:

 Public Sub envoimail()
        processing = True

        client = New SmtpClient("smtp.gmail.com", 465)
        client.Credentials = New NetworkCredential("***@***", "password")
        client.UseDefaultCredentials = False
        client.EnableSsl = True
        mail = New MailMessage
        Dim row As DataRow
        For Each row In recupmail().Rows()
            With row
                .BeginEdit()

                Try
                    If row.Item("id_mail") <> " " And row.Item("id_etat") = "A ENVOYER" Then
                        With mail

                            .From = New MailAddress("***@***")
                            .Sender = New MailAddress("***@***")
                            .To.Add(row.Item("repondre_a").ToString)
                            .Subject = "experience"
                            .Body = row.Item("body_html").ToString
                            .Priority = Net.Mail.MailPriority.High

                        End With
                        client.Send(mail)
                        .Item("id_etat") = "ENVOYER"
                    End If
                Catch ex As Exception
                    .Item("id_etat") = "REPRENDRE"
                End Try
                .EndEdit()
            End With
        Next
        mail = Nothing
        client = Nothing
        processing = False
    End Sub

merci pour votre réflexion.

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages.