Macro pour insertion fichier html dans Mail

Version imprimable

21/12/2010, 09h08
jibdu94

Macro pour insertion fichier html dans Mail

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) :cry:

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

Merci d'avance.
jb
21/12/2010, 09h14
mayekeul

bonjour,

une meilleure explication serait bienvenue.
qu'est-ce qui n'est "pas ok"??
21/12/2010, 09h27
jibdu94

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.
21/12/2010, 09h34
mayekeul

ce lien devrais t'y aider je pense

http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
21/12/2010, 09h54
jibdu94

merci..mais
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:

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:

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 :ccool:

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

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 '...

21/12/2010, 10h15
jibdu94

mayekeul ....What else ...:ccool:

nikel....merci bcp.
21/12/2010, 10h20
mayekeul

de rien, joyeux noël :)
:lefou: