Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook impression pièce jointe : présentation

impression pièce jointe : présentation

5 réponses
Avatar
Christophe
Bonsoir,
Afin que les noms des pièces jointes apparaissent lors de l'impression des
messages html, j'utilise avec bonheur la macro fournie par la solution R0481
sur le site faq.outlook.free.fr.
Cependant, l'usage de cette macro a pour effet de doubler les interlignes du
corps du message.
Comment éviter ce petit désagrément ? est-ce possible au niveau de la mise
en page, en jouant sur les marges ? ou faut-il modifier la macro ?
Merci à qui pourra m'aider.

A toutes fins utiles, voici la macro en question :
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
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 & vbCr
Next PJ
ListePJ = "Pièces jointes : " & ListePJ
oMessage.Body = ListePJ & vbCr & oMessage.Body
End If
oMessage.PrintOut
Next oMessage
End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Isabelle Prawitz
Bonjour !
Moi perso, comme ça, sans tester, sachant que le corps de message est du
HTML, j'aurais mis "<br>" à la place de chaque vbCr, et
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
à la place de
oMessage.Body = ListePJ & vbCr & oMessage.Body
Faut essayer !

A+
Isa

"Christophe" a écrit dans le message de
news:
Bonsoir,
Afin que les noms des pièces jointes apparaissent lors de l'impression des
messages html, j'utilise avec bonheur la macro fournie par la solution
R0481

sur le site faq.outlook.free.fr.
Cependant, l'usage de cette macro a pour effet de doubler les interlignes
du

corps du message.
Comment éviter ce petit désagrément ? est-ce possible au niveau de la mise
en page, en jouant sur les marges ? ou faut-il modifier la macro ?
Merci à qui pourra m'aider.

A toutes fins utiles, voici la macro en question :
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
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 & vbCr
Next PJ
ListePJ = "Pièces jointes : " & ListePJ
oMessage.Body = ListePJ & vbCr & oMessage.Body
End If
oMessage.PrintOut
Next oMessage
End Sub




Avatar
Christophe
Bonsoir,

le résultat est tout-à-fait concluant, merci beaucoup Isa pour ces
indications pertinentes.
Dans la série "j'en veux toujours plus", je souhaiterais à présent modifier
la police dans laquelle sont affichées les noms des pièces jointes, ainsi
que ses attributs (gras/ italique, taille).
Quelle commande doit-on rajouter dans la macro initiale pour choisir une
police et son format ?
merci par avance
Christophe

"Isabelle Prawitz" a écrit dans le message de
news:
Bonjour !
Moi perso, comme ça, sans tester, sachant que le corps de message est du
HTML, j'aurais mis "<br>" à la place de chaque vbCr, et
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
à la place de
oMessage.Body = ListePJ & vbCr & oMessage.Body
Faut essayer !

A+
Isa

"Christophe" a écrit dans le message de
news:
Bonsoir,
Afin que les noms des pièces jointes apparaissent lors de l'impression
des


messages html, j'utilise avec bonheur la macro fournie par la solution
R0481

sur le site faq.outlook.free.fr.
Cependant, l'usage de cette macro a pour effet de doubler les
interlignes


du
corps du message.
Comment éviter ce petit désagrément ? est-ce possible au niveau de la
mise


en page, en jouant sur les marges ? ou faut-il modifier la macro ?
Merci à qui pourra m'aider.

A toutes fins utiles, voici la macro en question :
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
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 & vbCr
Next PJ
ListePJ = "Pièces jointes : " & ListePJ
oMessage.Body = ListePJ & vbCr & oMessage.Body
End If
oMessage.PrintOut
Next oMessage
End Sub








Avatar
Isabelle Prawitz
Bonsoir !
En fait, il faut que tu considères le corps de ton message comme un fichier
HTML.
Si tu connais les balises HTML, tu peux t'en sortir. Sinon, je te conseille
de copier le corps du message en passant par Clic droit/Afficher la source,
et coller ce joli code HTML dans un éditeur ad hoc (Word au pire !)
Après, tu pourras utiliser l'environnement de ton éditeur, et une fois
satisfait, rebasculer en mode HTML pour voir comment ça s'écrit !
Bon courage !
A+
Isa

"Christophe" a écrit dans le message de
news:
Bonsoir,

le résultat est tout-à-fait concluant, merci beaucoup Isa pour ces
indications pertinentes.
Dans la série "j'en veux toujours plus", je souhaiterais à présent
modifier

la police dans laquelle sont affichées les noms des pièces jointes, ainsi
que ses attributs (gras/ italique, taille).
Quelle commande doit-on rajouter dans la macro initiale pour choisir une
police et son format ?
merci par avance
Christophe

"Isabelle Prawitz" a écrit dans le message de
news:
Bonjour !
Moi perso, comme ça, sans tester, sachant que le corps de message est du
HTML, j'aurais mis "<br>" à la place de chaque vbCr, et
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
à la place de
oMessage.Body = ListePJ & vbCr & oMessage.Body
Faut essayer !

A+
Isa

"Christophe" a écrit dans le message de
news:
Bonsoir,
Afin que les noms des pièces jointes apparaissent lors de l'impression
des


messages html, j'utilise avec bonheur la macro fournie par la solution
R0481

sur le site faq.outlook.free.fr.
Cependant, l'usage de cette macro a pour effet de doubler les
interlignes


du
corps du message.
Comment éviter ce petit désagrément ? est-ce possible au niveau de la
mise


en page, en jouant sur les marges ? ou faut-il modifier la macro ?
Merci à qui pourra m'aider.

A toutes fins utiles, voici la macro en question :
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
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 & vbCr
Next PJ
ListePJ = "Pièces jointes : " & ListePJ
oMessage.Body = ListePJ & vbCr & oMessage.Body
End If
oMessage.PrintOut
Next oMessage
End Sub












Avatar
Christophe
Merci pour ta réponse Isa... je vais essayer de voir ce que je peux faire,
même si tout çà me paraît bien compliqué...
Avec mon inexpérience et mon oeil de profane, je pensais qu'une fois que la
macro fournit un résultat satisfaisant, une simple ligne de commande
pourrait suffirait à en déterminer le format et à l'appliquer de manière
systématique... çà n'est apparemment pas aussi simple qu'il n'y paraît...
Cependant, et pour être bien sûr que ta réponse correspond exactement à mon
problème, je reformule ma question.
En fait je ne souhaite modifier le format d'impression que de la seule liste
des pièces jointes (qui est créée par la macro), et non pas du corps du
message en lui-même... actuellement, pour un corps de message qui s'imprime
en arial 10, la liste des pièces jointes est à l'impression en times 14 ou
16. Qu'est-ce qui fait que, par défaut, cette liste s'imprime en times 14 ou
16 ? comment imposer via la macro un format systématique ?
Merci d'avance, excuses si je te fais répéter ta réponse.

"Isabelle Prawitz" a écrit dans le message de
news:%23lFLQN%
Bonsoir !
En fait, il faut que tu considères le corps de ton message comme un
fichier

HTML.
Si tu connais les balises HTML, tu peux t'en sortir. Sinon, je te
conseille

de copier le corps du message en passant par Clic droit/Afficher la
source,

et coller ce joli code HTML dans un éditeur ad hoc (Word au pire !)
Après, tu pourras utiliser l'environnement de ton éditeur, et une fois
satisfait, rebasculer en mode HTML pour voir comment ça s'écrit !
Bon courage !
A+
Isa

"Christophe" a écrit dans le message de
news:
Bonsoir,

le résultat est tout-à-fait concluant, merci beaucoup Isa pour ces
indications pertinentes.
Dans la série "j'en veux toujours plus", je souhaiterais à présent
modifier

la police dans laquelle sont affichées les noms des pièces jointes,
ainsi


que ses attributs (gras/ italique, taille).
Quelle commande doit-on rajouter dans la macro initiale pour choisir une
police et son format ?
merci par avance
Christophe

"Isabelle Prawitz" a écrit dans le message de
news:
Bonjour !
Moi perso, comme ça, sans tester, sachant que le corps de message est
du



HTML, j'aurais mis "<br>" à la place de chaque vbCr, et
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
à la place de
oMessage.Body = ListePJ & vbCr & oMessage.Body
Faut essayer !

A+
Isa

"Christophe" a écrit dans le message
de



news:
Bonsoir,
Afin que les noms des pièces jointes apparaissent lors de
l'impression




des
messages html, j'utilise avec bonheur la macro fournie par la
solution




R0481
sur le site faq.outlook.free.fr.
Cependant, l'usage de cette macro a pour effet de doubler les
interlignes


du
corps du message.
Comment éviter ce petit désagrément ? est-ce possible au niveau de
la




mise
en page, en jouant sur les marges ? ou faut-il modifier la macro ?
Merci à qui pourra m'aider.

A toutes fins utiles, voici la macro en question :
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
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 & vbCr
Next PJ
ListePJ = "Pièces jointes : " & ListePJ
oMessage.Body = ListePJ & vbCr & oMessage.Body
End If
oMessage.PrintOut
Next oMessage
End Sub
















Avatar
Isabelle Prawitz
Bonjour !
Essaie ça :
oMessage.HTMLBody = <font style="font-family: Arial, Helvetica, sans-serif;
font-size: 14pt;"> & ListePJ & "</font><br>" & oMessage.HTMLBody

Attention au retour à la ligne créé par Outlook Express !
A+
Isa


"Christophe" a écrit dans le message de
news:
Merci pour ta réponse Isa... je vais essayer de voir ce que je peux faire,
même si tout çà me paraît bien compliqué...
Avec mon inexpérience et mon oeil de profane, je pensais qu'une fois que
la

macro fournit un résultat satisfaisant, une simple ligne de commande
pourrait suffirait à en déterminer le format et à l'appliquer de manière
systématique... çà n'est apparemment pas aussi simple qu'il n'y paraît...
Cependant, et pour être bien sûr que ta réponse correspond exactement à
mon

problème, je reformule ma question.
En fait je ne souhaite modifier le format d'impression que de la seule
liste

des pièces jointes (qui est créée par la macro), et non pas du corps du
message en lui-même... actuellement, pour un corps de message qui
s'imprime

en arial 10, la liste des pièces jointes est à l'impression en times 14 ou
16. Qu'est-ce qui fait que, par défaut, cette liste s'imprime en times 14
ou

16 ? comment imposer via la macro un format systématique ?
Merci d'avance, excuses si je te fais répéter ta réponse.

"Isabelle Prawitz" a écrit dans le message de
news:%23lFLQN%
Bonsoir !
En fait, il faut que tu considères le corps de ton message comme un
fichier

HTML.
Si tu connais les balises HTML, tu peux t'en sortir. Sinon, je te
conseille

de copier le corps du message en passant par Clic droit/Afficher la
source,

et coller ce joli code HTML dans un éditeur ad hoc (Word au pire !)
Après, tu pourras utiliser l'environnement de ton éditeur, et une fois
satisfait, rebasculer en mode HTML pour voir comment ça s'écrit !
Bon courage !
A+
Isa

"Christophe" a écrit dans le message de
news:
Bonsoir,

le résultat est tout-à-fait concluant, merci beaucoup Isa pour ces
indications pertinentes.
Dans la série "j'en veux toujours plus", je souhaiterais à présent
modifier

la police dans laquelle sont affichées les noms des pièces jointes,
ainsi


que ses attributs (gras/ italique, taille).
Quelle commande doit-on rajouter dans la macro initiale pour choisir
une



police et son format ?
merci par avance
Christophe

"Isabelle Prawitz" a écrit dans le message de
news:
Bonjour !
Moi perso, comme ça, sans tester, sachant que le corps de message
est




du
HTML, j'aurais mis "<br>" à la place de chaque vbCr, et
oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
à la place de
oMessage.Body = ListePJ & vbCr & oMessage.Body
Faut essayer !

A+
Isa

"Christophe" a écrit dans le message
de



news:
Bonsoir,
Afin que les noms des pièces jointes apparaissent lors de
l'impression




des
messages html, j'utilise avec bonheur la macro fournie par la
solution




R0481
sur le site faq.outlook.free.fr.
Cependant, l'usage de cette macro a pour effet de doubler les
interlignes


du
corps du message.
Comment éviter ce petit désagrément ? est-ce possible au niveau de
la




mise
en page, en jouant sur les marges ? ou faut-il modifier la macro ?
Merci à qui pourra m'aider.

A toutes fins utiles, voici la macro en question :
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
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 & vbCr
Next PJ
ListePJ = "Pièces jointes : " & ListePJ
oMessage.Body = ListePJ & vbCr & oMessage.Body
End If
oMessage.PrintOut
Next oMessage
End Sub