Envoyer pièce jointe par email en VB

geekploy Messages postés 144 Statut Membre -  
geekploy Messages postés 144 Statut Membre -
Bonjour,
Je sais qu'il y a possibilité d'envoyer un mail avec un pièce jointe grâce à un code VB, j'ai trouvé beaucoup de sujet sur le web mais je n'ai pas réussi à le faire. Pouvez-vous m'aider sachant que je suis un gros novice dans la programmation sur virtual basic...
Merci pour vos futures réponses

4 réponses

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Le Basic, il n'est pas virtuel, il est visuel !!!
    As-tu essayé de chercher sur ce forum, ou simplement de lire les suggestions ci dessous ?
    0
  2. geekploy Messages postés 144 Statut Membre 2
     
    oui pardon visuel, oui j'ai vraiment beaucoup chercher et je suis tombé sur beaucoup de code mais j'arrive pas à m'en servir
    0
  3. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Alors c'est pas la peine qu'on t'en fournisse un autre !
    0
  4. geekploy Messages postés 144 Statut Membre 2
     
    Imports System.Web
    Imports System.IO
    Imports System.Net.Mail
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim smtpServer As New SmtpClient()
    Dim mail As New MailMessage()
    smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
    smtpServer.Port = 587
    smtpServer.Host = ComboBox1.SelectedItem
    smtpServer.EnableSsl = True
    mail = New MailMessage()
    mail.From = New MailAddress(TextBox1.Text)
    mail.To.Add(TextBox3.Text)
    mail.Subject = TextBox4.Text
    mail.Body = TextBox5.Text
    smtpServer.Send(mail)
    End Sub
    End Class

    voilà ce que j'ai trouvé de plus sérieux je pense mais j'arrive pas à m'en servir, j'arrive à envoyer l'email mais je le reçois pas sur ma boite de réception ( bien sur on ne voit pas avec les "bouton' et les texte box et tout )
    0