WINSOCK ENVOI MAIL FICHIERS JOINTS MULTI DESTINATAIRE

Commentaire de jockos le 02/12/2003 10:16:13

arf... ^^
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é...

Commentaire de yannn le 02/12/2003 15:34:41

Encore une petite chose ... pourrais tu mettre ton autre prog qui va chercher les mail sur serveur POP ? merci .

Commentaire de yannn le 02/12/2003 16:50:29

Encore une petite chose ... pourrais tu mettre ton autre prog qui va chercher les mail sur serveur POP ? merci .

Commentaire de jockos le 02/12/2003 17:08:20

arf... ok...
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...

Commentaire de yannn le 02/12/2003 18:22:07

Salut Jockos ...
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

Commentaire de jockos le 02/12/2003 18:35:18

tu n'as même pas noté mon code... snif... :' yu m'avais pourtant promis un 10... snif... :(
lol ;)

Commentaire de yannn le 02/12/2003 18:39:44

Tu pourras le mettre qd ton code POP ? J'en ai vraiment ras le bol de ce outlook !!!

Commentaire de jockos le 02/12/2003 18:49:32

Mes softs ne remplasseront jamais un soft de la qualité de Outlook, c'est juste de l'open source pour faire profiter mon code aux autres programmeurs...
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...

Commentaire de yannn le 02/12/2003 19:24:20

En fait ... si j'ai une question : Pourquoi ton programme n'envoie pas ce qu'il y a dans les  () ? exemple : "Yann (Programmeur amateur)<Yann@haoo.fr>" ... donne : Yann
??? j'ai du mal a comprendre .. ?

Commentaire de yannn le 02/12/2003 20:31:23

Encore une fois tu avais raison !!!

Commentaire de yannn le 02/12/2003 22:06:18

Je souhaite faire quelques changement ... Oh ... rassures toi rien de tres mechant ... souhaites tu que je t'envoie les sources une fois que je les aurais modifiées ?
Si oui ... donne moi un mail ou je puisse te les envoyer ...
Bonne soirée !
Et encore merci !

Commentaire de jockos le 03/12/2003 09:57:34

lol... ;p

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

Commentaire de jockos le 04/12/2003 13:27:13

Attend de voir le client POP que je vais mettre bientôt sur le site... ;) (bon, j'arrête sinon j'ai les chevilles qui vont enfler... ;p)
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...

Commentaire de Romu34 le 13/12/2003 12:28:12

Super ! Beau travail : 10/10 et Merci ;-)

Commentaire de pcpunch le 30/01/2004 01:05:02

Slt bon ton code est trés bien, mm trop bien pour moi car j'y pige que dalle lol

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

Commentaire de swaynee le 18/03/2004 18:42:27

Alors moi je ne mettrais que 9,5 sur 10, car il y a un petit bug avec l'envoi des fichiers attachés. L'encodage en base 64 a un bug, qui fait que à l'arrivée, le fichier joint perd un ou deux octets, dans 25% des cas, c'est selon la taille du fichier au départ. Et ça peut être très ennuyeux si c'est un fichier zip attaché, car il pourra donc être corrompu à l'arrivée.

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 ;-)

Commentaire de swaynee le 19/03/2004 18:11:32

J'avais bien lu ton commentaire, ainsi que l'entete du module ;-)

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.

Commentaire de jockos le 29/03/2004 11:44:11

Certainement un problème au niveau des balises de délimitage "Boundary".

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

Commentaire de COlive le 17/04/2004 00:06:39

Salut ! Ton code est tres bien foutu, et tres bien commenter.
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.

Commentaire de Silenzer le 16/08/2004 15:32:02

salut !

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

Commentaire de mejdi1 le 20/04/2005 17:38:14

avoir les codes

Commentaire de manuds le 14/06/2005 15:15:56

salut bon code mais j'ai un pb : j'ai toujour un fichier txtx attxxxxxx.txt avec mes piece jointe...
qq connait la soluce pour le supprimer??
merci

Commentaire de Tyrouk le 09/11/2005 14:13:06

10/10 : code super clair, un plaisir à lire merci ! Sa va me faire gagner énormément de temps pour faire mon appli.

Commentaire de Cobaille69 le 25/05/2006 22:56:45

lol, la librairie Winsock se dl sur microsoft.com je crois sinon très facilement sur google.

Commentaire de bamphi le 30/08/2007 19:17:52

Bonjour,

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