[AC-2007] Importer fichier HTML sous vba Access

guycva05 · 24/02/2013, 19h45

Bonjour,

Je souhaite envoyer un mailing Outlook depuis une base Access qui contient mes adresses mail.
Pour ce faire, je récupère mon fichier HTML réalisé sous Word 2007, je le copie dans une zone de texte de mon formulaire d'envoi de mail, puis intègre cette copie en tant que corps de message (body) Outlook.
Problème, les caractères accentués ne sont pas traités correctement.
Pour plus de clarté, voici le code que j'utilise pour remplir ma zone de texte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim strFile As String
    Dim FreeCanal As Integer
    FreeCanal = FreeFile
 
' le nom de fichier à lire est donné par une zone de texte saisie par l'utilisateur
 
    Open  Nom_Fichier.Value For Binary As #FreeCanal
    strFile = String$(LOF(FreeCanal), Chr$(0))
    Get #FreeCanal, , strFile
    Close #FreeCanal
    Texte_Message.Value = strFile

Le résultat obtenu est le suivant:
Avez-vous pensÃ© Ã vos vacances d'hiver ? au lieu de ... pensé à....

Si quelqu'un peut me fournir une solution, je suis preneur.
Merci d'avance.

ClaudeLELOUP · 25/02/2013, 07h35

Bonjour et bienvenue sur le forum,

Va voir dans la FAQ : http://access.developpez.com/faq/?pa...look#mail_html

guycva05 · 26/02/2013, 15h09

Bonjour et merci pour la rapidité à répondre.
Malheureusement, j'ai déjà essayé cette solution, mais sans résultat. Le problème que je rencontre est à la lecture du fichier HTML, ouvert en mode binaire et lu séquentiellement par vba Access.

Fichier HTML source:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META content="text/html; charset=iso-8859-15" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 9.00.8112.16448"></HEAD>
<BODY link=#0000b0>
<DIV style="FONT-FAMILY: arial; COLOR: #000000; FONT-SIZE: xx-small" 
align=center>Si ce message ne s'affiche pas correctement, <A 
href="http://www.cvalpes.fr/pub/test/test.html">cliquez 
ici</A></DIV>
<STYLE type=text/css><!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	color: #FF6600;
}
a:link {
	color: #808080;
}
a:visited {
	color: #808080;
}
a:hover {
	color: #FF6600;
}
a:active {
	color: #808080;
}
.numero_bn {
	color: #FF6600;
	font-size: 14px;
	font-weight: bold;
}
.mois_bn {
	color: #000000;
	font-size: 14px;
	font-weight: bold;
}
.annee_bn {
	color: #FFFFFF;
	font-size: 14px;
	font-weight: bold;
}
.corps_article {
	color: #000000;
	font-size: 11px;
}
.titre_sommaire {
	font-size: 13px;
	color: #000000;
}
.mentions_legales {color: #000000; font-size: 9px; }
.pave_contact {color: #000000; font-size: 12px; font-weight: bold; }
font-size: 11px
.Style47 {color: #FF6600; font-size: 16px; font-weight: bold; }
.titre_article {font-size: 22px}
.sous_titre_article {color: #FF6600; font-size: 16px; font-weight: bold; }
.point_invisible {color: #FFFFFF}
.mois_bn {
	color: #FFFFFF;
}
.mois_bn {
	color: #000;
}
.texte_orange {
	color: #FF6600;
}
.corps_article1 {	color: #000;
	font-size: 11px;
}
.titre_sommaire1 {	font-size: 12px;
	color: #000000;
}
.corps_article11 {
	color: #000000;
	font-size: 11px;
	font-weight: normal;
}
.titre_sommaire11 {font-size: 13px;
	color: #000000;
}
--></STYLE>
 
<P><A name=haut></A></P>
<TABLE 
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; WIDTH: 662px; HEIGHT: 102px; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px solid" 
cellSpacing=2 cellPadding=10 width=662 background="" bgColor=#ffffff 
align=center height=102 cols=2>
  <TBODY>
  <TR vAlign=top>
    <TD width="34%">&nbsp;<IMG style="WIDTH: 215px; HEIGHT: 72px" border=0 
      src="http://www.cvalpes.fr/pub/test/MMNImages/Logo.jpg" 
      width=215 height=83></TD>
    <TD width="63%">
      <P><FONT color=#000000 size=5><U>GAP 2013</U></FONT></P>
      <P align=right><EM><FONT color=#0000c0>Lettre de Nouvelle du 1er trimestre 
      2013</FONT></EM></P></TD></TR></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
  <TBODY>
  <TR>
    <TD><IMG border=0 align=left 
      src="http://www.cvalpes.fr/pub/test/MMNImages/banniere_3.png" 
      width=651 height=184></TD></TR></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
  align=center><TBODY></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
  align=center><TBODY></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
  <TBODY>
  <TR>
    <TD height=62 vAlign=top align=center>
      <P align=center><FONT size=2 face=Arial><FONT color=#000000><FONT 
      size=5>Avez-vous pensé à vos vacances d'hiver ?</FONT><BR>Agé de 6 à 70 
      ans,

Résultat: la différence est visible sur les dernières lignes, sans compter les 3 signes cabalistiques disposés en tête de message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
ï»¿<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META content="text/html; charset=iso-8859-15" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 9.00.8112.16448"></HEAD>
<BODY link=#0000b0>
<DIV style="FONT-FAMILY: arial; COLOR: #000000; FONT-SIZE: xx-small" 
align=center>Si ce message ne s'affiche pas correctement, <A 
href="http://www.cvalpes.fr/pub/test/test.html">cliquez 
ici</A></DIV>
<STYLE type=text/css><!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	color: #FF6600;
}
a:link {
	color: #808080;
}
a:visited {
	color: #808080;
}
a:hover {
	color: #FF6600;
}
a:active {
	color: #808080;
}
.numero_bn {
	color: #FF6600;
	font-size: 14px;
	font-weight: bold;
}
.mois_bn {
	color: #000000;
	font-size: 14px;
	font-weight: bold;
}
.annee_bn {
	color: #FFFFFF;
	font-size: 14px;
	font-weight: bold;
}
.corps_article {
	color: #000000;
	font-size: 11px;
}
.titre_sommaire {
	font-size: 13px;
	color: #000000;
}
.mentions_legales {color: #000000; font-size: 9px; }
.pave_contact {color: #000000; font-size: 12px; font-weight: bold; }
font-size: 11px
.Style47 {color: #FF6600; font-size: 16px; font-weight: bold; }
.titre_article {font-size: 22px}
.sous_titre_article {color: #FF6600; font-size: 16px; font-weight: bold; }
.point_invisible {color: #FFFFFF}
.mois_bn {
	color: #FFFFFF;
}
.mois_bn {
	color: #000;
}
.texte_orange {
	color: #FF6600;
}
.corps_article1 {	color: #000;
	font-size: 11px;
}
.titre_sommaire1 {	font-size: 12px;
	color: #000000;
}
.corps_article11 {
	color: #000000;
	font-size: 11px;
	font-weight: normal;
}
.titre_sommaire11 {font-size: 13px;
	color: #000000;
}
--></STYLE>
 
<P><A name=haut></A></P>
<TABLE 
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; WIDTH: 662px; HEIGHT: 102px; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px solid" 
cellSpacing=2 cellPadding=10 width=662 background="" bgColor=#ffffff 
align=center height=102 cols=2>
  <TBODY>
  <TR vAlign=top>
    <TD width="34%">&nbsp;<IMG style="WIDTH: 215px; HEIGHT: 72px" border=0 
      src="http://www.cvalpes.fr/pub/test/MMNImages/Logo.jpg" 
      width=215 height=83></TD>
    <TD width="63%">
      <P><FONT color=#000000 size=5><U>GAP 2013</U></FONT></P>
      <P align=right><EM><FONT color=#0000c0>Lettre de Nouvelle du 1er trimestre 
      2013</FONT></EM></P></TD></TR></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
  <TBODY>
  <TR>
    <TD><IMG border=0 align=left 
      src="http://www.cvalpes.fr/pub/test/MMNImages/banniere_3.png" 
      width=651 height=184></TD></TR></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
  align=center><TBODY></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
  align=center><TBODY></TBODY></TABLE>
<TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
  <TBODY>
  <TR>
    <TD height=62 vAlign=top align=center>
      <P align=center><FONT size=2 face=Arial><FONT color=#000000><FONT 
      size=5>Avez-vous pensÃ© Ã vos vacances d'hiver ?</FONT><BR>AgÃ© de 6 Ã* 70 
      ans,

J'ai conservé toutes les descriptions HTML d'entête, même si à priori elles ne servent à rien dans le problème qui me préoccupe.
Faut-il que j'envisage de sonder le texte du fichier pour transposer un à un les caractères spéciaux sur leur valeur hexadécimale ou bien puis-je trouver une méthode plus simple et plus sûre.

Merci encore pour la collaboration.

ClaudeLELOUP · 26/02/2013, 15h54

Désolé de ne pouvoir te répondre : tes questions dépassent mon niveau de compétence.

J'espère que quelqu'un d'autre prendra le relais.

guycva05 · 26/02/2013, 16h50

Merci quand même.
Si je trouve l'origine du problème, je posterai "ma solution".

ClaudeLELOUP · 26/02/2013, 17h00

guycva05 · 27/02/2013, 19h59

Euréka, j'ai trouvé. Je sais, ce n'est pas de moi.
Les éditeurs de messagerie travaillent quasiment tous en codage de caractères utf-8.
Pour éviter les problèmes de codification, dans mon cas, j'ai procédé de la façon suivante:
1 - création du fichier HTML sous Word.
2 - sauvegarder en forçant l'enregistrement du fichier en utf-8, y compris en cochant la case enregistrer toujours au format par défaut.

Conclusion, mon fichier, envoyé par Outlook, arrive dans de très bonne conditions dans une messagerie. avec quelques soucis d'alignement avec le mailer SFR.
Mais solution globalement satisfaisante.

ClaudeLELOUP · 27/02/2013, 20h36

Merci pour le retour !

À ta prochaine Question/Réponse

25/02/2013, 07h35	#2
ClaudeLELOUP Rédacteur Claude LELOUP Chercheur de loisirs (ayant trouvé !) Inscription : novembre 2006 Messages : 8 008 Détails du profil Informations personnelles : Nom : Claude LELOUP Âge : 67 Localisation : Belgique Informations professionnelles : Activité : Chercheur de loisirs (ayant trouvé !) Secteur : Finance Informations forums : Inscription : novembre 2006 Messages : 8 008 Points : 55 270 Points : 55 270	Bonjour et bienvenue sur le forum, Va voir dans la FAQ : http://access.developpez.com/faq/?pa...look#mail_html __________________ Vos yeux piquent à cause des fautes d'orthographe ? Vous pouvez nous aider à corriger nos ressources !
	00

26/02/2013, 15h54	#4
ClaudeLELOUP Rédacteur Claude LELOUP Chercheur de loisirs (ayant trouvé !) Inscription : novembre 2006 Messages : 8 008 Détails du profil Informations personnelles : Nom : Claude LELOUP Âge : 67 Localisation : Belgique Informations professionnelles : Activité : Chercheur de loisirs (ayant trouvé !) Secteur : Finance Informations forums : Inscription : novembre 2006 Messages : 8 008 Points : 55 270 Points : 55 270	Désolé de ne pouvoir te répondre : tes questions dépassent mon niveau de compétence. J'espère que quelqu'un d'autre prendra le relais. __________________ Vos yeux piquent à cause des fautes d'orthographe ? Vous pouvez nous aider à corriger nos ressources !
	00

26/02/2013, 16h50	#5
guycva05 Invité de passage Guy MONGIOLS Retraité de l'informatique Inscription : février 2013 Messages : 4 Détails du profil Informations personnelles : Nom : Guy MONGIOLS Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur) Informations professionnelles : Activité : Retraité de l'informatique Secteur : Associations - ONG Informations forums : Inscription : février 2013 Messages : 4 Points : 0 Points : 0	Importer fichier HTML par VBA Access Merci quand même. Si je trouve l'origine du problème, je posterai "ma solution".
	00

26/02/2013, 17h00	#6
ClaudeLELOUP Rédacteur Claude LELOUP Chercheur de loisirs (ayant trouvé !) Inscription : novembre 2006 Messages : 8 008 Détails du profil Informations personnelles : Nom : Claude LELOUP Âge : 67 Localisation : Belgique Informations professionnelles : Activité : Chercheur de loisirs (ayant trouvé !) Secteur : Finance Informations forums : Inscription : novembre 2006 Messages : 8 008 Points : 55 270 Points : 55 270	__________________ Vos yeux piquent à cause des fautes d'orthographe ? Vous pouvez nous aider à corriger nos ressources !
	00

27/02/2013, 19h59	#7
guycva05 Invité de passage Guy MONGIOLS Retraité de l'informatique Inscription : février 2013 Messages : 4 Détails du profil Informations personnelles : Nom : Guy MONGIOLS Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur) Informations professionnelles : Activité : Retraité de l'informatique Secteur : Associations - ONG Informations forums : Inscription : février 2013 Messages : 4 Points : 0 Points : 0	Importer fichier HTML par VBA Access Euréka, j'ai trouvé. Je sais, ce n'est pas de moi. Les éditeurs de messagerie travaillent quasiment tous en codage de caractères utf-8. Pour éviter les problèmes de codification, dans mon cas, j'ai procédé de la façon suivante: 1 - création du fichier HTML sous Word. 2 - sauvegarder en forçant l'enregistrement du fichier en utf-8, y compris en cochant la case enregistrer toujours au format par défaut. Conclusion, mon fichier, envoyé par Outlook, arrive dans de très bonne conditions dans une messagerie. avec quelques soucis d'alignement avec le mailer SFR. Mais solution globalement satisfaisante.
	00

27/02/2013, 20h36	#8
ClaudeLELOUP Rédacteur Claude LELOUP Chercheur de loisirs (ayant trouvé !) Inscription : novembre 2006 Messages : 8 008 Détails du profil Informations personnelles : Nom : Claude LELOUP Âge : 67 Localisation : Belgique Informations professionnelles : Activité : Chercheur de loisirs (ayant trouvé !) Secteur : Finance Informations forums : Inscription : novembre 2006 Messages : 8 008 Points : 55 270 Points : 55 270	Merci pour le retour ! À ta prochaine Question/Réponse __________________ Vos yeux piquent à cause des fautes d'orthographe ? Vous pouvez nous aider à corriger nos ressources !
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email