[VB] Ajouter une piece jointe au mail Résolu/Fermé

Question

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 ! :)



Configuration: Windows 7 / Safari 536.5

turgodi · Answer

svp ?

Utilisateur anonyme · Answer

Bonjour,


essayé :

mail.AddAttachment (C:\...) 

C'est ainsi que je procède sous VBS

Cdt

Lupin

lermite222 · Answer

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.

Utilisateur anonyme · Answer

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	est.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

turgodi · Answer

Merci c'est bon :)

[VB] Ajouter une piece jointe au mail

5 réponses

Discussions similaires