Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Reception de mail avec piece joint

Reception de mail avec piece joint

18 réponses
Avatar
Marc
Bonjour,

avez vous un source pour recevoir des mails avec pièce jointe ??

dans VB6

Par avance merci.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jean-marc
Marc wrote:
Bonjour,

avez vous un source pour recevoir des mails avec pièce jointe ??

dans VB6

Par avance merci.



Hello,

il y a un bout de code ici qui est supposé faire cela:
http://www.vbfrance.com/codes/RECUPERE-AUTOMITIQUEMENT-PIECE-JOINTE-MAIL-SOUS-OUTLOOK_2875.aspx

Pas testé, pas sur du tout que ça fonctionne. Mais ça te donne
de bonnes pistes pour faire un boulot bien propre.

Autre solution: implémenter bien proprement POP3 et MIME:
http://abcdrfc.free.fr/rfc-vf/rfc1939.html

http://www.mhonarc.org/~ehood/MIME/
http://www.faqs.org/rfcs/rfc1521.html

Tu auras besoin de décoder du base64:
http://www.freevbcode.com/ShowCode.asp?ID 38

Bonne prog!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Marc
merci avec retard pour les infos

"Jean-marc" a écrit dans le message
de news: er2ema$tj3$
Marc wrote:
Bonjour,

avez vous un source pour recevoir des mails avec pièce jointe ??

dans VB6

Par avance merci.



Hello,

il y a un bout de code ici qui est supposé faire cela:
http://www.vbfrance.com/codes/RECUPERE-AUTOMITIQUEMENT-PIECE-JOINTE-MAIL-SOUS-OUTLOOK_2875.aspx

Pas testé, pas sur du tout que ça fonctionne. Mais ça te donne
de bonnes pistes pour faire un boulot bien propre.

Autre solution: implémenter bien proprement POP3 et MIME:
http://abcdrfc.free.fr/rfc-vf/rfc1939.html

http://www.mhonarc.org/~ehood/MIME/
http://www.faqs.org/rfcs/rfc1521.html

Tu auras besoin de décoder du base64:
http://www.freevbcode.com/ShowCode.asp?ID 38

Bonne prog!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




Avatar
Jean-marc
Marc wrote:
merci avec retard pour les infos



Merci du retour, même tardif :-)


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Marc
En fait,

ne pouvant attendre j'ai finit par trouver quelques indications qui m'ont
permis de faire mon travail.

En revanche, maintenant je cherche un source d'exemple pour afficher de
l'html.

C'est à dire, je doit afficher un mail contenant de l'html, émetteur est
configuré avec les options suivantes: format message html et signature.

Encore merci pour les infos car j'y ai jeter un coup d'oeil et j'ai encore
appris des choses sur le sujet.

Marc

"Jean-marc" a écrit dans le message
de news: 45f09844$0$2956$
Marc wrote:
merci avec retard pour les infos



Merci du retour, même tardif :-)


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




Avatar
Jean-marc
Marc wrote:
En fait,

ne pouvant attendre j'ai finit par trouver quelques indications qui
m'ont permis de faire mon travail.

En revanche, maintenant je cherche un source d'exemple pour afficher
de l'html.

C'est à dire, je doit afficher un mail contenant de l'html, émetteur
est configuré avec les options suivantes: format message html et
signature.
Encore merci pour les infos car j'y ai jeter un coup d'oeil et j'ai
encore appris des choses sur le sujet.



Hello,

Rien de plus simple :-)

Il te suffit d'ajouter à ton projet le composant "Microsft Internet
Controls".
Puis tu places sur ta feuille ce composant (c'est un Webbrowser).

Il ne te reste plus qu'à mettre l'html que tu souhaites afficher
dans un fichier temporaire et à utiliser la méthode "Navigate2" de
l'objet Webbrowser.

Voici un tout petit exemple qui fonctionne:

Private Sub Command1_Click()
Dim html As String
Dim htmlFile As String
Dim f As Integer


html = "<html><body>Hello world!</body></httml>"
htmlFile = App.Path & "myfile.html"

f = FreeFile
Open htmlFile For Output As #f
Print #f, html
Close #f

WebBrowser1.Navigate2 (htmlFile)
End Sub

Bonne prog!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Marc
ok
merci je met ça en place
encore merci

"Jean-marc" a écrit dans le message
de news: 45f1a435$0$2938$
Marc wrote:
En fait,

ne pouvant attendre j'ai finit par trouver quelques indications qui
m'ont permis de faire mon travail.

En revanche, maintenant je cherche un source d'exemple pour afficher
de l'html.

C'est à dire, je doit afficher un mail contenant de l'html, émetteur
est configuré avec les options suivantes: format message html et
signature.
Encore merci pour les infos car j'y ai jeter un coup d'oeil et j'ai
encore appris des choses sur le sujet.



Hello,

Rien de plus simple :-)

Il te suffit d'ajouter à ton projet le composant "Microsft Internet
Controls".
Puis tu places sur ta feuille ce composant (c'est un Webbrowser).

Il ne te reste plus qu'à mettre l'html que tu souhaites afficher
dans un fichier temporaire et à utiliser la méthode "Navigate2" de
l'objet Webbrowser.

Voici un tout petit exemple qui fonctionne:

Private Sub Command1_Click()
Dim html As String
Dim htmlFile As String
Dim f As Integer


html = "<html><body>Hello world!</body></httml>"
htmlFile = App.Path & "myfile.html"

f = FreeFile
Open htmlFile For Output As #f
Print #f, html
Close #f

WebBrowser1.Navigate2 (htmlFile)
End Sub

Bonne prog!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




Avatar
Marc
Re bonjour,

Ça ne marche pas je ne comprend pas il m'affiche une page d'une autre
couleur, les tailles ne sont pas prisent en compte etc ...

A priori il interprète le html mais pas complètement.

Que faire ?

Par avance merci

"Marc" a écrit dans le message de news:

ok
merci je met ça en place
encore merci

"Jean-marc" a écrit dans le
message de news: 45f1a435$0$2938$
Marc wrote:
En fait,

ne pouvant attendre j'ai finit par trouver quelques indications qui
m'ont permis de faire mon travail.

En revanche, maintenant je cherche un source d'exemple pour afficher
de l'html.

C'est à dire, je doit afficher un mail contenant de l'html, émetteur
est configuré avec les options suivantes: format message html et
signature.
Encore merci pour les infos car j'y ai jeter un coup d'oeil et j'ai
encore appris des choses sur le sujet.



Hello,

Rien de plus simple :-)

Il te suffit d'ajouter à ton projet le composant "Microsft Internet
Controls".
Puis tu places sur ta feuille ce composant (c'est un Webbrowser).

Il ne te reste plus qu'à mettre l'html que tu souhaites afficher
dans un fichier temporaire et à utiliser la méthode "Navigate2" de
l'objet Webbrowser.

Voici un tout petit exemple qui fonctionne:

Private Sub Command1_Click()
Dim html As String
Dim htmlFile As String
Dim f As Integer


html = "<html><body>Hello world!</body></httml>"
htmlFile = App.Path & "myfile.html"

f = FreeFile
Open htmlFile For Output As #f
Print #f, html
Close #f

WebBrowser1.Navigate2 (htmlFile)
End Sub

Bonne prog!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/








Avatar
Marc
Re bonjour,

voici un exepmple de html que je recoi par mail.
sur microsoft outlook il n'y a aucun problème.

En revanche quant je le met dans un fichier html et l'ouvre avec webbroser
c'est n'importe quoi

avez vous une idée ?


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16414" name=GENERATOR>
<STYLE>
v:* {behavior:url (#default#vml);}
</STYLE>

<STYLE>v:* {
BEHAVIOR: url (#default#vml)
}
</STYLE>
<!--IncrdiXMLRemarkStart>
<IncrdiX-Info>
<X-FID>C03433F9-52F4-46EA-946C-214A71DAF2AB</X-FID>
<X-FVER>4,000000</X-FVER>
<X-FIT>Letter</X-FIT>
<X-FILE>Letterlight_brown.imf</X-FILE>
<X-FCOL>Elegant</X-FCOL>
<X-FCAT>Stationery</X-FCAT>
<X-FDIS>Light Brown</X-FDIS>
<X-Extensions>SU1CTDEsNDYsgUmBSTSBlYmVlTjFTY2ROIlNiZksJE3FiZk0TZGFiSSdhSg kOJEkMEmBSYFJgSxJTUJMMiwwLCxJTUJMMywwLCw=</X-Extensions>
<X-BG>cid:629DC4FB-6422-48CF-A29E-C6942FE3A3B4</X-BG>
<X-BGT>repeat</X-BGT>
<X-BGC>#edd6ad</X-BGC>
<X-BGPX>left</X-BGPX>
<X-BGPY>top</X-BGPY>
<X-ASN>7A42E450-357F-11D4-BA31-0050DAC68030</X-ASN>
<X-ASNF>0</X-ASNF>
<X-ASH>3FC0A6B0-3EFF-11D4-BA3D-0050DAC68030</X-ASH>
<X-ASHF>1</X-ASHF>
<X-AN>BFF138F0-3EFC-11D4-BA3D-0050DAC68030</X-AN>
<X-ANF>0</X-ANF>
<X-AP>BFF138F0-3EFC-11D4-BA3D-0050DAC68030</X-AP>
<X-APF>1</X-APF>
<X-AD>76BD4480-42C5-11D4-BA3E-0050DAC68030</X-AD>
<X-ADF>0</X-ADF>
<X-AUTO>X-ASN,X-ASH,X-AN,X-AP,X-AD</X-AUTO>
<X-CNT>;</X-CNT>
</IncrdiX-Info>
<IncrdiXMLRemarkEnd--></HEAD>
<BODY
style="BACKGROUND-POSITION: left top; FONT-SIZE: 12pt; MARGIN: 0px 10px 10px; COLOR: #34260c; BACKGROUND-REPEAT: repeat; FONT-FAMILY: Times New Roman"
text=#34260c bgColor=#edd6ad background=cid:629DC4FB-6422-48CF-A29E-C6942FE3A3B4
scroll=yes SIGCOLOR="32768" INCREDIFIXEDFORIMOL="true">
<DIV>&nbsp;</DIV>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Message d'origine-----<BR><B>De&nbsp;:</B> m.p
[mailto:]<BR><B>Envoyé&nbsp;:</B> jeudi 22 mars 2007
20:07<BR><B>À&nbsp;:</B> <BR><B>Objet&nbsp;:</B> ça marche
pas !<BR><BR></FONT></DIV>
<TABLE id=INCREDIMAINTABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD id=INCREDITEXTREGION style="FONT-SIZE: 12pt; DIRECTION: ltr" vAlign=top
width="100%">
<DIV>Date de naissance de mon frère : 28 mai 1970</DIV>
<DIV>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; Moi : 9 juin 1973</DIV>
<DIV>Pas de fausse couche entre nous
deux&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<IMG src="cid:F2CB778C-52B1-4438-9007-5D6810855F16" border=0
name=INCREDIINSERTIMAGE INCREDIIMAGEATTRIBS=""
INCREDIIMAGEEXTENSIONS=""></DIV>
<DIV>&nbsp;</DIV>
<DIV>-------------------------</DIV>
<DIV>&nbsp;</DIV>
<DIV>Naissance de raphaëlle : 12 octobre 2000 ( pour mémoire : une petite
soeur a suivi)&nbsp; </DIV>
<DIV>&nbsp;</DIV>
<DIV>Naissance de colomban : 18 Mars 2002&nbsp; ( idem)</DIV>
<DIV>&nbsp;</DIV>
<DIV>naissance de Anne Sophie : 30 septembre 2003 ( idem)</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>Bref.....</DIV>
<DIV>&nbsp;</DIV>
<DIV><IMG src="cid:C790C158-E75A-44A6-AAC3-0AC3B401892B" border=0
name=INCREDIINSERTIMAGE INCREDIIMAGEATTRIBS=""
INCREDIIMAGEEXTENSIONS=""></DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV></TD></TR>
<TR>
<TD id=INCREDIFOOTER width="100%">
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD width="100%"></TD>
<TD id=INCREDISOUND vAlign=bottom align=middle></TD>
<TD id=INCREDIANIM vAlign=bottom
align=middle></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY ></HTML>

"Marc" a écrit dans le message de news:
emhCcr%
Re bonjour,

Ça ne marche pas je ne comprend pas il m'affiche une page d'une autre
couleur, les tailles ne sont pas prisent en compte etc ...

A priori il interprète le html mais pas complètement.

Que faire ?

Par avance merci

"Marc" a écrit dans le message de news:

ok
merci je met ça en place
encore merci

"Jean-marc" a écrit dans le
message de news: 45f1a435$0$2938$
Marc wrote:
En fait,

ne pouvant attendre j'ai finit par trouver quelques indications qui
m'ont permis de faire mon travail.

En revanche, maintenant je cherche un source d'exemple pour afficher
de l'html.

C'est à dire, je doit afficher un mail contenant de l'html, émetteur
est configuré avec les options suivantes: format message html et
signature.
Encore merci pour les infos car j'y ai jeter un coup d'oeil et j'ai
encore appris des choses sur le sujet.



Hello,

Rien de plus simple :-)

Il te suffit d'ajouter à ton projet le composant "Microsft Internet
Controls".
Puis tu places sur ta feuille ce composant (c'est un Webbrowser).

Il ne te reste plus qu'à mettre l'html que tu souhaites afficher
dans un fichier temporaire et à utiliser la méthode "Navigate2" de
l'objet Webbrowser.

Voici un tout petit exemple qui fonctionne:

Private Sub Command1_Click()
Dim html As String
Dim htmlFile As String
Dim f As Integer


html = "<html><body>Hello world!</body></httml>"
htmlFile = App.Path & "myfile.html"

f = FreeFile
Open htmlFile For Output As #f
Print #f, html
Close #f

WebBrowser1.Navigate2 (htmlFile)
End Sub

Bonne prog!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/












Avatar
jean-marc
"Marc" wrote in message
news:
Re bonjour,




Hello,


voici un exepmple de html que je recoi par mail.
sur microsoft outlook il n'y a aucun problème.

En revanche quant je le met dans un fichier html et l'ouvre avec webbroser
c'est n'importe quoi

avez vous une idée ?


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; > charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16414" name=GENERATOR>



Oui bien sur. C'est l'encodage du document.

Il y a plein de caracères de controle qui font que tel quel ce n'est pas
de l'HTML valide.

Il faut fairedes remplacements, avec Replace:

Il y a des "=" à remplacer par RIEN
des "=" à remplacer par "="
des "
" à remplacer par vbCrLf
Etc.

Bref, il faut regarder tous les codes =xx et les remplacer
par la valeur idoine, pour chaque cas.

C'est pas un si gros boulot, il n'y en a pas tant que ça!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Marc
ok j'essaye je te tiens au courrant dans après midi

"jean-marc" a écrit dans le message de news:
460799e2$0$13849$
"Marc" wrote in message
news:
Re bonjour,




Hello,


voici un exepmple de html que je recoi par mail.
sur microsoft outlook il n'y a aucun problème.

En revanche quant je le met dans un fichier html et l'ouvre avec
webbroser c'est n'importe quoi

avez vous une idée ?


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; >> charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16414" name=GENERATOR>



Oui bien sur. C'est l'encodage du document.

Il y a plein de caracères de controle qui font que tel quel ce n'est pas
de l'HTML valide.

Il faut fairedes remplacements, avec Replace:

Il y a des "=" à remplacer par RIEN
des "=" à remplacer par "="
des "


" à remplacer par vbCrLf
Etc.

Bref, il faut regarder tous les codes =xx et les remplacer
par la valeur idoine, pour chaque cas.

C'est pas un si gros boulot, il n'y en a pas tant que ça!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




1 2