Ίσως έχετε δημιουργήσει πολλά πρόχειρα email και ελπίζετε να τα επαναχρησιμοποιήσετε πολλές φορές. Εάν ναι, γιατί δεν τα αποθηκεύετε ομαδικά ως πρότυπα του Outlook; Αυτό το άρθρο θα σας διδάξει να το επιτύχετε με μία κίνηση μέσω VBA.
Από προεπιλογή, το Outlook επιτρέπει στους χρήστες να αποθηκεύουν μόνο ένα μήνυμα ηλεκτρονικού ταχυδρομείου ως πρότυπο ταυτόχρονα. Με άλλα λόγια, δεν μπορείτε να αποθηκεύσετε πολλά πρόχειρα email ως πρότυπα μαζικά. Όπως μπορείτε να δείτε, όταν επιλέγετε περισσότερα από ένα μηνύματα και πηγαίνετε στο "Αρχείο" > "Αποθήκευση ως", δεν μπορείτε να βρείτε τη μορφή "Πρότυπο του Outlook" στη λίστα "Αποθήκευση ως τύπος", μόνο διαθέσιμο "Μόνο κείμενο". Όμως, θα σας παρουσιάσουμε πώς να το πραγματοποιήσετε μαζικά στα ακόλουθα.
Μαζική αποθήκευση πολλών πρόχειρων μηνυμάτων ηλεκτρονικού ταχυδρομείου ως πρότυπα του Outlook
- Στην αρχή, ενεργοποιήστε το πρόγραμμα επεξεργασίας Outlook VBA.
- Στο νέο παράθυρο "Microsoft Visual Basic for Applications", αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA.
Sub SaveMultipleDraftsAsTemplates()
Dim objSelection As Outlook.Selection
Dim i As Long
Dim strTemplateFolder As String
Dim objMail As Outlook.MailItem
Dim strSubject As String
'Get all selected mails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Get the default folder for saving Outlook Templates
strTemplateFolder = CStr(Environ("USERPROFILE")) & "\Documents\UserTemplates\"
'Save each mail as template
For i = objSelection.Count To 1 Step -1
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Subject <> "" Then
'Remove unsupported characters
strSubject = objMail.Subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
objMail.SaveAs strTemplateFolder & strSubject & ".oft", olTemplate
Else
objMail.SaveAs strTemplateFolder & "Template" & i & ".oft", olTemplate
End If
End If
Next
'Open the folder of Templates
Shell "Explorer.exe" & " " & strTemplateFolder, vbNormalFocus
End If
End Sub
- Μετά από αυτό, για μεταγενέστερη διευκόλυνση, προτείνεται να επισυνάψετε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης (QAT). Σχετικά με τα λεπτομερή βήματα, μπορείτε να διαβάσετε "Τρόπος εκτέλεσης κώδικα VBA στο Outlook"
- Τελικά, μπορείτε να τραβήξετε μια φωτογραφία ακολουθώντας τις παρακάτω λειτουργίες.
- Αρχικά, επιλέξτε τα πρόχειρα email που θα αποθηκευτούν ως πρότυπα.
- Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στο QAT.
- Όταν ολοκληρωθεί η μακροεντολή, θα εμφανιστεί ο φάκελος των Windows για την αποθήκευση των προεπιλεγμένων προτύπων του Outlook. Μπορείτε να δείτε ότι τα πρότυπα από τα επιλεγμένα πρόχειρα email βρίσκονται εκεί.
Το εργαλείο επιδιόρθωσης εισερχομένων εξακολουθεί να μπορεί να αποτύχει
Όταν πρόκειται για το εσωτερικό εργαλείο επιδιόρθωσης του Outlook – Scanpst, ένας μεγάλος αριθμός χρηστών θα το εκτιμήσει. Αναμφίβολα, αυτό το βοηθητικό πρόγραμμα είναι πράγματι ικανό να επιλύσει τα περισσότερα μικρά ζητήματα στο Outlook. Ωστόσο, δεν είναι εντελώς άψογο. Μπορεί ακόμα να αποτύχει και να εμφανίσει πολλά σφάλματα. Για παράδειγμα, σε περίπτωση σοβαρής Διαφθορά στο Outlook, δεν είναι δυνατό να επιδιορθώσει το παραβιασμένο αρχείο PST. Σε αυτό το σενάριο, δεν έχετε άλλη εναλλακτική από το να χρησιμοποιήσετε ένα ισχυρότερο και κορυφαίο εργαλείο τρίτων, όπως π.χ. DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com