Δεν μπορείτε να ρυθμίσετε το Outlook ώστε να χρησιμοποιεί έναν συγκεκριμένο μη προεπιλεγμένο εκτυπωτή για την εκτύπωση μηνυμάτων ηλεκτρονικού ταχυδρομείου. Αλλά σε αυτό το άρθρο, θα σας δείξουμε μια μέθοδο για να το επιτύχετε με το Outlook VBA.
Ο υπολογιστής σας πρέπει να έχει ορίσει έναν εκτυπωτή ως τον προεπιλεγμένο, ο οποίος θα εφαρμοστεί σε όλα τα προγράμματα σε αυτόν τον υπολογιστή. Σε αυτήν την περίπτωση, εάν θέλετε να εκτυπώσετε μηνύματα ηλεκτρονικού ταχυδρομείου μέσω ενός μη προεπιλεγμένου εκτυπωτή στο Outlook, πρέπει να αλλάζετε τον εκτυπωτή κάθε φορά κατά την εκτύπωση. Είναι αρκετά ενοχλητικό. Επομένως, στα ακόλουθα, θα σας κοινοποιήσουμε έναν τρόπο αυτόματης χρήσης ενός συγκεκριμένου εκτυπωτή για μηνύματα ηλεκτρονικού ταχυδρομείου χωρίς να χρειάζεται να αλλάζετε εκτυπωτή κάθε φορά.
Αυτόματη χρήση συγκεκριμένου εκτυπωτή για εκτύπωση email
- Από την αρχή, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, στο κύριο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια, στο παράθυρο «Microsoft Visual Basic for Applications» που εμφανίζεται, πρέπει πρώτα να ενεργοποιήσετε τη «Βιβλιοθήκη αντικειμένων Microsoft Word». Μπορείτε να κάνετε κλικ στα «Εργαλεία» > «Αναφορά» για να την ενεργοποιήσετε.
- Στη συνέχεια, πρέπει να έχετε πρόσβαση σε μια κενή μονάδα.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.
Sub PrintEmail()
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objWordApp As Word.Application
Dim strTempFolder As String
Dim strMailDocument As String
Dim objMailDocument As Word.Document
Dim strPrinter As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set objItem = ActiveInspector.CurrentItem
Case olExplorer
Set objItem = ActiveExplorer.Selection.Item(1)
End Select
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objWordApp = CreateObject("Word.Application")
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
objMail.SaveAs strMailDocument, olDoc
Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
objWordApp.Visible = True
objMailDocument.Activate
strPrinter = objWordApp.ActivePrinter
'Change to the name of specific printer
objWordApp.ActivePrinter = "Specific Printer"
objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
objWordApp.ActivePrinter = strPrinter
objMailDocument.Close False
objWordApp.Quit
Kill strMailDocument
End If
End Sub
- Μετά από αυτό, μπορείτε να κλείσετε το τρέχον παράθυρο.
- Στη συνέχεια, μεταβείτε στο μενού "Αρχείο" και κάντε κλικ στο "Επιλογές".
- Στο παράθυρο "Επιλογές Outlook", μεταβείτε στην καρτέλα "Γραμμή εργαλείων γρήγορης πρόσβασης" και προσθέστε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης όπως συνήθως.
- Τελικά, μπορείτε να δοκιμάσετε αυτό το έργο VBA.
- Αρχικά, επιλέξτε ή ανοίξτε ένα email που θέλετε να εκτυπώσετε.
- Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Το email θα εκτυπωθεί ταυτόχρονα από τον συγκεκριμένο εκτυπωτή.
- Από τώρα και στο εξής, για να εκτυπώσετε μηνύματα ηλεκτρονικού ταχυδρομείου από συγκεκριμένο εκτυπωτή, μπορείτε απλώς να χρησιμοποιήσετε αυτήν τη μακροεντολή.
Ανακτήστε το Outlook μετά από καταστροφή ατυχημάτων
Για να αποτρέψετε την απώλεια δεδομένων του Outlook, πρέπει να καταβάλετε μεγάλες προσπάθειες. Για παράδειγμα, θα πρέπει να δημιουργείτε αντίγραφα ασφαλείας του αρχείου PST σε τακτική βάση. Φυσικά, συνιστάται να αποκτήσετε ένα εξωτερικό εργαλείο επιδιόρθωσης, όπως DataNumen Outlook Repair. Μπορεί να επιδιορθώστε το PST σφάλματα και επαναφέρετε τα μέγιστα δεδομένα του Outlook για εσάς.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com