Parfois, vous souhaiterez peut-être simplement imprimer le texte d'un e-mail, sans inclure les images intégrées. Plutôt que de supprimer les images avant l'impression, vous pouvez appliquer la méthode présentée dans cet article. Il peut exclure automatiquement les images lors de l'impression.
Comme nous le savons tous, l'impression d'images gaspille de l'encre. Par conséquent, parfois, lors de l'impression d'un e-mail, vous pouvez penser que les images insérées sont inutiles. Ainsi, vous souhaiterez peut-être exclure les images lors de l'impression d'un e-mail. Dans ce cas, vous pouvez utiliser la méthode suivante pour y parvenir sans effort.
Exclure les images intégrées lors de l'impression d'un e-mail
- Tout d'abord, lancez l'application Outlook.
- Ensuite, accédez à l'éditeur Outlook VBA selon l'article - "Comment exécuter le code VBA dans votre Outlook ».
- Ensuite, vous devez activer la « bibliothèque d'objets MS Word », à propos de laquelle vous pouvez vous référer à «Comment ajouter une référence à une bibliothèque d'objets en VBA ».
- Après cela, placez le code VBA suivant dans un module inutilisé.
Sub ExcludeEmebeddedImagesWhenPrintingEmail()
Dim objMail As Outlook.MailItem
Dim strMailDocument As String
Dim objWordApp As Word.Application
Dim objMailDocument As Word.Document
Dim objInlineShape As Word.InlineShape
'Get the source email
Select Case Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
'Save the email as a Word document
strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
objMail.SaveAs strMailDocument, olDoc
'Remove the embedded images from the document
Set objWordApp = CreateObject("Word.Application")
Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
objWordApp.Visible = True
For Each objInlineShape In objMailDocument.InlineShapes
objInlineShape.Delete
Next
'Print out the document
objMailDocument.PrintOut
objMailDocument.Close
objWordApp.Quit
Kill strMailDocument
End Sub
- Plus tard, fermez la fenêtre "Microsoft Visual Basic pour Applications" actuelle.
- Ensuite, ajoutez la nouvelle macro à la barre d'outils Accès rapide.
- Finalement, vous pouvez essayer cette macro maintenant.
- Pour commencer, sélectionnez ou ouvrez le courriel source.
- Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
- Immédiatement, l'e-mail sera imprimé sans images intégrées, ce qui ressemblera à la capture d'écran suivante :
Protégez efficacement vos données Outlook
De nos jours, les données ne sont toujours pas sécurisées dans la mesure où il existe trop de risques potentiels, tels que des problèmes matériels, des pannes logicielles, des infections virales, etc. Il en va de même pour vos données Outlook. Par conséquent, vous devez faire des efforts pour protéger vos données Outlook. Par exemple, vous devez effectuer des sauvegardes PST régulières. De plus, vous devez apprendre à utiliser Scanpst pour réparer le fichier Outlook. Enfin, la préparation d'un puissant outil de réparation externe est également une nécessité, comme DataNumen Outlook Repair.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com