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

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

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

Καρτέλα Office - Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Microsoft Office, κάνοντας την εργασία άνετη

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

Kutools for Outlook - Ενισχύστε το Outlook με 100+ προηγμένες δυνατότητες για ανώτερη απόδοση

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

Ενισχύστε το Outlook 2021 - 2010 ή το Outlook 365 με αυτές τις προηγμένες δυνατότητες. Απολαύστε μια ολοκληρωμένη δωρεάν δοκιμή 60 ημερών και αναβαθμίστε την εμπειρία ηλεκτρονικού ταχυδρομείου σας!

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

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