Outlook : comment imprimer un e-mail sans les images

Généralement, lorsque vous imprimez un e-mail dans Outlook, les images sont incluses automatiquement. Toutefois, il arrive que vous souhaitiez imprimer uniquement le texte, sans les images. Malheureusement, Outlook ne propose pas de fonctionnalité intégrée pour cela. Ce tutoriel vous fournit un code VBA qui imprime immédiatement votre e-mail sans images via Word. Si votre ordinateur n’est pas équipé d’une imprimante, ce même code exporte d’abord l’e-mail au format PDF, dépourvu d’images, afin que vous puissiez l’imprimer dès qu’une imprimante sera disponible.

Code VBA pour imprimer un e-mail sans les images

---

Code VBA pour imprimer un e-mail sans les images

1. Sélectionnez un e-mail dont vous souhaitez imprimer uniquement le texte, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module afin de créer un nouveau module vide, puis copiez-collez le code ci-dessous dans ce module.

VBA : exporter un e-mail sans les images

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

3. Cliquez sur Outils > Références pour ouvrir la boîte de dialogue Références – Projet 1, puis cochez la case Microsoft Word 16,0 Object Library. Cliquez sur OK.

 

4-1. Placez le curseur à l’intérieur du code, puis appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter le code. L’e-mail sans images sera alors immédiatement imprimé via Word. Toutefois, si votre ordinateur ne dispose pas d’imprimante, veuillez suivre l’étape 4.

4-2. Lorsque votre ordinateur ne dispose pas d’imprimante, après avoir appuyé sur la touche F5 ou cliqué sur le bouton Exécuter pour exécuter le code, une boîte de dialogue s’ouvre afin que vous choisissiez un dossier où enregistrer le fichier PDF et que vous nommiez ce fichier. Cliquez sur Enregistrer.

 

L’e-mail a maintenant été exporté au format PDF sans les images. Ouvrez le fichier PDF, puis cliquez avec le bouton droit et sélectionnez Imprimer pour imprimer l’e-mail.

Astuce : si vous souhaitez enregistrer en lot les e-mails sélectionnés au format PDF (ou Word, CSV, Excel, TXT, fichier HTML), avec leurs images, en-têtes, corps de message et destinataires en copie, la fonctionnalité Enregistrement groupé de Kutools pour Outlook vous permet de le faire en seulement trois étapes.

1. Sélectionnez les e-mails souhaités.

2. Cliquez sur Kutools > Enregistrement groupé.

3. Choisissez un emplacement et sélectionnez le ou les types de fichiers souhaités, puis cliquez sur OK.