Problème de programmation : formulaire d'envoie de mails vb 2010
=OXYDE-GK=
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
LaurentMtns Messages postés 269 Date d'inscription Statut Membre Dernière intervention -
LaurentMtns Messages postés 269 Date d'inscription Statut Membre Dernière intervention -
Bonjour a tous.
Je suis un amateur en visual basic et me suis lancé il y a peu dans la création d'un formulaire d'envoie de mail.
J'ai donc cherché sur internet et j'ai trouvé le code suivant:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim Mymailmessage As New MailMessage()
Dim SMTPServer As New SmtpClient("antp.gmail.com")
Mymailmessage.From = New MailAddress("e-mail1")
Mymailmessage.To.Add("e-mail2")
Mymailmessage.Subject = ("objetdumail")
Mymailmessage.Body = ("Contenu de mon message")
SMTPServer.Port = ("587")
SMTPServer.Credentials = New System.Net.NetworkCredential("e-mail1", "motdepasse")
SMTPServer.EnableSsl = True
SMTPServer.Send(Mymailmessage)
End Sub
End Class
Avant de lancer le code, le logiciel ne me détecte aucune erreur cependant lorsque je lance le débogage,et que j'appuie sur le bouton,J'ai une erreur me disant :"L'exeption SMTPexeption n'a pas été gérée" et j'ai une flèche en direction d ma dernière ligne de code .PS:Toutes mes adresses sont Gmail.
Merci par avance de votre aide et bonne journée . :D
Je suis un amateur en visual basic et me suis lancé il y a peu dans la création d'un formulaire d'envoie de mail.
J'ai donc cherché sur internet et j'ai trouvé le code suivant:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim Mymailmessage As New MailMessage()
Dim SMTPServer As New SmtpClient("antp.gmail.com")
Mymailmessage.From = New MailAddress("e-mail1")
Mymailmessage.To.Add("e-mail2")
Mymailmessage.Subject = ("objetdumail")
Mymailmessage.Body = ("Contenu de mon message")
SMTPServer.Port = ("587")
SMTPServer.Credentials = New System.Net.NetworkCredential("e-mail1", "motdepasse")
SMTPServer.EnableSsl = True
SMTPServer.Send(Mymailmessage)
End Sub
End Class
Avant de lancer le code, le logiciel ne me détecte aucune erreur cependant lorsque je lance le débogage,et que j'appuie sur le bouton,J'ai une erreur me disant :"L'exeption SMTPexeption n'a pas été gérée" et j'ai une flèche en direction d ma dernière ligne de code .PS:Toutes mes adresses sont Gmail.
Merci par avance de votre aide et bonne journée . :D
A voir également:
- Problème de programmation : formulaire d'envoie de mails vb 2010
- Application de programmation - Guide
- Fermer un programme de force - Guide
- Télécharger le programme de pmu - Télécharger - Médias et Actualité
- Programmation carte à puce vierge ✓ - Forum Matériel & Système
- Comment lancer un programme automatiquement au démarrage de windows - Guide
1 réponse
Hello, voici un code qui devrai fonctionner:
Le problème dans ton code vient du faite que à cette ligne ci:
Tu as mis antp et non pas SMTP.
Bonne soirée ! Laurent M.
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("adresse", "mot de passe")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("adresse")
mail.To.Add("adresse destinataire")
mail.Subject = "Mail from: " & My.Settings.epseudo
mail.Body = Textemail.Text
smtpServer.Send(mail)
End Sub
End Class
Le problème dans ton code vient du faite que à cette ligne ci:
Dim SMTPServer As New SmtpClient("antp.gmail.com")
Tu as mis antp et non pas SMTP.
Bonne soirée ! Laurent M.
Le "Mail from:" & My.settings.epseudo vient de mon application et tu dois donc le changer par autre chose.
(C'est le sujet du message)