Discussion :

[Kaytilou]

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

[Oliv-]

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

[Kaytilou]

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

[Oliv-]

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

[Kaytilou]

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

[Oliv-]

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

[Kaytilou]

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

[Oliv-]

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

[Kaytilou]

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

[Kaytilou]

Bonsoir Oliv
Avant de cloture cette discussion qui m'a été fort utile, merci pour ta disponibilité, dernière petite question, est ce que cela peut s'appliquer en mode délégation de boite mail (à savoir une personne qui gère de son Outlook deux boites mails), faut-il installer dans cette macro aussi sur l'agenda de la personne qui a délégué ?
Merci à toi
Bonne nuit

[Oliv-]

Oui
Seulement sur le outlook de celui qui imprime