Importer fichier HTML sous vba Access
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:
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.
Importer fichier HTML par VBA Access
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:
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%"> <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:
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%"> <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.
Importer fichier HTML par VBA Access
Merci quand même.
Si je trouve l'origine du problème, je posterai "ma solution".
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.
