Κατά καιρούς, χρειάζεται να εκτυπώσετε μόνο την κανονική ή την κεφαλίδα του διαδικτύου ενός email του Outlook. Τώρα, αυτή η ανάρτηση θα σας δείξει 2 γρήγορες και απλές προσεγγίσεις.
Από το προηγούμενο άρθρο - "2 Συμβουλές για εκτύπωση email Outlook χωρίς κεφαλίδα και όνομα χρήστη«, Μπορείτε να μάθετε τους εύκολους τρόπους εκτύπωσης μόνο του σώματος μηνυμάτων μιας αλληλογραφίας. Αλλά, μερικές φορές, μπορεί να θέλετε να εκτυπώσετε την κανονική κεφαλίδα ή το διαδίκτυο ενός email, δηλαδή τον αποστολέα, τους παραλήπτες και άλλες πληροφορίες του email. Έτσι, στο εξής, θα σας διδάξουμε 2 μεθόδους για να το αποκτήσετε.
Μέθοδος 1: Εκτύπωση χειροκίνητα
Εκτύπωση κεφαλίδας Διαδικτύου
- Αρχικά, κάντε διπλό κλικ στο μήνυμα ηλεκτρονικού ταχυδρομείου για να το ανοίξετε στο παράθυρο Μηνύματα.
- Στη συνέχεια, μεταβείτε στο μενού "Αρχείο".
- Στην καρτέλα "Πληροφορίες", κάντε κλικ στο κουμπί "Ιδιότητες".
- Στο παράθυρο "Ιδιότητες", κάντε κλικ στο πλαίσιο "Κεφαλίδες Διαδικτύου".
- Στη συνέχεια, πατήστε "Ctrl + A" για να επιλέξετε όλα και "Ctrl + C" για να αντιγράψετε τις πλήρεις κεφαλίδες.
- Αργότερα, δημιουργήστε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου και πατήστε "Ctrl +V" για να επικολλήσετε τις κεφαλίδες στο σώμα.
- Τέλος, μεταβείτε στο "Αρχείο"> "Εκτύπωση" για να εκτυπώσετε τη νέα αλληλογραφία.
Εκτύπωση κανονικής κεφαλίδας
- Αρχικά, επιλέξτε ή ανοίξτε το email προέλευσης.
- Στη συνέχεια, κάντε κλικ στο κουμπί "Προώθηση".
- Στην αναδυόμενη αλληλογραφία προώθησης, επιλέξτε και αφαιρέστε το σώμα του μηνύματος της αρχικής αλληλογραφίας για να αφήσετε μόνο την κεφαλίδα, όπως το παρακάτω στιγμιότυπο οθόνης.
- Τελικά, εκτυπώστε την τρέχουσα αλληλογραφία προώθησης ως συνήθως.
Μέθοδος 2: Εκτύπωση με VBA
Εκτύπωση κεφαλίδας Διαδικτύου
- Για αρχή, ανοίξτε ή επιλέξτε το email που θέλετε.
- Στη συνέχεια, ξεκινήστε τον επεξεργαστή Outlook VBA μέσω του "Alt + F11".
- Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα σε μια ενότητα.
Sub PrintFullHeaders()
Dim objMail As Outlook.MailItem
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim strHeader As String
Dim objTempMail As Outlook.MailItem
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
'Get full headers
Set objPropertyAccessor = objMail.PropertyAccessor
strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
'Print headers in temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
objTempMail.HTMLBody = "<HTML><BODY>" & strHeader & "</BODY></HTML>"
objTempMail.PrintOut
End Sub
- Τέλος, κάντε κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων.
- Αμέσως θα εκτυπωθεί η κεφαλίδα του Διαδικτύου του email.
Εκτύπωση κανονικής κεφαλίδας
- Ακόμα στον επεξεργαστή VBA, αντιγράψτε τον παρακάτω κώδικα σε μια ενότητα.
Sub PrintShortHeaders()
Dim objMail As Outlook.MailItem
Dim objTempMail As Outlook.MailItem
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
Set objTempMail = objMail.Copy
'Remove the body, leave headers only
objTempMail.Body = ""
objTempMail.PrintOut
End Sub
- Μετά από αυτό, εκτελέστε αυτήν τη μακροεντολή.
- Αμέσως, η τυπική κεφαλίδα του μηνύματος ηλεκτρονικού ταχυδρομείου θα εκτυπωθεί.
Προσοχή στα Άγνωστα Μηνύματα
Οι κεφαλίδες μπορούν να αποκαλύψουν πολλές πληροφορίες του email, συμπεριλαμβανομένων των διευθύνσεων IP. Αν θέλετε να διαπιστώσετε εάν ένα email είναι ύποπτο, πρέπει να ελέγξετε τις κεφαλίδες. Για να είμαστε ειλικρινείς, συνιστάται να μην εμπιστεύεστε τα email από άγνωστους αποστολείς, καθώς τα περισσότερα από αυτά είναι ανεπιθύμητα μηνύματα και περιέχουν ακόμη και κακόβουλες μακροεντολές. Μπορούν να επιτεθούν εύκολα στο αρχείο Outlook σας. Εάν το αρχείο Outlook είναι κατεστραμμένο, πρέπει να καταβάλετε προσπάθειες για να το δοκιμάσετε. Επισκευή του Outlook. Είναι αρκετά κόμπο αν δεν καταφύγετε σε ένα επαγγελματικό και στιβαρό εργαλείο, όπως π.χ. DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server διαφθορά και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com