Macro pour insertion fichier html dans Mail

**jibdu94** · 21/12/2010, 09h08

Bonjour,

cela fait quelques jours que je m'acharne à trouver un code en vba : l'idée est a partir d'une macro excel, de :
1- créer un dossier ( ok)

2- créer un fichier en . html ( ok)

3 - créer / ouvrir un mail avec une liste d'adresse ( ok)

4- insérer le fichier .html en tant que "body" du mail ->(pas ok)

quelqu'un aurait il une solution pour ce dernier point car je bloque complétement.

Merci d'avance.
jb

**mayekeul** · 21/12/2010, 09h14

bonjour,

une meilleure explication serait bienvenue.
qu'est-ce qui n'est "pas ok"??

**jibdu94** · 21/12/2010, 09h27

en fait je n'arrive pas à trouver le code qui me permette d'insérer au format html le fichier que j'ai créé précédement dans le mail.

**mayekeul** · 21/12/2010, 09h34

ce lien devrais t'y aider je pense

http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

**jibdu94** · 21/12/2010, 09h54

le lien est intéressant et montre comment mettre une ligne en html. dans le corps du message. jusque l'a ca marche, par cotnre qu'en est il quand il s'agit de l'ensemble d'un fichier html ?
Ainsi, je souhaiterai mettre dans le corps du mail le fichier essai. htm , pour retranscrire les donnes et la mise en page tel quel. Or ce n'est malheureusement pas expliqué dans ce petit tuto, il me semble.

Par ailleurs comment faire pour pouvoir mettre plusieurs ligns en htm dans le corps du message expl :

Code html :

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

1
2
3
4
5
6
7
8
9
<body >
<table >
 <tr >
  <td w>
  <p ><img  src="xxx"></span></span></a> salut les terriens</p>
  </td>
   </tr>
</table >
</body >

dans ceci : ?

Code :

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

1
2
3
4
5
6
    With objMail
       'Set body format to HTML
       .BodyFormat = olFormatHTML
       .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
       .Display
    End With

Merci de ta réponse en tout les cas

**mayekeul** · 21/12/2010, 10h01

je passerais par scripting runtine ( ne pas oublier de l'insérer dans les références donc)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim FSo As New Scripting.FileSystemObject
Dim f As String
 
'...
 
f = FSo.GetFile("LeFichierHTML").OpenAsTextStream.ReadAll
 
'....
.htmlbody = f
 
'...

Macro pour insertion fichier html dans Mail

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager