Lors de l'impression d'un message html, Outlook n'indique pas la présence de
pièces jointes (contrairement à l'impression de messages au format brut ou
rtf).
Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro suivante,
laquelle permet en théorie de contourner le problème.
Le souci est que l'exécution de cette macro est empéché par la présence à
l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé d'un
"For".
Comment corriger cette macro pour la rendre fonctionnelle ? Merci d'avance à
qui pourra m'aider (j'utilise Outlook 2002).
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
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
JièL Goubert
Bonjoir(c) Christophe
je ne comprend pas ou es ton soucis, car cette macro fonctionne parfaitement, je l'utilise tout les jours, et il n'y a pas d'erreur dedans car il y a bien une instruction "For Each oMessage" qui correspond au "Next oMessage"...
Tu as bien suivi les explications du site à la lettre ?
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 16/11/2004 20:51 vous avez écrit ceci :
Bonsoir,
Lors de l'impression d'un message html, Outlook n'indique pas la présence de pièces jointes (contrairement à l'impression de messages au format brut ou rtf). Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro suivante, laquelle permet en théorie de contourner le problème. Le souci est que l'exécution de cette macro est empéché par la présence à l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé d'un "For". Comment corriger cette macro pour la rendre fonctionnelle ? Merci d'avance à qui pourra m'aider (j'utilise Outlook 2002).
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
Bonjoir(c) Christophe
je ne comprend pas ou es ton soucis, car cette macro fonctionne
parfaitement, je l'utilise tout les jours, et il n'y a pas d'erreur dedans
car il y a bien une instruction "For Each oMessage" qui correspond au "Next
oMessage"...
Tu as bien suivi les explications du site à la lettre ?
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 16/11/2004 20:51 vous avez écrit ceci :
Bonsoir,
Lors de l'impression d'un message html, Outlook n'indique pas la présence de
pièces jointes (contrairement à l'impression de messages au format brut ou
rtf).
Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro suivante,
laquelle permet en théorie de contourner le problème.
Le souci est que l'exécution de cette macro est empéché par la présence à
l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé d'un
"For".
Comment corriger cette macro pour la rendre fonctionnelle ? Merci d'avance à
qui pourra m'aider (j'utilise Outlook 2002).
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
je ne comprend pas ou es ton soucis, car cette macro fonctionne parfaitement, je l'utilise tout les jours, et il n'y a pas d'erreur dedans car il y a bien une instruction "For Each oMessage" qui correspond au "Next oMessage"...
Tu as bien suivi les explications du site à la lettre ?
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 16/11/2004 20:51 vous avez écrit ceci :
Bonsoir,
Lors de l'impression d'un message html, Outlook n'indique pas la présence de pièces jointes (contrairement à l'impression de messages au format brut ou rtf). Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro suivante, laquelle permet en théorie de contourner le problème. Le souci est que l'exécution de cette macro est empéché par la présence à l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé d'un "For". Comment corriger cette macro pour la rendre fonctionnelle ? Merci d'avance à qui pourra m'aider (j'utilise Outlook 2002).
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
Christophe
Bonsoir, Le pb est résolu, il provenait tout bêtement d'un non-retour à la ligne dans le texte de la macro... ça fonctionne effectivement. Merci de ta réactivité en tous cas.
"JièL Goubert" a écrit dans le message de news:
Bonjoir(c) Christophe
je ne comprend pas ou es ton soucis, car cette macro fonctionne parfaitement, je l'utilise tout les jours, et il n'y a pas d'erreur dedans car il y a bien une instruction "For Each oMessage" qui correspond au "Next
oMessage"...
Tu as bien suivi les explications du site à la lettre ?
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 16/11/2004 20:51 vous avez écrit ceci :
Bonsoir,
Lors de l'impression d'un message html, Outlook n'indique pas la présence de
pièces jointes (contrairement à l'impression de messages au format brut ou
rtf). Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro suivante,
laquelle permet en théorie de contourner le problème. Le souci est que l'exécution de cette macro est empéché par la présence à
l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé d'un
"For". Comment corriger cette macro pour la rendre fonctionnelle ? Merci d'avance à
qui pourra m'aider (j'utilise Outlook 2002).
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
Bonsoir,
Le pb est résolu, il provenait tout bêtement d'un non-retour à la ligne dans
le texte de la macro... ça fonctionne effectivement.
Merci de ta réactivité en tous cas.
"JièL Goubert" <NOSPAM_JieL.Goubert@laposte-net.NOSPAM> a écrit dans le
message de news:eHUto1DzEHA.2316@TK2MSFTNGP15.phx.gbl...
Bonjoir(c) Christophe
je ne comprend pas ou es ton soucis, car cette macro fonctionne
parfaitement, je l'utilise tout les jours, et il n'y a pas d'erreur dedans
car il y a bien une instruction "For Each oMessage" qui correspond au
"Next
oMessage"...
Tu as bien suivi les explications du site à la lettre ?
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 16/11/2004 20:51 vous avez écrit ceci :
Bonsoir,
Lors de l'impression d'un message html, Outlook n'indique pas la
présence de
pièces jointes (contrairement à l'impression de messages au format brut
ou
rtf).
Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro
suivante,
laquelle permet en théorie de contourner le problème.
Le souci est que l'exécution de cette macro est empéché par la présence
à
l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé
d'un
"For".
Comment corriger cette macro pour la rendre fonctionnelle ? Merci
d'avance à
qui pourra m'aider (j'utilise Outlook 2002).
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
Bonsoir, Le pb est résolu, il provenait tout bêtement d'un non-retour à la ligne dans le texte de la macro... ça fonctionne effectivement. Merci de ta réactivité en tous cas.
"JièL Goubert" a écrit dans le message de news:
Bonjoir(c) Christophe
je ne comprend pas ou es ton soucis, car cette macro fonctionne parfaitement, je l'utilise tout les jours, et il n'y a pas d'erreur dedans car il y a bien une instruction "For Each oMessage" qui correspond au "Next
oMessage"...
Tu as bien suivi les explications du site à la lettre ?
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 16/11/2004 20:51 vous avez écrit ceci :
Bonsoir,
Lors de l'impression d'un message html, Outlook n'indique pas la présence de
pièces jointes (contrairement à l'impression de messages au format brut ou
rtf). Ai trouvé sur le site faq.outlook.free.fr (message R0481) la macro suivante,
laquelle permet en théorie de contourner le problème. Le souci est que l'exécution de cette macro est empéché par la présence à
l'avant dernière ligne de la commande "Next" sans qu'elle soit précédé d'un
"For". Comment corriger cette macro pour la rendre fonctionnelle ? Merci d'avance à
qui pourra m'aider (j'utilise Outlook 2002).
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
