Envoyer par mail le contenu d'une listbox en cliquant sur un bouton

Signaler
Messages postés
3
Date d'inscription
lundi 22 mars 2010
Statut
Membre
Dernière intervention
23 mars 2010
-
Messages postés
3
Date d'inscription
lundi 22 mars 2010
Statut
Membre
Dernière intervention
23 mars 2010
-
Bonjour, je bloque sur ce problème depuis plusieurs jours.

En pressant sur un bouton je veux que le contenu de ma listbox soit envoyé par email.

J'ai trouvé une solution sur youtube (http://www.youtube.com/watch?v=Ai5m38fW-9M&feature=related)

Je l'ai tapé et j'ai ajouté quelques détails, voici le code :

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Dim MyMailMessage As New MailMessage()
Try
MyMailMessage.From = New MailAddress("email1@yahoo.com")
MyMailMessage.To.Add("email2@yahoo.com")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.mail.yahoo.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("email1", "motdepassemail1")
SMTP.Send(MyMailMessage)
TextBox1.Text = "Subject"
TextBox2.Text = "Message"
MessageBox.Show("Sended")

Catch ex As Exception
MessageBox.Show("Not Sended")
End Try
End Sub

Je fais une import au début : Imports System.Net.Mail

La partie message doit correspondre au contenu ma Listbox.

Je n'ai aucune textbox. Juste une listbox et un bouton.

Merci par avance de votre aide !

5 réponses

Messages postés
3
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
23 mars 2010

Salut à toi!

Je crois que je ne comprends pas trop t'a question ... tu n'arrives pas à envoyer ta listBox par email ? L'email reçu est tout simplement vide, mais bien reçu?
Messages postés
3
Date d'inscription
lundi 22 mars 2010
Statut
Membre
Dernière intervention
23 mars 2010

Je ne reçois absolument rien, par contre j'ai trouvé ceci :

Dim mail As New MailMessage
mail.To.Add("email1@hotmail.fr")
mail.From = New System.Net.Mail.MailAddress("email2@hotmail.fr")
mail.Subject = "the subject"
mail.Body = Listbox3.Text
Dim Smtp As New SmtpClient("smtp.live.com")
Smtp.Port = "587"
Smtp.EnableSsl = True
Smtp.Credentials = New System.Net.NetworkCredential("email1@hotmail.fr", "passemail1")
Smtp.Send(mail)


Avec ceci je reçois un mail vide. Comment je peux faire pour que le contenu de ma listbox me parvienne ?

Merci de m'avoir répondu.
Messages postés
3
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
23 mars 2010

Salut!

Dans :

mail.Body = Listbox3.Text

essaye

mail.Body = Listbox3.List

J'espère que ça va marcher ;)
Messages postés
3
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
23 mars 2010

Salut!

Dans
mail.Body = Listbox3.Text

Essaye
mail.Body = Listbox3.List


J'espère que ça va marcher =D
Messages postés
3
Date d'inscription
lundi 22 mars 2010
Statut
Membre
Dernière intervention
23 mars 2010

ListBox3.List n'est pas un membre de 'Sytem.Windows.Forms.Listbox' ...

Snif ça marche pas. Merci de ta réponse. Si t'as une autre idée je suis preneur.