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

jeanpierregrouk Messages postés 3 Date d'inscription lundi 22 mars 2010 Statut Membre Dernière intervention 23 mars 2010 - 22 mars 2010 à 15:01
jeanpierregrouk Messages postés 3 Date d'inscription lundi 22 mars 2010 Statut Membre Dernière intervention 23 mars 2010 - 23 mars 2010 à 14:27
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

darkplayerdu13 Messages postés 3 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 23 mars 2010
22 mars 2010 à 21:35
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?
0
jeanpierregrouk Messages postés 3 Date d'inscription lundi 22 mars 2010 Statut Membre Dernière intervention 23 mars 2010
22 mars 2010 à 22:03
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.
0
darkplayerdu13 Messages postés 3 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 23 mars 2010
23 mars 2010 à 00:27
Salut!

Dans :

mail.Body = Listbox3.Text

essaye

mail.Body = Listbox3.List

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

Dans
mail.Body = Listbox3.Text

Essaye
mail.Body = Listbox3.List


J'espère que ça va marcher =D
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jeanpierregrouk Messages postés 3 Date d'inscription lundi 22 mars 2010 Statut Membre Dernière intervention 23 mars 2010
23 mars 2010 à 14:27
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.
0