Τρόπος αυτόματης εκτύπωσης της πρώτης σελίδας σημαντικών εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook

Ορισμένοι χρήστες θα ήθελαν να επιτρέψουν στο Outlook να εκτυπώσει αυτόματα τα σημαντικά εισερχόμενα email. Επίσης, εάν ένα τέτοιο email είναι πολύ μεγάλο, για να μην σπαταλήσει χαρτιά, το Outlook θα εκτυπώσει μόνο την πρώτη σελίδα. Τώρα, σε αυτό το άρθρο, θα εκθέσουμε πώς να το πραγματοποιήσουμε μέσω προγραμματισμού.

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

Αυτόματη εκτύπωση της πρώτης σελίδας των σημαντικών εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου

1. Αρχικά, πρέπει να εκκινήσετε την εφαρμογή Outlook ως συνήθως.
2. Στη συνέχεια, στο κύριο παράθυρο του Outlook, πρέπει να πατήσετε τα πλήκτρα "Alt + F11".
3. Στη συνέχεια, θα έχετε πρόσβαση στο πρόγραμμα επεξεργασίας VBA με επιτυχία.
4. Σε αυτό το νέο παράθυρο, θα πρέπει να ανοίξετε μια κενή μονάδα, στην οποία θα πρέπει να αντιγράψετε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.

Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim objMailDocument As Word.Document
    Dim lPageCount As Long
 
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range.Copy
    
    Set objWordApp = CreateObject("Word.Application")
    Set objTempWordDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempWordDocument.Activate
 
    objTempWordDocument.Range.Paste
 
    lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
 
    'If the email takes up more than one page
    If lPageCount > 1 Then
       'Only print the first page
       objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
    Else
       'Otherwise, print the whole email
       objMail.PrintOut
    End If
 
    objMail.Close olDiscard
    objMail.UnRead = True
 
    objTempWordDocument.Close False
    objWordApp.Quit
End Sub

5. Μετά από αυτό, θα μπορούσατε να βγείτε από το τρέχον παράθυρο.
6. Στη συνέχεια, μεταβείτε στο μενού "Αρχείο" και κάντε κλικ στο κουμπί "Διαχείριση κανόνων και ειδοποιήσεων".
7. Στο αναδυόμενο παράθυρο διαλόγου "Κανόνες και ειδοποιήσεις", κάντε κλικ στο κουμπί "Νέος κανόνας".
8. Στη συνέχεια, στο νέο παράθυρο διαλόγου "Οδηγός κανόνων", επιλέξτε "Εφαρμογή κανόνα στα μηνύματα που λαμβάνω" και πατήστε "Επόμενο".
9. Στη δεύτερη οθόνη του "Rules Wizard", θα πρέπει να καθορίσετε τις προϋποθέσεις, δηλαδή να ορίσετε ποια μηνύματα ηλεκτρονικού ταχυδρομείου είναι σημαντικά για εσάς, όπως προέρχονται από συγκεκριμένους αποστολείς κ.λπ.
10. Μετά από αυτό, κάντε κλικ στο "Επόμενο", το οποίο θα σας οδηγήσει στην επόμενη οθόνη, στην οποία θα πρέπει να ορίσετε την ενέργεια κανόνα. Επιλέξτε "Εκτέλεση σεναρίου" και επιλέξτε τη μακροεντολή που προστέθηκε προηγουμένως.
11. Αργότερα, κάντε κλικ σε πολλά "Επόμενο" μέχρι να λάβετε την τελευταία οθόνη - "Ολοκλήρωση ρύθμισης κανόνα", στην οποία θα μπορούσατε να καθορίσετε ένα όνομα για αυτόν τον κανόνα και να ελέγξετε ξανά τη ρύθμιση κανόνα.
12. Τέλος, κάντε κλικ στο "Τέλος" για να αποθηκεύσετε αυτόν τον νέο κανόνα.
13. Τέλος, από τότε, κάθε φορά που ένα νέο σημαντικό εισερχόμενο email εισέρχεται στο γραμματοκιβώτιό σας, το Outlook θα εκτυπώνει αυτόματα την πρώτη του σελίδα εάν είναι πολύ μεγάλο.

Εξαγωγή μέγιστων δεδομένων από κατεστραμμένα αρχεία PST

Ίσως έχετε συνειδητοποιήσει την ευπάθεια του Outlook. Υπό αυτήν την περίπτωση, δεν πρέπει να αφήσετε κανένα περιθώριο για να προστατεύσετε τα δεδομένα σας στο Outlook. Ωστόσο, τις περισσότερες φορές, θα διαπιστώσετε ότι τα δεδομένα του Outlook μπορούν να καταστραφούν απλά λόγω του ξαφνικού τερματισμού. Έτσι, πρέπει να κάνετε προετοιμασίες για απροσδόκητα Διαφθορά στο Outlook, συμπεριλαμβανομένων των κανονικών αντιγράφων ασφαλείας PST και ενός ισχυρού εργαλείου διόρθωσης, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com