outlook: Insertion fichier html en tant que texte

**Nicko29** · 18/06/2015, 17h01

Bonjour,

Quelle est la syntaxe VBA pour remplacer l'action manuel d'insérer un fichier en html en tant que texte dans nouvel email outlook ?

Je m'explique, je suis passé par le code ci-dessous mais les caractères spéciaux sont mal affiché alors que manuellement il le sont correctement.

Code :

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

1
2
3
f = FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll
        .BodyFormat = olFormatHTML
        .HTMLBody = f

exemple de mauvais conversion : le é s'affiche :Ã© , le € s'affiche: â‚¬ , le ' s'affiche: â€™

Merci par avance, j'ai parcouru le net, mais je seche.

Nico

**Oliv-** · 19/06/2015, 10h20

Salut,

Je pense que cela vient de l'encodage de ton fichier txt, avec quoi le fais tu ? es tu en ANSI ?

C'est quoi ta méthode manuelle pour le faire ?

**Nicko29** · 19/06/2015, 11h30

Bonjour,

Après avoir continuer les recherches, je pense aussi que cela pourrait-être un problème d'encodage.

Après je ne comprend pas la différence entre le fait de mettre via VBA et manuellement.

Ci-dessous l'imprim écran de la méthode manuelle : nouvel email/joindre un fichier/sélection du fichier HTML/choisir insérer comme texte.

Le fichier HTMl insérer dans le corps est codé en UTF 8 :

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="application/xhtml+xml; charset=utf-8" />
<title>Weiss France - NEWSLETTER</title>
<style type="text/css">

**Nicko29** · 19/06/2015, 12h21

Bien, j'ai la solution, La fonction" FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll" ne sait pas lire correctement les caractères accentués.

La solution est de remplacer :

Code :

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

f = FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll

Par

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim adoStream
Set adoStream = CreateObject("Adodb.Stream")
adoStream.Open
adoStream.Charset = "UTF-8"
adoStream.LoadFromFile NomFichierHTML
'********** !! ***************
f = adoStream.ReadText(-1)
'********** !! ***************
adoStream.Close
Set adoStream = Nothing

Et c'est résolu !

**Oliv-** · 19/06/2015, 22h13

Bonsoir,
Le problème est bien lié à l'encodage.
j'ai vérifié avec la première méthode si l'encodage du fichier est ANSI cela fonctionne bien avec les accents.

outlook: Insertion fichier html en tant que texte [OL-2010]

VBA Outlook

Discussions similaires

Partager

Partager