ENVOYER UN MAIL (GÈRE LES FICHIERS JOINTS ET LE HTML) EN VB.NET (2002,2003,2005)

cs_Fornikator

Messages postés: 43
Date d'inscription: jeudi 6 juin 2002
Statut: Membre
Dernière intervention: 8 juin 2004

- 19 janv. 2003 à 01:12
Sly727

Messages postés: 9
Date d'inscription: lundi 30 août 2004
Statut: Membre
Dernière intervention: 8 mai 2011

- 24 mars 2009 à 16:34

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5341-envoyer-un-mail-gere-les-fichiers-joints-et-le-html-en-vb-net-2002-2003-2005-via-system-net-dll-ou-system-web-dll

Sly727

Messages postés: 9
Date d'inscription: lundi 30 août 2004
Statut: Membre
Dernière intervention: 8 mai 2011

24 mars 2009 à 16:34

J'ai trouvé tout seul. Il suffit de rajouter: .Bcc.Add(Mcc) après .Body = Mbody

Sly727

Messages postés: 9
Date d'inscription: lundi 30 août 2004
Statut: Membre
Dernière intervention: 8 mai 2011

24 mars 2009 à 15:17

Bonjour,

j'ai testé cette source et elle fonctionne plutôt bien. Cependant il y a une chose qui ne fonctionne pas, c'est l'envoi de l'email en copie caché (Bcc), on peut ajouter une adresse email à qui on veut envoyer une copie caché mais dans la fonction, ce n'est pas traité. Donc finalement on rentre une adresse inutilement.

Est-ce que qqun peut me donner un coup de main pour faire fonctionner ça svp ?

timotep

Messages postés: 34
Date d'inscription: mardi 3 janvier 2006
Statut: Membre
Dernière intervention: 16 janvier 2008

12 nov. 2007 à 21:05

Bonjour,

Bon code, il m'a bien servi.
Cependant, j'ai une question. J'ai le problème suivant. Pendant l'envoi de l'email, la pièce jointe est en lecture seule. Mon problème, c'est que dans mon appli, même après que le message soit envoyé, le fichier joint reste en lecture seule (base de données). Y a t il des ressources à libérer? car je suppose que l'objet créé pour attacher le fichier n'est pas détruit et donc que la pièce reste en lecture seule, jusqu'à ce que l'appli se femre complètement.

thepoe

Messages postés: 30
Date d'inscription: vendredi 23 avril 2004
Statut: Membre
Dernière intervention: 1 juin 2011

21 nov. 2006 à 19:29

En effet, une fonction pour une classe, lol j'aurais pu faire mieux... Plus clair, j'ai dit ca parceque j'avais juste regardé le souce affiché plus haut qui n'est pas complet.
Désolé pour mon imprécision, et merci à tous pour la diffusion du code source, une des rares choses encore paragées sur la planete... Salutations

hvb

Messages postés: 939
Date d'inscription: vendredi 25 octobre 2002
Statut: Membre
Dernière intervention: 27 janvier 2009

2
21 nov. 2006 à 18:48

mouais, plus clair... plus simpe peut etre, vu que tu as fais une classe contenant UNE fonction, mais explique moi en quoi ta source est plus clair.
La grosse difference, c'est que tu utilise pas la toute premiere version du framework (ce qui etait le cas ici) et donc que tu peux specifier le serveur smtp sans bidouilles. ^^
et si j'etais pas une grosse faignasse, je mettrais ma source à jour mais bon... :)

jockos

Messages postés: 321
Date d'inscription: dimanche 22 octobre 2000
Statut: Membre
Dernière intervention: 14 mai 2005

2
1 déc. 2003 à 16:22

Il faut encoder en base64 ton fichier (algo style UUEncode) et ensuite ajouté le fichier encodé au mail (à la fin en séparant les parties MIME par des balises BOUNDARY).

C'est pas très compliqué à joindre un fichier à un mail en respectant MIME...

Private Function AddHeaderFileSMTP() As String
Dim i As Byte
Const Boundary As String = "TonBoundary"

AddHeaderFileSMTP = "MIME-Version: 1.0" + vbCrLf + _
"Content-Type: multipart/mixed; " + _
"boundary=" + """" + "----=_" + Boundary + """" + vbCrLf + _
"X-Mailer: VB jock" + vbCrLf + vbCrLf + _
"This is a multi-part message in MIME format." + vbCrLf + vbCrLf

AddHeaderFileSMTP = AddHeaderFileSMTP + _
"------=_" + Boundary + vbCrLf + _
"Content-Type: text/plain; charset=" + """" + "iso-8859-1" + """" + vbCrLf + _
"Content-Transfer-Encoding: 8bit" + vbCrLf + vbCrLf

'Contenu du mail
AddHeaderFileSMTP = AddHeaderFileSMTP + _
strBody + vbCrLf + vbCr + vbCrLf + vbCrLf

' Joint un ou plusieurs fichiers au mail, dont le Path de chaque fichier est contenu dans la liste 'tabFileAttach' (tableau de String)

If nbFileAttach = 0 Then
Exit Function
End If

i = 0
Do While i < nbFileAttach

strFile = OpenFileAPI(tabFileAttach(i).Path)

If strFile = "" Then
'Erreur d'ouverture du fichier à joindre au mail
strErreurSMTP = "Erreur d'ouverture du fichier :" + vbCrLf + """" + tabFileAttach(i).Path + """."
DoEvents
Exit Function
End If

strFileNameSend = tabFileAttach(i).name

AddHeaderFileSMTP = AddHeaderFileSMTP + _
"------=_" + Boundary + vbCrLf + _
"Content-Type: application/octet-stream;" + vbCrLf + _
" name=" + """" + strFileNameSend + """" + vbCrLf + _
"Content-Transfer-Encoding: 7bit" + vbCrLf + _
"Content-Disposition: attachment;" + vbCrLf + _
" filename=" + """" + strFileNameSend + """" + vbCrLf + vbCrLf

AddHeaderFileSMTP = AddHeaderFileSMTP + _
UUEncode(strFile) + vbCrLf

i = i + 1
Loop

AddHeaderFileSMTP = AddHeaderFileSMTP + _
"------=_" + Boundary + vbCrLf

End Function

Avec cette fonction, tu peux joindre autant de fichier que tu veux et envoyer le flux au serveur SMTP (dans l'étape de fin DATA du protocole).

Je vais me motiver pour mettre ma source sur le site, ce sera plus simple...

Afficher les 24 commentaires