Outlook: Πώς να εκτυπώσετε email χωρίς εικόνες

Γενικά, εκτυπώνοντας ένα email στο Outlook, θα εκτυπωθούν και οι εικόνες. Αλλά μερικές φορές, θέλετε απλώς να εκτυπώσετε τα κείμενα χωρίς τις εικόνες, ωστόσο, στο Outlook, δεν υπάρχει ενσωματωμένη δυνατότητα που να μπορεί να υποστηρίξει αυτήν την εργασία. Αυτό το σεμινάριο παρέχει έναν κώδικα VBA που θα εκτυπώσει αμέσως το email χωρίς εικόνα μέσω του Word. Ή όταν ο υπολογιστής σας δεν διαθέτει εκτυπωτή, ο κωδικός VBA θα εξάγει πρώτα το email ως PDF χωρίς εικόνες και, στη συνέχεια, μπορείτε να εκτυπώσετε το PDF αφού ο εκτυπωτής είναι διαθέσιμος.

VBA για εκτύπωση email χωρίς εικόνες

VBA για εκτύπωση email χωρίς εικόνες

1. Επιλέξτε ένα email που θέλετε να εκτυπώσετε μόνο το κείμενο και, στη συνέχεια, πατήστε άλλος + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή μονάδα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα.

VBA: εξαγωγή email χωρίς εικόνες

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. κλικ Εργαλεία > αναφορές να επιτρέψει αναφορές – Έργο 1 διάλογος, τικ Βιβλιοθήκη αντικειμένων του Microsoft Word 16.0 πλαίσιο ελέγχου. Κάντε κλικ OK.

4-1. Κρατήστε τον κέρσορα μέσα στον κώδικα και πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί για να εκτελέσετε τον κώδικα και, στη συνέχεια, το email χωρίς εικόνες θα εκτυπωθεί αμέσως μέσω του Word. Αλλά εάν ο υπολογιστής σας δεν διαθέτει εκτυπωτή, ακολουθήστε το Βήμα 4.

4-2. Όταν ο υπολογιστής σας δεν διαθέτει εκτυπωτή, αφού το πατήσετε F5 πλήκτρο ή κλικ τρέξιμο κουμπί για να εκτελέσετε τον κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή ενός φακέλου για την τοποθέτηση του αρχείου PDF και το όνομα του αρχείου PDF. Κάντε κλικ Αποθήκευση.

Τώρα το email έχει εξαχθεί ως PDF χωρίς εικόνες. Ανοίξτε το αρχείο PDF και κάντε δεξί κλικ για να το επιλέξετε για να εκτυπώσετε το email.

Άκρο: Εάν θέλετε να αποθηκεύσετε μαζικά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου ως PDF (ή αρχεία Word, CSV, Excel, Txt, HTML) με εικόνες, κεφαλίδες, σώματα, Κοιν. Μαζική αποθήκευση χαρακτηριστικό του Kutools για το Outlook μπορεί να σας βοηθήσει, που χρειάζονται μόνο 3 βήματα.

1. Επιλέξτε email.

2. κλικ Kutools > Μαζική αποθήκευση.

3. Επιλέξτε μια τοποθεσία και ελέγξτε τη(τις) μορφή(ες) αρχείου που θέλετε. Κάντε κλικ στο Ok.

Αποκτήστε δωρεάν δοκιμή 30 ημερών του Kutools για το Outlook τώρα.

Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

• Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
• Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
• Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
• Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
• Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.

Διαβάστε περισσότερα ... Κατεβάστε τώρα...