Outlook : Comment imprimer un e-mail sans images

En général, en imprimant un e-mail dans Outlook, les images seront également imprimées. Mais parfois, vous souhaitez simplement imprimer les textes sans les images, cependant, dans Outlook, aucune fonctionnalité intégrée ne peut prendre en charge ce travail. Ce didacticiel fournit un code VBA qui imprimera immédiatement l'e-mail sans image via Word. Ou lorsque votre ordinateur n'a pas d'imprimante, le code VBA exportera d'abord l'e-mail au format PDF sans images, puis vous pourrez imprimer le PDF une fois l'imprimante disponible.

VBA pour imprimer des e-mails sans images

Onglet Office - Activez l'édition et la navigation par onglets dans Microsoft Office, ce qui facilite le travail

Lire la suite...Télécharger ...

Kutools for Outlook - Boostez Outlook avec plus de 100 fonctionnalités avancées pour une efficacité supérieure

Automatisez l'envoi d'e-mails avec CC / BCC automatique, Transfert automatique par des règles ; envoyer Réponse automatique (Out of Office) sans nécessiter de serveur Exchange...
Recevez des rappels comme Avertissement BCC lorsque vous répondez à tous alors que vous êtes dans la liste BCC, et Rappeler en cas de pièces jointes manquantes pour les pièces jointes oubliées...
Améliorez l'efficacité de la messagerie avec Répondre (à tous) avec pièces jointes, Ajouter automatiquement un message d'accueil ou une date et une heure dans la signature ou l'objet, Répondre à plusieurs e-mails
Rationalisez l'envoi d'e-mails avec Rappel des e-mails, Outils de fixation (Tout compresser, Tout enregistrer automatiquement...), Supprimer les doublonset Rapport rapide

Boostez votre Outlook 2021 - 2010 ou Outlook 365 avec ces fonctionnalités avancées. Profitez d'un essai gratuit complet de 60 jours et améliorez votre expérience de messagerie !

Lire la suite...Télécharger ...

VBA pour imprimer des e-mails sans images

1. Sélectionnez un e-mail dont vous souhaitez imprimer uniquement le texte, puis appuyez sur autre + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module pour créer un nouveau module vierge, puis copiez et collez le code ci-dessous dans le module.

VBA : exporter des e-mails sans 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