VBA Envoyer mail avec Pièces 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 -
Bonsoir, j'ai créé mon petit logiciel sous Visual Basic pour envoyer un E-Mail.
Voici mon code :
--------------------------------------------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------------------------------------------
Je voudrais juste rajouter une fonction pour pouvoir envoyer des pieces jointes (et pourquoi pas enregistrer des contacts).
Merci beaucoup à ceux qui répondront.
Voici mon code :
--------------------------------------------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------------------------------------------
Je voudrais juste rajouter une fonction pour pouvoir envoyer des pieces jointes (et pourquoi pas enregistrer des contacts).
Merci beaucoup à ceux qui répondront.
A voir également:
- VBA Envoyer mail avec Pièces Jointes
- Telecharger toutes les pieces jointes gmail - Guide
- Gmail envoyer un mail - Guide
- Publipostage mail - Accueil - Word
- Windows live mail - Télécharger - Mail
- Envoyer mail avec accusé de réception gmail - Guide
Dim pj As New Net.Mail.Attachment("C:\Users\Hui WU\Desktop\wh_wing.txt")
mail.Attachments.Add(pj)
Et je dois rajouter un bouton sur mon logiciel ? Merci
PS: Je ne veux pas que ça envoie toujours le même fichier bien sûr. Bonne soirée