Note: The other languages of the website are Google-translated. Back to English

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

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

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

Καρτέλα Office - Ενεργοποίηση επεξεργασίας καρτέλας και περιήγησης στο Office και να κάνετε την εργασία πολύ πιο εύκολη ...
Kutools για Outlook - Φέρνει 100 ισχυρές προηγμένες δυνατότητες στο Microsoft Outlook
  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά email μέσω κανόνων. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC. Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου. Απάντηση σε πολλά email ταυτόχρονα. Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Αυτόματη προσθήκη ημερομηνίας και ώρας στο θέμα ...
  • Εργαλεία συνημμένου: Αυτόματη αποσύνδεση, Συμπίεση όλων, Μετονομασία όλων, Αυτόματη αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων, Κατάργηση διπλών μηνυμάτων και επαφών ...
  • Περισσότερα από 100 προηγμένα χαρακτηριστικά θα λύστε τα περισσότερα από τα προβλήματά σας στο Outlook 2010-2019 και 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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

 doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

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

 doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

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

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

doc αφαίρεση διπλότυπων στοιχείων ημερολογίου 1

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


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

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