OUTLOOK 2002 : impression piéce jointe

Merci ça fonctionne : c'est génial !!!

Marie-Laure

Bonjour.

J'utilise votre macro : elle fonctionne très bien.

Mais, je souhaiterais faire apparaître d'autres éléments en plus du nom du fichier :
le nom de la pièce jointe avec son extension (c'est déjà le cas),
+ le petit logo qui diffère selon l'extension de la pièce jointe (le "W" pour les .doc, le "X" pour les .xls, …….),
+ le poids de la pièce jointe.


Actuellement le contenu de la macro est :


Sub Print_HTML_PJ()
' *** imprimer les noms des pièces jointes des messages en HTML ***
' *** Vous en avez rêvé, Anacoluthe l'a fait ;-) ***
' *** modifié le 31/11/2004 par Isabelle Prawitz ***
Dim ListePJ As String
For Each oMessage In ActiveExplorer.Selection
oMessage.HTMLBody = "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-15' /><br>" & oMessage.HTMLBody
oMessage.HTMLBody = "<font style='font-family: Arial ;font-size: 14pt ;'>" & ListePJ & "</font><br>" & oMessage.HTMLBody
If oMessage.BodyFormat = olFormatHTML And _
oMessage.Attachments.Count > 0 Then
ListePJ = ""
For Each PJ In oMessage.Attachments
ListePJ = ListePJ & PJ.FileName & "<br>"
Next PJ
ListePJ = "Pièces jointes rattachées au message : " & ListePJ
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
End If
' oMessage.PrintOut
Next oMessage
End Sub



Pouvez-vous, s'il vous plait, m'indiquer les commandes qu'il faut rajouter dans la macro, pour avoir le petit logo du fichier + le poids ?
Ainsi me dire où il faut les rajouter ?

Merci énormément

Marie

Merci pour le renseignement

Je viens de poser ma question sur le forum que vous m'avez indiqué.

Bonne soirée
Marie