[VB] Ajouter une piece jointe au mail
Résolu
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 ! :)
5 réponses
-
svp ?
-
Bonjour,
essayé :
mail.AddAttachment (C:\...)
C'est ainsi que je procède sous VBS
Cdt
Lupin -
ContributeurBonjour,
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. -
Merci c'est bon :)
-
re:
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
