Dimanche 22 Juillet 2018  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 4
Membres en ligne : 0

 EMERGENCY 3 semaines
 beaulieu 15 semaines
 callaghi 18 semaines
 Charlie76 24 semaines
 joscopp 35 semaines
 JièL 35 semaines
 julbast 35 semaines
 pirobert 36 semaines
 zorro71 60 semaines
 Alphator 78 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 924
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:2 164
Total ce mois:76 084
Total visites:20 112 008
Moyenne/jour:5 683

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q05000 Impression (9)  Catégorie »
[<<]  « Article  Article »  [>>]
R05070 Imprimer les noms des pièces jointes aux messages en HTML
Jusqu'au SP1 d'Outlook 2003 (téléchargeable ici besoin du CD Office 2003 ou la sans CD Office 2003) il a toujours été impossible d'imprimer les noms des pièces jointes dans les messages en HTML alors que cette fonctionnalité existe avec le format Texte Brut ou RTF. Si vous faites partie des utilisateurs de version un poil ancienne, voici une macro signée Anacoluthe, qui comble cette lacune.

"-------------------------------

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
    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
    End If
oMessage.PrintOut
Next oMessage
End Sub


"-------------------------------


Nota : si vous avez Outlook 2000, remplacer la ligne


    If oMessage.BodyFormat = olFormatHTML And _
 

par

 

    If oMessage.HTMLBody = vbNullString And _
 

 

Sélectionner les lignes entre les pointillés et les copier. Ouvrir Outlook et appuyer sur les touches [Alt]+[F11]

Double clic sur ThisOutlookSession et coller dans la partie droite la macro précédemment copiée.

Fermer ensuite l'éditeur et, par sécurité, quitter Outlook en confirmant l'enregistrement de la macro.

Relancer ensuite Outlook, clic droit sur une barre d'outils, Personnaliser, onglet Commandes, choisir Macros dans la liste de gauche et faire glisser Projet1.ThisOutlookSession.Print_HTML_PJ à l'emplacement voulu dans la barre d'outils voulue.

Clic droit sur le bouton ajouté pour choisir Par défaut pour afficher une icône au lieu du texte.

Cliquer sur le bouton Fermer pour terminer. C'est prêt, ce bouton est maintenant utilisable pour imprimer tous les messages, en HTML ou pas.


Une variante d'Isabelle Prawitz permettant de modifier la mise en forme du texte indiquant les PJ


oMessage.HTMLBody = "<font style='font-family: Arial ;font-size: 14pt ;'>" & ListePJ & "</font><br>" & oMessage.HTMLBody


en remplacement de la ligne : oMessage.HTMLBody = ListePJ & "<br>" & oMessage.HTMLBody
Vous pouvez remplacer le nom et la taille de la police par ce que vous voulez.

Vous avez une solution made in MS (mais beurk) ici http://support.microsoft.com/kb/821840/fr


Publié par JièL le mercredi 14 février 2007 15:16 0 Commentaires 13567 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R06032 Utiliser l'archivage automatique avec les dates de réception Q06000 Les fichiers d'Outlook
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R08250 Outlook ne trouve pas mes messages lors d'une recherche Q08000 Erreurs et problèmes
R17070 VSTO et les formulaires d'Outlook 2007 Q17000 Formulaires
R21010 Ajouter une signature automatique aux messages (Outlook 2007) Q21000 Tutoriels VIDEOS (démo)
Nuage de tags
R01010 Définir Outlook comme messagerie par défaut, R99240 Quomen pozé une kestion, R13030 Créer une tâche, R07070 Activer / Paramétrer le filtre anti spam d'Outlook 2003/2007, R03010 Créer un nouveau message à partir d'un autre, R11080 Restaurer ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R11020 Restaurer les paramètres et fichiers .pst d'Outlook 2002 (Windows XP seulement), R11020 Restaurer les paramètres et fichiers .pst d'Outlook 2002 (Windows XP seulement), R15300 [VBA] Enregistrer dans un dossier après envoi, R13030 Créer une tâche, R01010 Définir Outlook comme messagerie par défaut, R12120 Synchroniser Google Calendar avec Outlook 2010, R15310 [VBA] Limiter l'envoi selon la taille, R07080 Ajouter un expéditeur indésirable, R04040 Imprimer directement une pièce jointe

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]