Pour JièL : Macro Pièces Jointes HTML

Bonjour JièL !
Suite à un message d'un utilisateur de la macro Print_HTML_PJ de ton site, je relève une erreur de code :
Tu as laissé oMessage.Body au lieu de oMessage.HTMLBody.
Soit la macro "corrigée" ;-) :


Sub Print_HTML_PJ()
' *** imprimer les noms des pièces jointes des messages en HTML ***
' *** Vous en avez rêvé, Anacoluthe l'a fait ;-) ***
Dim ListePJ As String
Dim oMessage As MailItem
Dim PJ As Attachment

For Each oMessage In ActiveExplorer.Selection
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 : " & ListePJ
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody ' corrections !
End If
oMessage.PrintOut
Next oMessage
End Sub

A+
Isa

Bonjoir(c) Isabelle Prawitz

Ok, c'est fait
(ca ca va, c'est pas long ;-D)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm

Le 14/02/2005 10:46 vous avez écrit ceci :

Bonjour JièL !
Suite à un message d'un utilisateur de la macro Print_HTML_PJ de ton site, je relève une erreur de code :
Tu as laissé oMessage.Body au lieu de oMessage.HTMLBody.
Soit la macro "corrigée" ;-) :


Sub Print_HTML_PJ()
' *** imprimer les noms des pièces jointes des messages en HTML ***
' *** Vous en avez rêvé, Anacoluthe l'a fait ;-) ***
Dim ListePJ As String
Dim oMessage As MailItem
Dim PJ As Attachment

For Each oMessage In ActiveExplorer.Selection
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 : " & ListePJ
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody ' corrections !
End If
oMessage.PrintOut
Next oMessage
End Sub

A+
Isa

C'est ça la réactivité ! ;-)
...

(ca ca va, c'est pas long ;-D)

Petite et vigoureuse, les meilleures !