Sender Hotmail / Gmail / Yahoo / Aol
Nom : Sender Hotmail
Fonction : Envoyer des email sur la boite de messagerie de msn ou autres
Qu'est ce que Sender Hotmail :
C'est un petit programme qui permet d'envoyer des emails sur une boite de réception .
Comment faire ?
Je vous le montre tout de suite .
Pré requis :
1- Il vous faut 5 labels + 5 textboxs + 1 bouton + 1 timer :
Label 1 = Votre Email + textbox1 en face du label
Label 2 = Password + textobx2 en face du label
Label 3 = Destinataire + textbox3 en face du label
Label 4 = Sujet + textbox4 en face du label
Label5 = Message + textbox5 en face du label
Screen :
2- Ensuite au dessus de Public Class Form1 inserez ceci :
Imports System.Net.Mail
3- Clicker sur le bouton1 est en dessous de Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick inserer ceci :
Timer1.Start()
4- Clicker sur le timer1 est en dessous de Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick inserez ceci :
Dim mail As New MailMessage
mail.To.Add(TextBox3.Text)
mail.From = New MailAddress(TextBox1.Text)
mail.Subject = TextBox4.Text
mail.Body = TextBox5.Text
Dim SMTP As New SmtpClient("smtp.live.com")
SMTP.Port = 25
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTP.Send(mail)
Timer1.stop()
Et voila vous avez fini votre email sender pour Hotmail !
Maintenant si vous avez envie de perfectionner votre email sender et pouvoir envoyez des email vers d'autres serveur Smtp tels que Aol , Yahoo , ou encor gmail , rien de plus simple il vous suffit simplement de changer :
Dim SMTP As New SmtpClient("Ici vous mettez le nouveau smtp")
SMTP.Port = ici entrer le port correspondant
Exemple pour Yahoo :
Dim SMTP As New SmtpClient("plus.smtp.mail.yahoo.com")
SMTP.Port =465
Exemple pour Gmail :
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port =587
Exemple pour Aol :
Dim SMTP As New SmtpClient("smtp.uk.aol.com")
SMTP.Port = 587
Voila j'espere que cela pourra vous servir !
Merci Bonne journée.
Cordialement p1l0u
Fonction : Envoyer des email sur la boite de messagerie de msn ou autres
Qu'est ce que Sender Hotmail :
C'est un petit programme qui permet d'envoyer des emails sur une boite de réception .
Comment faire ?
Je vous le montre tout de suite .
Pré requis :
1- Il vous faut 5 labels + 5 textboxs + 1 bouton + 1 timer :
Label 1 = Votre Email + textbox1 en face du label
Label 2 = Password + textobx2 en face du label
Label 3 = Destinataire + textbox3 en face du label
Label 4 = Sujet + textbox4 en face du label
Label5 = Message + textbox5 en face du label
Screen :
2- Ensuite au dessus de Public Class Form1 inserez ceci :
Imports System.Net.Mail
3- Clicker sur le bouton1 est en dessous de Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick inserer ceci :
Timer1.Start()
4- Clicker sur le timer1 est en dessous de Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick inserez ceci :
Dim mail As New MailMessage
mail.To.Add(TextBox3.Text)
mail.From = New MailAddress(TextBox1.Text)
mail.Subject = TextBox4.Text
mail.Body = TextBox5.Text
Dim SMTP As New SmtpClient("smtp.live.com")
SMTP.Port = 25
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTP.Send(mail)
Timer1.stop()
Et voila vous avez fini votre email sender pour Hotmail !
Maintenant si vous avez envie de perfectionner votre email sender et pouvoir envoyez des email vers d'autres serveur Smtp tels que Aol , Yahoo , ou encor gmail , rien de plus simple il vous suffit simplement de changer :
Dim SMTP As New SmtpClient("Ici vous mettez le nouveau smtp")
SMTP.Port = ici entrer le port correspondant
Exemple pour Yahoo :
Dim SMTP As New SmtpClient("plus.smtp.mail.yahoo.com")
SMTP.Port =465
Exemple pour Gmail :
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port =587
Exemple pour Aol :
Dim SMTP As New SmtpClient("smtp.uk.aol.com")
SMTP.Port = 587
Voila j'espere que cela pourra vous servir !
Merci Bonne journée.
Cordialement p1l0u