Faire un verification d'Email

[Terreur1]

Salut, dans ce tutoriel je vais vous montrez comment faire une verification Gmail (boite mail de google)

Le principe est simple, le logiciel envoie un mail sur votre boite mail si vous le recevez ils vous annonce que tout fonctionne bien sinon un erreur =)


Donc commencons par le commencement.

Créer: 2 TextBox et 1 Button.

A vous de faire votre style mais: 1 textbox sera pour le nom de compte gmail et l'autre pour le mot de passe

Et un bouton qui envoie l'email.

Aprés la form donner le nom que vous voulez, l'emplacement etc...

Bon maintenant passons au code:

Tout en au de votre code ajouter y ceci:

Imports System.Net.Mail

Ensuite faites un double click sur votre button1 vous devrez avoir ceci:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
End Class

Maintenant ajouter le code suivant dans le button1_Click:

Try
            Dim Mail As New MailMessage
            Mail.To.Add("[email protected]")
            Mail.From = New MailAddress("[email protected]")
            Mail.Subject = "Test mail" '// Le sujet de votre Email
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "password")
            SMTP.Send(Mail)
            MsgBox("E-mail is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect") '//Votre message si l'email gmail est correct
        Catch ex As Exception
            MsgBox("Error, invaild e-mail username or password.", MsgBoxStyle.Critical, "Error") '//Votre message si votre gmail est faux
            Exit Sub
        End Try

Donc vous devrez avoir quelque chose comme ceci:

Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Mail As New MailMessage
            Mail.To.Add("[email protected]")
            Mail.From = New MailAddress("[email protected]")
            Mail.Subject = "Test Mail" '// 
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "Password")
            SMTP.Send(Mail)
            MsgBox("E-mail is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect")
        Catch ex As Exception
            MsgBox("Error, invaild e-mail username or password.", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End Try
    End Sub
End Class

Bon on va rendre ce code plus universel est plus fonctionnel grace au textbox, pour cela il faut remplacer les: "[email protected]" par TextBox1.Text
Et le "Password" par TextBox2.Text

donc vous devrez avoir ceci:

Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Mail As New MailMessage
            Mail.To.Add((TextBox1.Text))
            Mail.From = New MailAddress((TextBox1.Text))
            Mail.Subject = "Test Mail" '// 
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential((TextBox1.Text), (TextBox2.Text))
            SMTP.Send(Mail)
            MsgBox("E-mail is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect")
        Catch ex As Exception
            MsgBox("Error, invaild e-mail username or password.", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End Try
    End Sub
End Class

Bon maintenant pour faire mieux au niveau du Password remplacer le TextBox2 par un MaskedTextBox qui va masqué les lettres taper (enfin tester pour voir ;))

Et pour faire mieux pour le rendre vraiment universel, oui car la l'email vous avez pas d'autre choix que de vous l'envoyez... Sa sert a rien =)

Faire une nouvelle TextBox pour créer un destinataire, donc normalement vous avez textbox1 qui est votre adresse et une textbox2 qui sera l'adresse destinatrice.

donc vous remplacez comme ceci:

Mail.To.Add(TextBox2.Text)

Donc voila le programme explicatif en lui meme est fini mais vous pouvez l'améliorer en enlevant la TextBox1 qui est votre adresse est remplacer le code par votre adresse d'envoie.

Bref le code Final vous devrez avoir ceci:

Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Mail As New MailMessage
            Mail.To.Add(TextBox2.Text)
            Mail.From = New MailAddress((TextBox1.Text))
            Mail.Subject = "Test Mail" '// 
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential((TextBox1.Text), (MaskedTextBox1.Text))
            SMTP.Send(Mail)
            MsgBox("E-mail is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect")
        Catch ex As Exception
            MsgBox("Error, invaild e-mail username or password.", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End Try
    End Sub
End Class

Voila bonne lecture ;)

Vous trouverez une utilité a ce logiciel si vous continuez dans la programmation, croyez moi =D

 

[pliip]

merci

 

[conard1023]

j'ai une petit erreur moi pourquoi c'est au niveau de Net.Netwok...