envoi de mail Fermé

Question

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.

Configuration: Windows / Chrome 49.0.2623.87

    EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

Utilisateur anonyme · Answer

Bonjour, tu peux essayer ce code, tu le mets dans le sub du bouton avec lequel tu veux envoyer le message, et aussi tres important entre les () du Private Sub Button1_Click() Handles Button1.Click
(en rose) colle ca : sender As System.Object, e As System.EventArgs 
je ne l'ai pas mis car cela prenait trop de place et que tu aurais pus mal copier. 

et voici le code final (n'oublie pas de coller ce qui est dit plus haut)

Tu dois importer le System.Net.Mail, donc la 1er ligne de code qui est écrite ci en-bas, colle là au dessus de public class form1 dans le code de ta forme

Imports System.Net.Mail
'----------------------------------------------------------------------------

Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")

Private Sub Button1_Click() Handles Button1.Click 'Dans les (), colle le code
MyMailMessage.From = New MailAddress("Adresse_Expediteur")
MyMailMessage.To.Add("Adresse_Destinataire")
MyMailMessage.Subject = ("Objet")
MyMailMessage.Body = ("Message")

SMTPServer.Port = ("587") 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential("Adresse_Expediteur", "Mot_de_passe_expediteur")'ces () doivent être juste à coté du code au dessus : ... =New System.Net.NetworkCredential(ici !!!)
SMTPServer.EnableSsl = True

SMTPServer.Send(MyMailMessage) 'Envoi
MsgBox("envoyer avec succés", MsgBoxStyle.Exclamation, "")
End sub 
 
Voilà, j'espère que ca a pus t'aider

PS. l'expéditeur doit avoir une adresse GMAIL sinon, il y auras des bug.

Cordialement VANAUR

Il ne savaient pas que s'était impossible, alors, ils l'ont fait.

Envoi de mail

1 réponse

Discussions similaires