Envoyer pièce jointe par email en VB

Fermé
geekploy Messages postés 130 Date d'inscription dimanche 17 avril 2011 Statut Membre Dernière intervention 19 novembre 2014 - 29 août 2011 à 22:30
geekploy Messages postés 130 Date d'inscription dimanche 17 avril 2011 Statut Membre Dernière intervention 19 novembre 2014 - 30 août 2011 à 01:18
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
A voir également:

4 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
30 août 2011 à 01:11
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
geekploy Messages postés 130 Date d'inscription dimanche 17 avril 2011 Statut Membre Dernière intervention 19 novembre 2014 2
30 août 2011 à 01:13
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
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
30 août 2011 à 01:14
Alors c'est pas la peine qu'on t'en fournisse un autre !
0
geekploy Messages postés 130 Date d'inscription dimanche 17 avril 2011 Statut Membre Dernière intervention 19 novembre 2014 2
30 août 2011 à 01:18
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