Mardi 25 Juillet 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

 EMERGENCY 06:24:30
 callaghi 1 semaine
 JièL 3 semaines
 zorro71 8 semaines
 Alphator 26 semaines
 ande 32 semaines
 Oliv 34 semaines
 cubitus 37 semaines
 angel 47 semaines
 Quartzkyte 56 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 445
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:4 927
Total ce mois:136 819
Total visites:17 957 870
Moyenne/jour:5 654

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 13041 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
R08090 Liste des codes d'erreurs et significations, R09020 Comment fonctionne le complément automatique de la saisie des adresses (saisie auto ou saisie semi auto), R14050 Créer des raccourcis vers des dossiers , R11010 Restaurer TOUT Office 2003, R00030 Commutateurs de ligne de commande, R07020 Choisir un profil au démarrage d'Outlook, R20140 Configurer un compte GMAIL pour Outlook 2007, R15360 [VBA] Pas de compte par defaut --> Obliger le choix entre 2 comptes ou plus, R06032 Utiliser l'archivage automatique avec les dates de réception, R14050 Créer des raccourcis vers des dossiers , R15360 [VBA] Pas de compte par defaut --> Obliger le choix entre 2 comptes ou plus, R08230 Problème avec le carnet d'adresses Outlook 2000 sous Vista, R06025 Limiter la taille maximum du .PST, R17001 Principes sur les formulaires, R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception

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