[VB] Ajouter une piece jointe au mail
Résolu
turgodi
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
je souhaiterais rajouter une pièce jointe à mon petit code pour envoyer un email avec gmail :
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("email", "mdp")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Expéditeur")
mail.To.Add("Destinataire")
mail.Subject = "Sujet"
mail.Body = "Message"
smtpServer.Send(mail)
End Sub
End Class
Voilà, tout cela marche très bien mais je n'arrive pas à envoyer une pièce jointe ?
J'ai bien essayé mail.Attachments.add (C:\...)
Mais il m'affiche une erreur "La propriété Attachments est Read Only"
J'aurais besoin d'aide, merci ! :)
je souhaiterais rajouter une pièce jointe à mon petit code pour envoyer un email avec gmail :
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("email", "mdp")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Expéditeur")
mail.To.Add("Destinataire")
mail.Subject = "Sujet"
mail.Body = "Message"
smtpServer.Send(mail)
End Sub
End Class
Voilà, tout cela marche très bien mais je n'arrive pas à envoyer une pièce jointe ?
J'ai bien essayé mail.Attachments.add (C:\...)
Mais il m'affiche une erreur "La propriété Attachments est Read Only"
J'aurais besoin d'aide, merci ! :)
A voir également:
- [VB] Ajouter une piece jointe au mail
- Pièce d'identité - Accueil - Services publics
- 1 pièce jointe - Guide
- Ajouter une application au démarrage - Guide
- Publipostage mail - Accueil - Word
- Windows live mail - Télécharger - Mail
5 réponses
Bonjour,
je pense qu'il ne faut pas de () et si tu met en "Dur" comme tu semple le montrer il faut des ""
mail.Attachments.add "C:\..."
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
je pense qu'il ne faut pas de () et si tu met en "Dur" comme tu semple le montrer il faut des ""
mail.Attachments.add "C:\..."
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re:
Sous VB.NET, ça me donne ceci :
Cdt
Lupin
Sous VB.NET, ça me donne ceci :
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("email", "mdp")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
Dim NomFichier As String = "C:\Document\test.txt"
Dim data As New Attachment(NomFichier)
With mail
.From = New MailAddress("Expéditeur")
.To.Add("Destinataire")
.Subject = "Sujet"
.Body = "Message"
.Attachments.Add(data)
End With
smtpServer.Send(mail)
Cdt
Lupin
