VB 2010 créer messagerie pieces jointes !
nsmb
Messages postés
488
Date d'inscription
Statut
Membre
Dernière intervention
-
nsmb Messages postés 488 Date d'inscription Statut Membre Dernière intervention -
nsmb Messages postés 488 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je me suis créer un petit logiciel qui permet d'envoyer des e-mails, il fonctionne très bien.
J'aimerais cependant insérer dans ce logiciel une fonction qui permet d'envoyer une pièce jointe avec. (EX : photo, musique, vidéo, ...).
Merci de répondre assez vite, merci.
J'utilise Visual Basic Express 2010.
Voici mon code de programmation :
--------------------------------------------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------------------------------------------
Merci !
Je me suis créer un petit logiciel qui permet d'envoyer des e-mails, il fonctionne très bien.
J'aimerais cependant insérer dans ce logiciel une fonction qui permet d'envoyer une pièce jointe avec. (EX : photo, musique, vidéo, ...).
Merci de répondre assez vite, merci.
J'utilise Visual Basic Express 2010.
Voici mon code de programmation :
--------------------------------------------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------------------------------------------
Merci !
A voir également:
- VB 2010 créer messagerie pieces jointes !
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Telecharger toutes les pieces jointes gmail - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
5 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question