Μετάβαση στο κύριο περιεχόμενο

Πώς να εκτυπώσετε ένα email χωρίς τους παραλήπτες του στο Outlook;

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

Εκτυπώστε ένα email χωρίς τους παραλήπτες του με VBA

Εκτυπώστε εύκολα ένα απεσταλμένο email με παραλήπτες Bcc στο Outlook

Όπως γνωρίζετε, το πεδίο Bcc δεν θα εκτυπωθεί όταν εκτυπώνετε ένα απεσταλμένο email στο Outlook. Ωστόσο, με φανταστικό Προηγμένη εκτύπωση δυνατότητα του Kutools για Outlook, μπορείτε εύκολα να εκτυπώσετε ένα απεσταλμένο email χωρίς κεφαλίδα, χωρίς όνομα χρήστη, συμπεριλαμβανομένων φόντων και με παραλήπτες Bcc.

εκτύπωση παραληπτών bcc

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

βέλος μπλε δεξιά φούσκα Εκτυπώστε ένα email χωρίς τους παραλήπτες του με VBA

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

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

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

VBA: Εκτύπωση email χωρίς παραλήπτες

Public Sub PrintWithoutRecipient()
Dim oItem As Outlook.MailItem
Dim i As Long

For i = 1 To Application.ActiveExplorer.Selection.Count
Set oItem = Application.ActiveExplorer.Selection.Item(i)
oItem.To = ""
oItem.CC = ""
oItem.PrintOut
oItem.Close olDiscard
Set oItem = Nothing
Next
End Sub

3. Πάτα το F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

Τώρα το επιλεγμένο email εκτυπώνεται χωρίς τους παραλήπτες του.

Σημείωση: Αυτό το VBA θα εκτυπώσει το email με τον προεπιλεγμένο εκτυπωτή και τις ρυθμίσεις εκτύπωσης που διαμορφώνετε στο Outlook.


βέλος μπλε δεξιά φούσκαΣχετικά άρθρα


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations