Pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter, inscrivez-vous gratuitement !

 

  1. #1
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 22
    Points : 10
    Points
    10

    Par défaut Supprimer l'entête du mail lors de l'impression

    Bonsoir,

    Je cherche une astuce pour pouvoir supprimer une partie de l'entête lors de l’impression d’un message que ce soit de ma messagerie ou celle d'une messagerie en mode délégué.

    Je m'explique : je reçois un mail, je l'ouvre et je clique sur imprimer. S'affiche alors le mail avec :

    • Ligne 1 : mon nom
    • Ligne 2 : une ligne noir
    • Ligne 3 : De (nom de d'expéditeur)
    • Ligne 4 : Envoyé (Date)
    • Ligne 5 : A (nom du destinataire)
    • Ligne 6 : Objet


    Le but est de pouvoir à l'impression supprimer les lignes 1 et 2 et ne garder que les infos à partir de la ligne 3

    Je n'ai pas trouvé d'astuce hormis ouvrir le mail dans un navigateur et sélectionner la partie à imprimer, mais au final ce n'est pas tout à fait le résultat voulu.

    Existe t-il une astuce, ou est-il nécessaire de passer par du code VBA et si oui, pouvez vous m'aider sur le code car vraiment novice en VBA Outlook?

    Merci pour votre aide

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 403
    Points : 5 917
    Points
    5 917
    Billets dans le blog
    16

    Par défaut

    Bonjour,
    L'astuce serait plutôt de l'ouvrir dans WORD.

    Il faut faire Fichier/Enregistrer-sous/ choisir le type HTML ou MHT.
    Puis ouvrir le fichier dans WORD. et l'imprimer.


    sinon avec une macro outlook :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    Sub test_saveolDocAndPrint()
    '---------------------------------------------------------------------------------------
    ' Procedure : test_saveolDocAndPrint
    ' Author    : Oliv
    ' Date      : 14/09/2018
    ' Purpose   : impression via word
    '---------------------------------------------------------------------------------------
    '
        Dim objCurrentMessage As Outlook.MailItem
        Set objCurrentMessage = ActiveInspector.CurrentItem
        strName = Environ("temp") & "\PrintEmail.doc"
        objCurrentMessage.SaveAs strName, OlSaveAsType.olDoc
     
        Dim wd As Word.Application
        Set wd = CreateObject("Word.application")
        Dim WdDoc As Word.Document
        Set WdDoc = wd.Documents.Open(strName)
        wd.Visible = True
        With wd.Selection.PageSetup
            .TopMargin = wd.CentimetersToPoints(0.5)
            .BottomMargin = wd.CentimetersToPoints(0.5)
            .LeftMargin = wd.CentimetersToPoints(0.5)
            .RightMargin = wd.CentimetersToPoints(0.5)
            .Gutter = wd.CentimetersToPoints(0.5)
            .HeaderDistance = wd.CentimetersToPoints(0.5)
            .FooterDistance = wd.CentimetersToPoints(0.5)
            .PageWidth = wd.CentimetersToPoints(21)
            .PageHeight = wd.CentimetersToPoints(29.7)
        End With
        wd.ActiveDocument.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
        '    WdDoc.Close False
        '    wd.Quit
        '    DoEvents
        '    Kill strName
    End Sub

  3. #3
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 22
    Points : 10
    Points
    10

    Par défaut

    Merci Oliv pour la réponse
    Mon but est d'avoir le moins d'action à faire, donc la solution macro VBA me convient bien. Je l'ai téléchargé dans un module du Visual Basic, mais j'ai un doute de comment l'utiliser :

    • Quand je lance l'impression, rien ne change en aperçu, par conséquent, je ne sais si cela fonctionne
    • J'ai insérer la macro dans la barre d'outils d'accès rapide, mais cela ne fonctionne pas


    Merci pour votre aide

  4. #4
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 403
    Points : 5 917
    Points
    5 917
    Billets dans le blog
    16

    Par défaut

    Avec ce code il faut ouvrir le MAIL dans une fenetre
    puis lancer la macro, par un bouton c'est bien

  5. #5
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 22
    Points : 10
    Points
    10

    Par défaut

    J'ai un peu de mal, je n'y arrive pas, pourtant je suis bien les instructions.
    Quand j'ouvre le mail et que je clique sur le bouton de la macro, rien ne se passe, cela semble se bloque à la requete

    Dim wd As Word.Application

    je ne peux aller plus loin

    Merci pour votre aide

  6. #6
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 403
    Points : 5 917
    Points
    5 917
    Billets dans le blog
    16

    Par défaut

    Bonjour,

    OUps j'ai oublié de te dire d'ajouter une référence à Microsoft Word 1x.0 object library

    Sinon tu peux utiliser ce code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    Sub test_saveolDocAndPrint()
    '---------------------------------------------------------------------------------------
    ' Procedure : test_saveolDocAndPrint
    ' Author    : Oliv
    ' Date      : 14/09/2018
    ' Purpose   : impression via word
    '---------------------------------------------------------------------------------------
    '
        Dim objCurrentMessage As Outlook.MailItem
        Set objCurrentMessage = ActiveInspector.CurrentItem
        strName = Environ("temp") & "\PrintEmail.doc"
        objCurrentMessage.SaveAs strName, OlSaveAsType.olDoc
     
        Dim wd As object
        Set wd = CreateObject("Word.application")
        Dim WdDoc As object
        Set WdDoc = wd.Documents.Open(strName)
        wd.Visible = True
        With wd.Selection.PageSetup
            .TopMargin = wd.CentimetersToPoints(0.5)
            .BottomMargin = wd.CentimetersToPoints(0.5)
            .LeftMargin = wd.CentimetersToPoints(0.5)
            .RightMargin = wd.CentimetersToPoints(0.5)
            .Gutter = wd.CentimetersToPoints(0.5)
            .HeaderDistance = wd.CentimetersToPoints(0.5)
            .FooterDistance = wd.CentimetersToPoints(0.5)
            .PageWidth = wd.CentimetersToPoints(21)
            .PageHeight = wd.CentimetersToPoints(29.7)
        End With
        wd.ActiveDocument.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
        '    WdDoc.Close False
        '    wd.Quit
        '    DoEvents
        '    Kill strName
    End Sub

  7. #7
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 22
    Points : 10
    Points
    10

    Par défaut

    Bonjour,
    Merci pour le code cela fonctionne parfaitement :-)
    Il faut juste que je puisse faire en sorte que l'écran Word s'affiche automatiquement en première fenêtre et ferme le mail sur Outlook.
    Par contre je n'ai pas compris la référence Microsoft Word 1x.0 object Library que je que je dois rajouter. Je suis sur la version O365, j'ai affiché l'onglet Développeur, est-ce la que e trouve cette référence

    Merci pour votre aide

  8. #8
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 403
    Points : 5 917
    Points
    5 917
    Billets dans le blog
    16

    Par défaut

    Pour fermer l'Email

    avant le end sub

    olDiscard 1 Les modifications apportées au document sont ignorées.
    olPromptForSave 2 L'utilisateur est invité à enregistrer les documents.
    olSave 0 Les documents sont enregistrés.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objCurrentMessage.close  olPromptForSave

  9. #9
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 22
    Points : 10
    Points
    10

    Par défaut

    Dernière petite question, est ce que cela peut s'appliquer en mode délégation de boite mail (à savoir une personne peut de son Outlook gérer deux boites mails, faut-il installer dans cette macro aussi sur l'agenda de la personne qui a délégué ?
    Merci à toi

Discussions similaires

  1. Réponses: 4
    Dernier message: 09/06/2010, 17h44
  2. Réponses: 2
    Dernier message: 27/04/2007, 09h08
  3. enlever l'entête et le pied de page lors de l'impression
    Par Samysam25 dans le forum Mise en page CSS
    Réponses: 10
    Dernier message: 23/04/2007, 09h37
  4. comment supprimer des adresses e-mail?
    Par eleanario55 dans le forum Dépannage et Assistance
    Réponses: 3
    Dernier message: 08/09/2006, 16h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo