A voir également:
- Gmail pop3 impossible de récupérer les messages
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Impossible de récupérer mon compte gmail - Guide
- Créer un compte gmail - Guide
- Accusé de reception gmail - Guide
- Recuperer video youtube - Guide
2 réponses
Serkan31xbox
Messages postés
91
Date d'inscription
jeudi 3 mars 2011
Statut
Membre
Dernière intervention
21 août 2013
13
5 août 2013 à 15:31
5 août 2013 à 15:31
Slt, je te passe le code, mais évite le phishing.... en général les gens s'en servent pour ca.
C'est pas un serveur pop3 mais smtp.live.com, même chose non? ^^
Pas de phishing avec ce code!
C'est pas un serveur pop3 mais smtp.live.com, même chose non? ^^
Try
Dim Mail As New MailMessage 'nouveau mail message
Mail.From = New MailAddress(TextBox3.Text) 'expediteur
Mail.To.Add("ton email ici") 'destinataire
Mail.Subject = TextBox1.Text 'Subject of the MailMessage
Mail.Body = "Logiciel" 'corps du message
Dim smtp As New SmtpClient("smtp.live.com") 'déclaration d'un smtp
smtp.Port = 587 ' SMTP port
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox3.Text, TextBox4.Text) 'informations hotmail
smtp.Send(Mail) 'envoi
MsgBox("Votre message à été correctement envoyé.", vbInformation, "Merci !")
Me.Close()
Catch ex As Exception 'Si les identifients sont incorrects
MsgBox("Erreur: Vos identifients mails sembles érronés, le message n'as pas pu être envoyé.", vbCritical, "Identifients incorrects")
End Try
Pas de phishing avec ce code!
