ENVOYER ET RECEVOIR DES MAILS AVEC PIÈCES JOINTES ET UNIQUEMENT AVEC WINSOCK...
cs_Jielde
Messages postés
226
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
1 décembre 2010
-
30 août 2005 à 06:22
yan35 Messages postés 185 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 20 juin 2013 - 6 janv. 2010 à 01:29
yan35 Messages postés 185 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 20 juin 2013 - 6 janv. 2010 à 01:29
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/33521-envoyer-et-recevoir-des-mails-avec-pieces-jointes-et-uniquement-avec-winsock
https://codes-sources.commentcamarche.net/source/33521-envoyer-et-recevoir-des-mails-avec-pieces-jointes-et-uniquement-avec-winsock
6 janv. 2010 à 01:29
J'aimerais bien testé dans ce code l'envoi d'un mail, mais je n'y parviens pas, j'obtiens toujours Auth.dll introuvable. Pourtant elle figure bien dans le dossier de l'application ! A tout hasard je l'ai aussi copiée dans w\system32. J'ai aussi téléchargé libeay32.dll et libssl.dll que j'ai placées dans le répertoire de l'appli. Quelque chose m'échappe ! Merci de me dire comment faire pour tester complètement ce code qui me paraît au demeurant Super puissant, car déjà il gère le smtp-auth et le HTML, c'est super !
Alors comment faire avec Auth.dll ?
Cordialement
15 août 2009 à 15:38
14 nov. 2007 à 19:25
C'est quand j'ai un e-mail provenant d'un robot que Outlook lit très bien mais pas ta classe MIME
Le fichier attacher est un petit csv sauvegarder en octect/binary
Regarde ce .eml
Sauve ce texte dans un .eml et ouvre le avec ton code ..
J'aimerais être capable de trouver mais je ne suis pas le meilleur dans les parser ..surtout que c'est pas moi qui l'ai fait
Alors si tu peux m'aider a trouver pourquoi ..
Juste ca serais le top des top ..
Received: from HOSEXCHMB02.ho.mail.com ([10.1.1.41]) by HOSEXCHMB01.ho.mail.com with Microsoft SMTPSVC(6.0.3790.3959);
Wed, 14 Nov 2007 07:11:52 -0500
Received: from hosrelay1.ho.mail.com ([10.51.1.40]) by HOSEXCHMB02.ho.mail.com with Microsoft SMTPSVC(6.0.3790.3959);
Wed, 14 Nov 2007 07:11:52 -0500
Received: from ([165.130.204.248])
by bridget.magasinhardware.com with ESMTP id KP-BRCFH.32276701;
Wed, 14 Nov 2007 07:11:23 -0500
Received: from cphpta28.magasinhardware.com ([165.130.232.221]) by CPWIEX24 with Microsoft SMTPSVC(6.0.3790.3959);
Wed, 14 Nov 2007 07:10:40 -0500
Received: from cphpta28 (netops@localhost [127.0.0.1])
by cphpta28.magasinhardware.com (8.9.3 (PHNE_29773)/8.8.6) with SMTP id HAA02896
for hdreports@ll.mail.com; Wed, 14 Nov 2007 07:10:28 -0500 (EST)
Date: Wed, 14 Nov 2007 07:10:28 -0500 (EST)
From: dc_support@magasinhardware.com
Message-Id: <200711141210.HAA02896@cphpta28.magasinhardware.com>
Subject: LUMBER LICENSE TAG SUMM. SPREADSHEET 5797
Reply-To: dc_support@magasinhardware.com
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="VGhpcyBpcyBuZXR3b3JrIHByb2R1Y3Rpb24g"
Bcc:
Return-Path: dc_support@magasinhardware.com
X-OriginalArrivalTime: 14 Nov 2007 12:10:40.0713 (UTC) FILETIME=[5FBCAB90:01C826B7]
X-TM-AS-Product-Ver: SMEX-7.0.0.1499-5.0.1023-15544.003
X-TM-AS-Result: No--13.403800-8.000000-31
--VGhpcyBpcyBuZXR3b3JrIHByb2R1Y3Rpb24g
Content-Type: octet/binary; name="DAAa09392.csv"
Content-Transfer-Encoding: base64
RE9SNjM1LCxMSUNFTlNFIFRBRyBTVU1NQVJZIFJFUE9SVCwsLCwsLCwsLCxEQVRFOiAxMS8xNC8w
NywNCkRDICM1Nzk3LCxDT05TSUdOTUVOVCBBTkQgTk9OLUNPTlNJR05NRU5ULCwsLCwsLCwsLFRJ
TUU6IDA3OjAzOjQ0LA0KDQosDQoNCkRFUFQ6ICAgICAgMjEsLCwsLCwsLCwsQ1VSIFdLLENVUiBX
SyxQUkVWIFdLLA0KLCwsLCwsVEFHUyxUQUdTLE9ILE9ILFNIUEQsU0hQRCxTSFBELA0KU1RBVFVT
LFNLVSxERVNDUklQVElPTixWRU5ET1IsLENPTlMsTUlOLE1BWCxUQUdTLFBJRUNFUyxUQUdTLFBJ
RUNFUyxQSUVDRVMsSCBXT1MsDQogLCAzNjEtMDE4LE1BR0FTSU4gUEFORUxTIDInWDInICAgICAg
ICAgICw3Mjg0NCAsTUFHQVNJTiBDT05TSUdOTSAsWSwgICAxMiwgICAzNiwgICAyOCwgICAzMzYw
LCAgICA3LCAgICA4NDAsICAgMTA4MCwgMi43NSwNCiAsIDM2Mi02NzEsTEVWRUxJTkcgS0lUUyAg
ICAgICAgICAgICAgICAgLDcyODQ0ICxNQUdBU0lOIENPTlNJR05NICxZLCAgICA0LCAgIDEyLCAg
IDIyLCAgICAyNjQsICAgIDEsICAgICAxMiwgICAgIDEyLDIyLjAwLA0KVE9UQUxTOiwsLCwsLCws
ICAgNTAsICAgMzYyNCwgICAgOCwgICAgODUyLA0KDQpOT1RFOiBXT1MgQ09MVU1OID0gKioqKiog
SU5ESUNBVEVTIElUIFdBUyBOT1QgQUJMRSBUTyBCRSBDQUxDVUxBVEVELiwNClMgLSBTZWFzb25h
bCAgTyAtIE91dCBPZiBTZWFzb24gIEkgLSBJbmFjdGl2ZSAgQyAtIENsZWFyYW5jZSAgRCAtIERl
bGV0ZSAsDQogDQo=
--VGhpcyBpcyBuZXR3b3JrIHByb2R1Y3Rpb24g--
3 oct. 2006 à 20:45
it should be corrected now...
ShareVB
26 sept. 2006 à 16:34
Message subject with special char: (!"£$%&/()=?^)[èòàùì]
the Function Demangler goes in error, try it.
bubu five
bfive@email.it
7 sept. 2006 à 20:22
ShareVB
7 sept. 2006 à 18:08
7 sept. 2006 à 17:02
>je vais ajouter de: et à: pour reception et à: pour send
>Send this mail : SMTP normal sans AUTH ?
ShareVB
7 sept. 2006 à 16:44
C'est toujours ce que je fais.
> New message : une erreur c'est vaste : VB dit quoi ? et que contient buffFileName ?
En fait c'est une erreur de compilation qui s'arrête sur "WBPreview.Navigate buffFileName", chez moi le picturebox WBPreview n'accepte pas la méthode Navigate. Ton picturebox est sur quel composant (nom et version)?
> To send/view : pour l'instant c'est normal : view = afficher pas modifier...
Je sais mais en fait chez toi il s'agit d'un view de la boite d'envoi d'où la modification devrait être possible.
> liste des messages : tous les messages de tous les comptes sont mélangés
Super, si tu pouvais afficher les colonnes Nom fichier, De, Cc, envoyé à ou nom compte, sujet, taille, date et permettre un tri par clic sur l'entête de colonne ce serait déjà pas mal.
> Send this mail : qu'est ce qui est incrit dans la barre de status en bas de la fenêtre principale
Rien
7 sept. 2006 à 16:20
> le mieux est d'ouvrir le .vbp en double cliquant dessus que d'ouvrir par fichier/ouvrir de VB
> New message : une erreur c'est vaste : VB dit quoi ? et que contient buffFileName ?
> Send this mail : qu'est ce qui est incrit dans la barre de status en bas de la fenêtre principale
> To send/view : pour l'instant c'est normal : view = afficher pas modifier...
> Comptes : je peux désactiver la fonctionnalité de "calcul" du nom utilisateur POP3...
> liste des messages : tous les messages de tous les comptes sont mélangés
pour le reste effectivement bug
ShareVB
7 sept. 2006 à 15:02
Au premier démarrage j'avais ce message "..%windows%\systems32\ieframe.dll\1 introuvable". Par la suite j'ai ajouté Call SetCurrentDirectory(App.Path) pour les dll extrait dans le dossier du projet.
New Message : un clic sur l'onglet preview renvoit une erreur de compilation renvoyant à la ligne "WBPreview.Navigate buffFileName" de la private Sub LoadTempFile()
To send/Send this mail : renvoie le message "Failed to send the mail!". Je peux te rassurer les paramètres sont bon, j'ai outlook sur mon poste et tout marche bien, d'ailleurs la reception marche.
To send/view : l'ajout/suppression de pièces jointes est désactivée.
Received All: Lorsque que le mot de passe est incorrect il n'affiche pas automatiquement la fenêtre de modif du pwd sauf à la seconde tentaive.
Comptes: A mon avis il faudra prévoir un champ pour le nom du compte à la création, le principe que tu as developpé est défaillant pour les domaines ou le champ Name/POP3 est de la forme nomcompteutiliateur@domaine.com, cas de ifrance par exemple.
La version est restée 1.0.0, moi j'opte pour 6.9.7 (année.mois.jour) qui est plus significatif pour moi la date de la mise à jour.
D'autre part il n'ya endroit où on précise le compte par défaut celui qui est visualiser par le form principal.
Ce serait également interessant de consulter la liste des mails reçus de tous les comptes (Nom fichier, De, Cc, envoyé à ou nom compte, sujet, taille, date) avec possibilité de faire des tris en cliquant sur les entêtes. Cette visualisation devra permettre de supprimer/copier/transférer un mail.
Il s'agit d'un mini serveur de mails certe mais avec ce que tu as déjà fais tu n'es pas loin des ajouts que je propose.
J'utilise un client de messagerie gratuit sur internet MERCURY (http://www.pmail.com), il est très simple et il pourrait te donner des idées.
Tous mes encouragements, je reste preneur de toutes les maj.
Amicalement,
7 sept. 2006 à 11:59
voilà une série de grosses mises à jour comprennant : SMTP AUTH (4 méthodes), SSL/TLS...notification, priorité...et des bugs corrigés...
ShareVB
5 mai 2006 à 08:57
merci
5 mai 2006 à 08:53
4 mai 2006 à 18:15
ben non, justement c'est un client de messagerie autonome (à part les dlls de VB6)...docn c'est un Outlook LIKE...
ShareVB
4 mai 2006 à 12:34
il faut utiliser obligatoirement outlook?
merci du renseignement.
31 janv. 2006 à 15:17
If UBound(subparts) = 2 Then ligne 189
en bien sûr il faudrait je pense définir un objet body3 as cmailbody... au préalable.
Sinon les messages avec plusieures frontières ne sont pas correctement lus.
27 janv. 2006 à 12:38
le code suivant à l'air de résoudre partiellemnt le problème.
If Not mvarMailPlain Is Nothing Then
' si le message comporte plusieurs text/plain il faut les aglomérer
' pour avoir le message complet
mvarMailPlain.Content = mvarMailPlain.Content & body.Content
Else
Set mvarMailPlain = body
End If
Toujour pas tenter par l'implémentation d'une authentification MD5 ou autres ?
6 déc. 2005 à 07:59
20 nov. 2005 à 16:05
Malheureusement, cela bug chez moi au niveau du module CAccounts dans la procédure suivante:
Public Sub EnumAccounts()
Dim szFile As String, Account As CAccount
Dim hFind As Long, lpFindData As WIN32_FIND_DATA
hFind = FindFirstFile(App.Path & "\*.acc", lpFindData)
If hFind = -1 Then Exit Sub
szFile = Trim$(lpFindData.cFileName)
Do While Err.LastDllError <> ERROR_NO_MORE_FILES
Set Account = New CAccount
Account.LoadAccount App.Path & "" & szFile
'=>ICI, la boucle reste bloquée sur le dernier fichier,
'dès lors, erreur de clé déjà existante sur la ligne de code suivante:
mCol.Add Account, Account.Email
hFind = FindNextFile(hFind, lpFindData)
szFile = Trim$(lpFindData.cFileName)
Loop
FindClose hFind
End Sub
19 nov. 2005 à 12:29
pour répondre à tout le monde :
PROGRAMMIX> la gestion de compte est ajoutée...
OscarOscar> j'ai changer la fonction qui génère attachement; filename pour quelle face le folding spécialement...
Delbeke> je ne prends pas la première partie du split car elle contient "This mail is a mime mail." ou simplement un vbCrlf...je ne gère pas la récurrence des multipart car ca me ferrais des références circulaires (la classe dépendrait d'elle-même) que VB n'aime pas...mais je pense que plus d'un multipart est un mail peu courant...
ShareVB
18 nov. 2005 à 17:36
La gestion des body-multiparts n'est pas récurente. (voir la variable body2 dans la classe CMail)
Tu teste si les sous parties sont au nombre de trois.
si oui tu traite les partie 2 et 3. (je ne comprends pas pourqoui tu laisse tomber la partie 1). Si non tu considere qu'il s'agit de pieces jointes.
evidemment mon fichier test n'en comporte que deux et ce ne sont pas des pieces jointes mais du Text/Plain et Text/Html.
En fait, peut etre n'ai-je pas tout compris, mais il me semble qu'un multipart peut lui même etre un multipart, d'ou recurence.
De toute façon, merci pour ce code, je me regale à le decortiquer.
18 nov. 2005 à 17:01
Je vais passer du temps à comprendre toutes les subtilités, mais déjà je peux voir que c'est un code génial, surtout la partie Parser
Pour moi ca vaut 20/10, parce que je vais apprendre pleins de trucs :)
9 nov. 2005 à 09:50
D'avance un grand merci...
Et c'est comment Linux ? Ca vaut le détour ?
Est-ce de la programmation que tu y fais ?
Histoire de sortir du contexte VB.
N'y connaissant rien en Linux, est-il possible de trouver un LiveCD capable de faire le relever des caractéristiques d'une machine et de l'exporter automatiquement dans un fichier txt (sur disquette par exemple) ; un truc à la AIDA32 ou Everest, mais sans Windows ?
8 nov. 2005 à 22:35
je vais bien tot corriger ça mais pour l'instant je ne suis plus que sous Linux donc pas facile...
ShareVB
8 nov. 2005 à 20:51
4 nov. 2005 à 22:55
ReDim data(LOF(iFileNum)-1)
devrait plutôt s'écrire
ReDim data(LOF(iFileNum))
sinon les pièces jointes sont tromquées et certaines ne sont plus lisibles dans certains clients comme OE.
D'autre part un zip à jour serait le bien venu
Mais c'est un beau travail dont je vais me servir
4 nov. 2005 à 10:16
3 nov. 2005 à 23:04
Mais il y a un chose qui n'intrigue avec les pièces jointes Outlook Express comme client n'arrive pas à les lire correctement ? Je n'ai pas eu le temps de chercher le pourquoi du comment mais si qqq à une piste...
18 oct. 2005 à 15:42
J'en avais un qui utilisait l'OCX MSMAPI32 mais bizarrement ce composant devient obsolète sur certains ordis de mes clients... (???)
Je vais de ce pas regarder ta source et voir si je peux m'en inspirer ;-)
5 sept. 2005 à 18:48
Je pourrais ainsi relever plus rapidement mes différents mails.
A+
5 sept. 2005 à 18:25
toutes les classes qui ne commencent pas par C sont des classes générées par le "générateur de classes" pour implémenter les collections...donc sans fonctionnalité "mail"...
le logiciel stocke les infos sur le serveur dans la base de registre avec SetSettings...effectivement, je pourrais voir à adapter mon code pour gérer des comptes...
effectivement, je me suis mis à faire le logiciel en anglais sans vraiment savoir pourquoi lol...
ShareVB
5 sept. 2005 à 11:19
5 sept. 2005 à 11:17
Seulement par manque de temps, je n'ai pas épluché le code ; je crains d'ailleurs de m'y casser les dents avec toutes ces classes.
Dès lors, puis-je te demander où sont enregistrer les informations sur le serveur à interroger ? Base de registre ?
Pourrais-tu modifier le code afin de permettre l'interrogation de plusieurs comptes à la fois (style: mon serveur d'avant l'adsl et celui de l'adsl) ?
Et tant qu'à faire, pourrais-tu "FRANCISER" les menus (VBFrance tout de même!) ; si tu tiens tant à utiliser l'anglais, ce serait bien d'y ajouter le code nécessaire pour permettre à l'utilisateur de choisir la langue qu'il préfère...
1 sept. 2005 à 17:36
je ne me suis servi que des RFCs et d'exemples de mails de Outlook:
2821 (SMTP), 1939 (POP3)
2822, 2076 (Mail)
2045, 2046, 2047, 2048, 2049, 2183 (MIME)
pour la génération des classes : le générateur de classes
pour WinSock : MSDN...
ShareVB
1 sept. 2005 à 16:48
Je trouve cela impressionnant parce que c'est du code que je n'ai
encore jamais vu, ni utilisé mais Visual Basic est tellement vaste!
Une question... t'es-tu servi d'un ouvrage (et lequel) ??
Attention à Bill...
1 sept. 2005 à 10:38
mea culpa, le problème ne vient pas de la lecture mais de l'écriture de mails texte ou HTML avec attachment...personnellement je ne trouve pas que ca vaille 1/10...mais enfin, c'est l'avis de l'auteur...
ShareVB
1 sept. 2005 à 09:23
si szMail = "test" dans Parse de CMail, alors ce n'est pas un mail valide puisqu'il n'y a pas d'entête ???
1 sept. 2005 à 05:20
j'ai changer sa par :
szHeaders = Mid$(szMail, 1, pos - 1)
par :
szHeaders = Mid$(szMail, 1, Len(szMail))
et sa marche très bien, aussi bien les piece jointe que sans piece jointe.
1 sept. 2005 à 05:17
pos = 0
1 sept. 2005 à 05:16
'----------------------------------------------
Erreur d'exécution '5':
Argument ou appel de procédure incorrect
'----------------------------------------------
sur la ligne : szHeaders = Mid$(szMail, 1, pos - 1)
31 août 2005 à 15:12
pour l'attachement pour moi il ne marche pas?
30 août 2005 à 10:53
Asimengo
30 août 2005 à 06:22