Μερικές φορές, μπορεί απλώς να θέλετε να εκτυπώσετε το κείμενο ενός email, χωρίς να συμπεριλαμβάνονται οι ενσωματωμένες εικόνες. Αντί να αφαιρέσετε τις εικόνες πριν από την εκτύπωση, μπορείτε να εφαρμόσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο. Μπορεί να αποκλείσει αυτόματα τις εικόνες κατά την εκτύπωση.
Όπως όλοι γνωρίζουμε, η εκτύπωση εικόνων είναι σπατάλη μελανιού. Επομένως, κατά καιρούς, όταν εκτυπώνετε ένα email, μπορεί να νομίζετε ότι οι εικόνες που εισάγονται είναι άχρηστες. Επομένως, μπορεί να θέλετε να εξαιρέσετε τις εικόνες κατά την εκτύπωση ενός email. Σε αυτή την περίπτωση, θα μπορούσατε να χρησιμοποιήσετε τον ακόλουθο τρόπο για να το πετύχετε με ευκολία.
Εξαιρέστε τις ενσωματωμένες εικόνες κατά την εκτύπωση ενός email
- Πρώτα ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, αποκτήστε πρόσβαση στο πρόγραμμα επεξεργασίας Outlook VBA σύμφωνα με το άρθρο - "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Στη συνέχεια, πρέπει να ενεργοποιήσετε τη «Βιβλιοθήκη αντικειμένων MS Word», για την οποία μπορείτε να ανατρέξετε στο «Πώς να προσθέσετε μια αναφορά βιβλιοθήκης αντικειμένων σε VBA".
- Μετά από αυτό, τοποθετήστε τον ακόλουθο κώδικα VBA σε μια μονάδα που δεν χρησιμοποιείται.
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
- Αργότερα, κλείστε το τρέχον παράθυρο "Microsoft Visual Basic για εφαρμογές".
- Στη συνέχεια, προσθέστε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Τελικά, μπορείτε να δοκιμάσετε αυτήν τη μακροεντολή τώρα.
- Για να ξεκινήσετε, επιλέξτε ή ανοίξτε το email προέλευσης.
- Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Αμέσως, το email θα εκτυπωθεί χωρίς ενσωματωμένες εικόνες, οι οποίες θα μοιάζουν με το ακόλουθο στιγμιότυπο οθόνης:
Προστατέψτε αποτελεσματικά τα δεδομένα του Outlook
Σήμερα, τα δεδομένα είναι πάντα ανασφαλή καθώς υπάρχουν πάρα πολλοί πιθανοί κίνδυνοι, όπως δυσλειτουργίες υλικού, σφάλματα λογισμικού, μόλυνση από ιούς και ούτω καθεξής. Το ίδιο ισχύει και για τα δεδομένα του Outlook. Ως εκ τούτου, πρέπει να καταβάλετε προσπάθειες για να προστατέψετε τα δεδομένα του Outlook. Για παράδειγμα, θα πρέπει να δημιουργείτε τακτικά αντίγραφα ασφαλείας PST. Επιπλέον, πρέπει να μάθετε πώς να χρησιμοποιείτε Σάρωση για να επιδιορθώσετε το αρχείο του Outlook. Τελευταίο αλλά εξίσου σημαντικό, η προετοιμασία ενός ισχυρού εξωτερικού εργαλείου επισκευής είναι επίσης ένα θέμα αναγκαιότητας, όπως π.χ DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com