Mercredi 22 Novembre 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 : 4
Membres en ligne : 0

 joscopp 4 jours
 JièL 5 jours
 julbast 1 semaine
 pirobert 1 semaine
 EMERGENCY 4 semaines
 callaghi 18 semaines
 zorro71 25 semaines
 Alphator 43 semaines
 ande 49 semaines
 Oliv 51 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 609
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:7 654
Total ce mois:106 075
Total visites:18 677 821
Moyenne/jour:5 667

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 13229 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
R08041 Outlook 2002 (2000 ?) ne mémorise pas le mot de passe des comptes sous Vista, R99450 On peut faire ça ?, R15440 [VBA] vider les courriers indésirables en quittant, R99010 Marche je te dis, marche..., R15300 [VBA] Enregistrer dans un dossier après envoi, R99240 Quomen pozé une kestion, R04060 Supprimer les pièces jointes d'un message, R00090 Noms des serveurs POP, IMAP, SMTP et Webmail des principaux FAI, R11080 Restaurer ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R09010 Compléter la saisie d’un destinataire (saisie auto ou saisie semi auto), R04060 Supprimer les pièces jointes d'un message, R08070 Réparer / remettre en état Outlook ou le PST (6 solutions à appliquer dans l'ordre), R11060 Restaurer le carnet d'adresses personnel (.PAB), R00020 Mettre Outlook 2002 (et autres) dans le systray, R15230 [VBA] Extraire automatiquement les pièces jointes vers un dossier Windows.

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