Discussion :

[valFIVE69]

Bonjour,

je sui débutant en VB et je me suis lancer dans la création d'un programme capable d'envoyer des mail , les code utiliser provienne du net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub sendmail()
        Dim MyMailMessage As New MailMessage
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        MyMailMessage.From = New MailAddress("XXX") 'Expediteur
        MyMailMessage.To.Add("XXX") 'Destinataire
        MyMailMessage.Subject = ("Mise a jour") 'Sujet
        MyMailMessage.Body = ("sécuriter : " & TextBox1.Text & vbNewLine) 'Message
        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New NetworkCredential("{XXX}", "XXX") 'Email SMTPServer.Send(MyMailMessage) 'Envoie
        SMTPServer.Send(MyMailMessage) 'Envoie
    End Sub

Mon probleme étan là SMTPServer.Send(MyMailMessage) ou il me dit que : l'exception smtpException n'a pas été gérer . j"espere que vous pourer m'aidez

---)

Le lien proposer par l'erreur est ceci : http://msdn.microsoft.com/query/dev1...-VB%29&rd=true

faut-il changer quel que chose dans le script???

[DotNetMatt]

Vérifie que le port soit correct, sur Gmail c'est soit le port 25 soit le port 465.

Petite info au passage, Gmail limite les envois d'email pour éviter le spam : 100 destinataires à la fois, et 500 mails maximum par jour. Au-delà, ton compte sera bloqué.

[valFIVE69]

Vérifie que le port soit correct, sur Gmail c'est soit le port 25 soit le port 465.

Petite info au passage, Gmail limite les envois d'email pour éviter le spam : 100 destinataires à la fois, et 500 mails maximum par jour. Au-delà, ton compte sera bloqué.

Merci de votre réponse , je vien d’essayer de changer les port , mais le problème persiste

[dragondu83]

Salut, ce code la fonctionne très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Sub SendMail()
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
 
        MyMailMessage.From = New MailAddress("{Adresse_Destinataire}") 'Expediteur
        MyMailMessage.To.Add("Adresse_Expediteur") 'Destinataire
        MyMailMessage.Subject = ("Objet") 'Sujet
        MyMailMessage.Body = ("Message") 'Message
 
        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New System.Net.NetworkCredential("email_expediteur", "mot_de_passe_expediteur") 'email et mdp
        SMTPServer.EnableSsl = True
 
        SMTPServer.Send(MyMailMessage) 'Envoi
    End Sub

Par contre il ne sert a rien si tu ne fait pas appel a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1.SendMail()

Donc si tu a que une page dans ton projet (que une form)
A la suite du code après le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End Sub

tu rajoute Me.SendMail() .
Normalement sa fonctionne (ou je raconte n'importe quoi, faut regarder) car moi aussi je débute un peut !
Dit moi si sa fonctionne a bientôt!
Cordialement
PS: Le port 587 fonctionne bien avec gmail (j'ai tester) .

[valFIVE69]

SUUUPER merci beaucoup ça marche parfaitement

Le code que tu m'as fourni est juste parfait, ça marche à 100 %

Le code que j'avais devait être incomplet mais maintenant ça marche super bien, je te remercie 1000 fois

[dragondu83]

Je te remercie moi même !