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

Question

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 !

darkplayerdu13 · Answer

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?

jeanpierregrouk · Answer

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.

darkplayerdu13 · Answer

Salut!

Dans :

mail.Body = Listbox3.Text

essaye

mail.Body = Listbox3.List

J'espère que ça va marcher ;)

darkplayerdu13 · Answer

Salut!

Dans
mail.Body = Listbox3.Text

Essaye
mail.Body = Listbox3.List


J'espère que ça va marcher =D

jeanpierregrouk · Answer

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.

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

5 réponses

Votre réponse

Discussions similaires