Mardi 25 Avril 2017  
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 : 5
Membres en ligne : 0

 callaghi 4 semaines
 Alphator 13 semaines
 ande 19 semaines
 Oliv 21 semaines
 cubitus 24 semaines
 JièL 29 semaines
 angel 34 semaines
 Quartzkyte 43 semaines
 grouilau 43 semaines
 miguy973 52 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 023
En ligne :5
Max. en ligne:312
Max. / jour:66 529
Total hier:2 737
Total ce mois:85 517
Total visites:17 391 468
Moyenne/jour:5 637

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 12868 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
R15050 [VBA] Modifier l'affichage sur tous les dossiers et sous-dossiers, R17001 Principes sur les formulaires, R00060 Envoyer de GROS fichiers, R09150 Publipostage à partir des contacts d'Outlook, R09070 Ajouter le carnet d'adresses personnel (.PAB), R05070 Imprimer les noms des pièces jointes aux messages en HTML, R06050 Ouvrir un dossier d'archive (ou un autre .PST), R15360 [VBA] Pas de compte par defaut --> Obliger le choix entre 2 comptes ou plus, R03080 Rédiger un message sans lancer Outlook, R20090 Configurer un serveur SMTP sécurisé pour Outlook 2002/2003, R08125 Impossible d'envoyer un message (mon FAI est Wanadoo/Orange), R06070 Classer automatiquement les messages reçus ou envoyés, R01200 Changer le son de réception d'un message, R13030 Créer une tâche, R08050 Le clavier passe en QWERTY lors de la saisie de RDV ou de tâches

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