WINSOCK ENVOI MAIL FICHIERS JOINTS MULTI DESTINATAIRE
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
-
2 déc. 2003 à 09:37
phil63840 Messages postés 2 Date d'inscription mercredi 20 février 2008 Statut Membre Dernière intervention 17 avril 2009 - 17 avril 2009 à 09:17
phil63840 Messages postés 2 Date d'inscription mercredi 20 février 2008 Statut Membre Dernière intervention 17 avril 2009 - 17 avril 2009 à 09:17
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/18350-winsock-envoi-mail-fichiers-joints-multi-destinataire
https://codes-sources.commentcamarche.net/source/18350-winsock-envoi-mail-fichiers-joints-multi-destinataire
17 avril 2009 à 09:17
As-tu finalement partagé ton code POP3 qui fait bien défaut pour aller récupérer des mails et en détacher les fichiers joints ?
Encore merci.
6 nov. 2007 à 19:14
Ton programme mérite un grand chapeau merci chef c'est un bon travail, tu m'a ennormement aider surtout pour les fichier attaché j'an avait besoin des tuyeau comme ça
Encors merci chef.
Et bon courage.
30 août 2007 à 19:17
Comme tous les précédents ... Bravo pour vote Code !
Cependant je n'arrive pas à changer « Toto@nomdomaine.fr »
malgré le paramétrage !!!
Merci de vos lumières
Cordialement
Bamphi
8 août 2006 à 19:17
Merci d'avance pour l'information.
25 mai 2006 à 22:56
18 janv. 2006 à 12:57
10/10 aussi !
9 nov. 2005 à 14:13
25 oct. 2005 à 19:16
cela fait des années que tu a posté ce code, et toujours aussi aprécier.
Merci pour cette source.
je n'ai pas encore réelement lu le code, mais, l'envoie de mail se fait sans problème.
et ta phrase:
Cependant, j'ai aussi un programme qui va chercher les mails sur un serveur POP et qui détache les fichiers.
ca ne nous ferrais que du bien que tu mettes un bou de ce code. même sans les obtions. juste pour démarrer.
A+
14 juin 2005 à 15:15
qq connait la soluce pour le supprimer??
merci
14 juin 2005 à 11:27
HELP me please pas moyen de faire fonctionner ce code, il me manque la librairie
winsock, je la cherche depuis des heure en vain. J'attend une âme charitable merci.
20 avril 2005 à 17:38
11 janv. 2005 à 11:41
If nbFileAttach = 0 Then
Exit Function
End If
Sinon comment faire pour enlever le fichier vide qui est joint avec la piece jointe ?
merci
16 août 2004 à 15:32
pour commencer je tiens à dire que ton prog est plutot sympa. J'ai remodeler le tout sans interface, mais il me reste un petit soucis ... J'attache toujours un fichier lors de l'envoie du mail, ca fonctionne nickel. Par contre lorsque j'ouvre ce dernier mail, je vois deux fichiers attachés et non un ... j'ai bien mon fichier , mais j'ai aussi un fichier portant l'extension .ATT et celui-ci est vide. Il y a t'il un moyen de ne pas envoyer ce ficier vide? je ne sais pas du tout quand il est créé ....
merci d'avance ;)
Rod
17 avril 2004 à 15:11
17 avril 2004 à 00:06
J'ai tout de même une question, peut être bête , allez donc savoir...
Dans ton Module ClientSMTP, il y a une procédure SendMail et une procédure SendFile. SendFile n'est jamais appelée, dans aucun endroit du programme, puis avoir une tite explication ?
Je cherche en effet à pouvoir utiliser tes fonctions d'envoi sans interfaces. Car si je suis bien tout ce qui ce passe, SendMail fait bien tout le travail. Donc Sendfile à quoi sert - il ?
Cordialment.
29 mars 2004 à 11:55
Mais voila ce qu'il me met à la place du fichier....
------=_BaliseMIME
Content-Type: application/octet-stream;
name="Nom_du_fichier"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Nom_du_fichier"
W0dlbmVyYWxdDQoNCk5vbUV4cD1Gculk6XJpYyBS
b2RyaWd1ZXMNCk1haWxFeHA9ZnJvZHJpZ3Vlc0Bh
cmVzLmZyDQpOb21EZXN0aW49RnJlZG8NCk1haWxE
ZXN0aW49ZnJvZHJpZ3Vlc0BhcmVzLmZyDQpQaWVj
ZUpvaW50ZT0NCg==
------=_BaliseMIME
Merki Mille fois! :-o
29 mars 2004 à 11:44
Peux-tu afficher le source de ton mail quand tu le reçois (car je suppose que tu te l'ai envoyé à toi même pour tester).
Si tu as Outlook, tu click-droit sur le mail, tu fais Propiétés, onglet Détails et Source...
29 mars 2004 à 11:13
Et bien moi je n'arrives pas à le faire fonctionner!! :-(
Il envoie bien le mail mais c'est au niveau de la piece jointe qu'il y a bug....
Au lieu de m'envoyer le fichier joint, il m'envoie le codage effectué au fichier....
Est ce un problème de ma messagerie???
merki...
19 mars 2004 à 18:11
Je mettais 9,5 pour l'ensemble du pgm. Alors disons 10 pour ton code à toi, et 5 pour le module base64.bas ;-)
Alors en retestant aujourd'hui, je me suis aperçu que la correction que j'indiquais hier n'est pas bonne : elle corrigeait mon cas de test, mais je continuais à perdre un octet ou deux avec d'autres fichiers attachés, de longueurs différentes.
Donc la correction définitive, qui marche vraiment celle là, c'est remplacer :
' Add one or two bytes Base64_EOF
Select Case (cbSize - EOL_SIZE * cbLines) Mod 3
par
' Add one or two bytes Base64_EOF
Select Case (ptMax) Mod 3
En clair, pour ajouter les 1 ou 2 caractères à la fin de l'encodage, faut effectivement faire un modulo 3, mais pas avec la formule qu'il utilise. Faut simplement calculer le modulo sur la longueur de la chaine en entrée, soit la longueur du fichier à attacher. Là ça marche impec.
Pour valider, je me suis servi d'un site très pratique (http://cyrille.balland.free.fr/base64.htm), qui permet de tester l'encodage/décodage en base64 via un simple code javascript.
En tout cas, merci pour ton source.
19 mars 2004 à 00:00
"J'ai développé moi même tout le code sauf la fonction d'encodage en Base64 que j'ai repris sur ce site."
Comme quoi, j'aurais du bien testé cette fonction avant de l'insérer dans mon code...
:)
Merci pour la remarque...
18 mars 2004 à 18:42
La correction est à faire dans le module base64, dans le sub Encode64. Il faut remplacer :
cbLines = 1
par
cbLines = 0
Sinon, tout le reste marche fort bien ;-)
30 janv. 2004 à 17:51
Pose ce genre de question dans ce forum stp... c'est fait pour cela...
Je comprend que tu n'ai rien compris à mon code...
Pour faire rapide, ton problème, c'est que tu n'as pas compris ce qu'étais un dialogue Client/Serveur synchrone.
Il ne faut pas envoyer tout d'un coup au serveur SMTP... ça se fait étape par étape ou message par message si tu préfères... (en attendant un acquittement du serveur netre chaque message).
Tu envoi un premier message et tu attend la réponse du serveur qui te dit : "OK, j'ai bien reçu ton message, tu peux envoyer la suite". Alors, tu envoi un autre message au serveur et ainsi de suite...
En respectant évidemment le PROTOCOL de niveau Applicatif utilisé entre le client et le serveur.
Il faut à tout prix que tu comprennes les bases d'un dialogue client/serveur si tu veux pouvoir programmer cela...
Pour résumer :
1- Tu envoi un message correct (syntaxe) au serveur
2- Tu attend la réponse du serveur (boucle d'attente)
3- Dès que tu reçois la réponse du serveur, tu retournes au point 1.
Bon courage...
30 janv. 2004 à 01:05
En fait je cherche a attaché un fichier avec mon mail, mais je cherche en vain!!!! Voila comment se presente mon code (une partie)
Private Sub Winsock1_Connect()
Dim DataFile As String
DataFile = UUEncodeFile("C:\test.txt")
' La connection est etablie on envoie maintenant les données
Dim Send(1 To 9) As String
' Les donnees a envoyer
Send(1) = "HELO " & "smtp.wanadoo.fr" & vbCrLf
Send(2) = "MAIL FROM:" & "<" & "jean-philippe@wanadoo.fr" & " > " & vbCrLf
Send(3) = "RCPT TO:" & "<" & "pcpunch59@hotmail.com" & ">" & vbCrLf
Send(4) = "DATA" & vbCrLf
Send(5) = "from: " & Chr$(34) & "jean-philippe@wanadoo.fr" & Chr$(34) & "<" & "jeanphi" & ">" & vbCrLf
Send(6) = "to: " & "<" & "pcpunch59@hotmail.com" & ">" & vbCrLf
Send(7) = "subject: " & "Test messagerie" & vbCrLf & vbCrLf
Send(8) = "Message" & vbCrLf & vbCrLf & "." & vbCrLf
Send(9) = "QUIT"
' maintenant on les envoie en verifiant qu'il n'y a pas d'erreur
On Error GoTo Erreur
For x = 1 To 9
Winsock1.SendData Send(x)
Me.Print x
DoEvents
Next x
Winsock1.Close
MsgBox "Envoi effectué avec succès!"
Exit Sub
Erreur: MsgBox "erreur"
Exit Sub
End Sub
On ma filer une fonction UUEncodeFile pour envoyer mon fichier dans la partie data, mais rien ne marche alors si qq peu ma'aider
28 janv. 2004 à 18:40
13 déc. 2003 à 12:28
9 déc. 2003 à 11:13
4 déc. 2003 à 13:27
En tous cas merci pour les commentaires... j'espère que ce code vous servira et que vous pourrez l'utiliser dans vos projets.
Mon code n'est pas très optimisé et clean au niveau de la partie client SMTP mais je l'améliorerais quand j'aurais le temps...
4 déc. 2003 à 13:16
Pfouuuu, superbe travail! Ton code, même si je n'ai pas terminé de l'étudier à l'air de fonctionner à merveil, avec une interface bie travaillée!
Félicitation, car tu (à ma connaissance) es le premier a fournir les sources d'un client si complet sur le site (SMTP + MIME)!
ça mérite un 20/10, mais y pô alors t'auras que 10/10!
3 déc. 2003 à 09:57
Tu peux faire autant de changements que tu veux. Si j'ai mis mon code sur le site, c'est pour qu'il soit utiliser par des programmeurs dans leur propre travaux.
Par simple curiosité, je voudrais bien que tu m'envois les sources quand tu auras finis...
Merci de l'avoir demandé...
3 déc. 2003 à 01:18
2 déc. 2003 à 22:06
Si oui ... donne moi un mail ou je puisse te les envoyer ...
Bonne soirée !
Et encore merci !
2 déc. 2003 à 21:26
;)
2 déc. 2003 à 20:31
2 déc. 2003 à 19:51
Ensuite, envoi toi un mail avec Outlook et ouvre le dans son format brut et compare les 2 mails (celui envoyé par mon prog et celui envoyé par outlook) dans la partiee du "from:"...
C'est un problème que tu peux aisément résoudre tout seul...
Je pense que c'est un problème de double quotes... """"""
;) ou alors d'encodage du message... utilise ma fonction formatMIME pour cette String pour voir si ça marche...
A+
2 déc. 2003 à 19:24
??? j'ai du mal a comprendre .. ?
2 déc. 2003 à 18:57
2 déc. 2003 à 18:49
Si tu veux faire un soft comme Outllook, il faut rajouter des fonctionnalités, comme par exemple une boite de reception, une boite d'envoi (pour envoyer plusieurs mails différents en même temps au serveur SMTP.....).
Mon prog POP est terminé, mais c'es un prog que j'ai développé pour une appli commercial et je dois le détacher de mon appli... et le retravailler un peu pour enlever quelques petites fonctionnalités interressantes... j'ai fais pareil pour mon prog SMTP (j'ai pas envie de me faire piquer mon travail en le mettant en open source)... ;)
Je mettrais le programme POP quand j'aurais plus de temps...
2 déc. 2003 à 18:40
merci...
:]
2 déc. 2003 à 18:39
2 déc. 2003 à 18:38
:p
2 déc. 2003 à 18:35
lol ;)
2 déc. 2003 à 18:32
Je viens de trouver ... je croyais que tu m'avais di de le placer entre les <> alos qu'il falait le placer entre le form: et le premier <...
Merci pour tes explications .
J'attends avec hate ton prog qui va cherche sur les serveurs pop !
2 déc. 2003 à 18:22
Comme j'ai l'impression que mes explications ne sont pas calires ... et qu'un dessin vaut parfois mieux que de long discours ... j'ai fait un peit montage pour te faire voir de quoi je parle .. :(Lien ci joint ) :
http://vbfrance.com/forum.v2.aspx?ID=163471
2 déc. 2003 à 18:04
"Yann Programmeur amateur" dans la présentaion du mail et pas "Yann Programmeur amateur <Yann@haoo.fr>" vois tu ce que je veux dire ?
2 déc. 2003 à 17:08
d'abord, regarde comment est faite la structure d'un mail en ouvrant un mail au format brut. c'est très instructif...
Pour ajouter ce que tu veux, il faut ajouter cela au niveau DATA du protocol SMTP.
Dans la procédure ProcessDataArrivalSMTP
Dans le Case 4
Tu as :
fMainForm.WinsockMail.SendData "From: <" + strExpediteurMail + ">" + vbCrLf
DoEvents
Tu ajuste à rajouter "Yann Programmeur amateur" après le "From:" et entre doubles quotes.
Un truc du genre :
Dim strExpediteurName as String
strExpediteurName = """"+"Yann Programmeur amateur"+""""
Et tu remplaces la ligne de code par celle ci :
fMainForm.WinsockMail.SendData "From: " + strExpediteurName + "<" + strExpediteurMail + ">" + vbCrLf
DoEvents
Tiens moi au courant en cas de problème...
2 déc. 2003 à 17:00
2 déc. 2003 à 16:50
2 déc. 2003 à 15:47
- l'adresse du sereur SMTP
- ton adresse mail
- cocher une case si tu veux recevoir une copie des mails envoyés
Je mettrais mon prog POP un peu plus tard car je n'ai pas le temps pour le moment...
2 déc. 2003 à 15:34
2 déc. 2003 à 15:31
je te mets 10/10 ... et un peu plus si tu me dis comment changer le nom de l'envoyeur ... ton programme met d'office "toto@mondomaine.fr"... ou changer cette valeur ? quelle ligne de commande changer dans ton prog pour choisir quel expéditeur mettre ?
2 déc. 2003 à 10:16
Ce prog sert à voir comment faire pour créer un client Messagerie en VB (qui envoi uniquement des mails) en utilisant uniquement le control Winsock.
Cependant, j'ai aussi un programme qui va chercher les mails sur un serveur POP et qui détache les fichiers.
Et surtout, ce code sert à montrer comment envoyer un mail avec des fichiers joints car aucun code ne fait ça sur le site et on m'a beaucoup demandé mon code quand j'en ai parlé...
2 déc. 2003 à 09:37