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
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
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
24 mars 2009 à 16:34
24 mars 2009 à 15:17
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 ?
12 nov. 2007 à 21:05
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.
21 nov. 2006 à 19:29
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
21 nov. 2006 à 18:48
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... :)
21 nov. 2006 à 01:32
Le lien vers la source : http://www.vbfrance.com/code.aspx?ID=40401
Salutations
30 avril 2006 à 09:06
24 avril 2006 à 17:37
21 déc. 2004 à 13:23
Voici ce qu'il faut rajouter pour être authentifié sur un serveur non open relay tel que free, laposte, ect...
Avant l'envoi du mail, ajouter :
DotNetMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
DotNetMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "nom")
DotNetMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "mdp")
1 déc. 2003 à 20:01
RQ : N'HESITE PAS A PLACER TON SOURCE SI IL FONCTIONNE CAR IL EST DIFFICILE DE TROUVER UN CLIENT SMTP COMPLET!! (MAIL + FICHIER JOINT)
Merci encore!
1 déc. 2003 à 16:22
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...
1 déc. 2003 à 14:18
Ton prog en question utilise le MIME? Si oui, n'hesite pas à me le mailer (si tu l'as encore!)sinon t'utilises quoi pour attacher sans utiliser MAPI??
1 déc. 2003 à 14:10
;)
pour faire un bon client Mail en VB, il faut bien comrpendre MIME. Il y a une assez bonne description sur ce site : www.salemioche.com
Ou carrément se plonger dans la RFC.
1 déc. 2003 à 13:37
jockos, je suis très intéressé par ton prog avec winsock, j'ai essayé avec VB6 et je ne parviens pas à faire fonctionner le MIME!
8 févr. 2003 à 01:36
7 févr. 2003 à 23:03
Je suis débutant en VB et je ne sais pas ce que je peux faire. Pouvez vous m'aider svp !!??
20 janv. 2003 à 18:30
Je veux essayer d'en faire un programme pour envoie d'un mailling a mais clients.
GUY van der Velden
20 janv. 2003 à 14:55
J'envoie les données avec le protocol SMTP à un serveur quelconque...(smtp.wanadoo.fr par exemple).
On peut envoyer plusieurs fichiers joints, à plusieurs destinataires...
Si ça interresse des personnes, je le mettrais sur ce site, car je ne suis pas sûr qu'il y ait dejà des sources qui fasse cela...
19 janv. 2003 à 20:19
j'essayait d'utiliser cet dll ya quelque jour mé jy suis pas arrivé, c sympa
vive vb.net
10/10
19 janv. 2003 à 14:27
ns2.heartlandexpress.com
pool-129-44-35-231.ny325.east.verizon.net
194.204.205.15
194.206.228.97
200.27.165.233
apres tous sont + ou - rapides... je suis en train de creer une liste a mettre a jour de serveurs open relay, mailez moi si cela vous interesse.
Et pour ce qui est de la question de ronanry, je vais essayer de voir ca... mais au pire il reste les sockets.
19 janv. 2003 à 12:31
19 janv. 2003 à 10:06
19 janv. 2003 à 04:01
19 janv. 2003 à 01:12