Macro pour insertion fichier html dans Mail

lejib

Posté le 21/12/2010 @ 09:12

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

lejib

Posté le 21/12/2010 à 10:21

reponse trouvé....merci mayekeul

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

Code :

 
Dim FSo As New Scripting.FileSystemObject
Dim f As String
 
'...
 
f = FSo.GetFile("LeFichierHTML").OpenAsTextStream.ReadAll
 
'....
.htmlbody = f
 
'...

Yaloo

Posté le 29/12/2010 à 18:22

Bonjour lejib,

Ton bout de code c'est bien, mais pourrais-tu mettre le code entier, avec tout :

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)

Merci d'avance

Modifié par Yaloo le 29/12/2010 18:26

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

255 €

Bureau électrique réglable en hauteur ACGAM ET225E (2 moteurs, plateau bois, stock Europe) à 255 €
Valable jusqu'au 28 Juin

Geekbuying fait une promotion sur le bureau électrique assis-debout ACGAM ET225E qui passe à 255 € grâce au code promo NNNFRACGAM. On le trouve ailleurs à 379,99 €. La livraison est rapide et gratuite (entrepôt européen). Avec 2 moteurs , hauteur réglable de 62 à 127 cm, télécommande avec 3 hauteurs en mémoire, plateau bois de 140x60 cm.

> Voir l'offre

79,99 €

SSD Samsung 870 QVO 1 To à 79,99 €
Valable jusqu'au 29 Juin

Cdiscount fait une promotion sur le SSD Samsung 870 QVO 1 To qui passe à 79,99 € au lieu de 89,99 € Ce SSD offre des vitesses de 560 Mo/s en lecture et 530 Mo/s en écriture. Il est garanti 3 ans.

> Voir l'offre

79,99 €

Disque dur externe portable Seagate Expansion 4 To USB 3.0 à 79,99 €
Valable jusqu'au 30 Juin

Cdiscount fait une promotion sur le disque dur externe portable Seagate Expansion d'une capacité de 4 To qui passe à 79,99 € alors qu'on le trouve ailleurs à partir de 100 €. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC).

> Voir l'offre