Dimanche 25 Février 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 : 3
Membres en ligne : 0

 EMERGENCY 1 semaine
 Charlie76 3 semaines
 callaghi 12 semaines
 joscopp 14 semaines
 JièL 14 semaines
 julbast 14 semaines
 pirobert 15 semaines
 zorro71 39 semaines
 Alphator 57 semaines
 ande 62 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 149
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:3 993
Total ce mois:141 476
Total visites:19 269 632
Moyenne/jour:5 681

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 13349 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
R08200 Cette opération a été annulée à cause de restrictions en vigueur sur cet ordinateur. Contactez votre administrateur système., R07080 Ajouter un expéditeur indésirable, R99110 Ebook pas cher, R00140 Utiliser Outlook comme navigateur Web, R06020 Réduire la taille du .PST, R15040 [VBA] Parcourir tous les dossiers et sous-dossiers., R15040 [VBA] Parcourir tous les dossiers et sous-dossiers., R10060 Sauvegarder le carnet d'adresses personnel (.PAB), R04020 Insérer un élément d'Outlook dans un message, R07100 Exporter / Importer une liste d'expéditeurs indésirables, R08110 Ouvrir un autre PST, R99110 Ebook pas cher, R02020 Envoyer / recevoir automatiquement, R11060 Restaurer le carnet d'adresses personnel (.PAB), R14020 Recherche avancée

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 [/\]