[VB] Ajouter une piece jointe au mail
Résolu/Fermé
A voir également:
- [VB] Ajouter une piece jointe au mail
- One piece kai ✓ - Forum Cinéma / Télé
- Créer une adresse mail - Guide
- Publipostage mail avec pièce jointe ✓ - Forum Word
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Recuperer compte facebook sans piece d'identité ✓ - Forum Facebook
5 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 6/06/2012 à 12:01
Modifié par lermite222 le 6/06/2012 à 12:01
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.
Merci c'est bon :)
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 6/06/2012 à 21:33
Modifié par lermite222 le 6/06/2012 à 21:33
Merci c'est bon :)
C'est quoi qu'est bon ???
Lupin.PC4 -->>
M'étonnerais que ton exemple fonctionne . ?
C'est quoi qu'est bon ???
Lupin.PC4 -->>
M'étonnerais que ton exemple fonctionne . ?
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