Εάν έχετε δημιουργήσει πολλά πρότυπα χρηστών στο Outlook και θέλετε τώρα να τα διαγράψετε μαζικά, μπορείτε να ανατρέξετε σε αυτό το άρθρο. Εδώ θα μοιραστούμε μαζί σας 2 γρήγορες μεθόδους για να το πετύχετε.
Το Outlook σάς επιτρέπει να δημιουργήσετε διάφορα πρότυπα χρηστών, τα οποία μπορούν να βελτιώσουν σημαντικά την αποτελεσματικότητά σας. Ίσως έχετε προσαρμόσει και αποθηκεύσει πολλά πρότυπα στο Outlook. Τώρα, αν νομίζετε ότι δεν είναι πλέον χρήσιμα, μπορείτε να τα διαγράψετε. Στη συνέχεια, θα σας διδάξουμε 2 προσεγγίσεις για να τις διαγράψετε μαζικά. Τώρα διαβάστε για να τα δείτε αναλυτικά.
Μέθοδος 1: Εύρεση και μη αυτόματη διαγραφή προτύπων χρήστη
- Για αρχή, ξεκινήστε το Outlook.
- Στη συνέχεια, δημιουργήστε ένα νέο μήνυμα κάνοντας κλικ στο κουμπί "Νέο E-mail".
- Στη συνέχεια, στο νέο παράθυρο μηνύματος, κάντε κλικ στο "Αρχείο" στην επάνω δεξιά γωνία.
- Στο μενού "Αρχείο", κάντε κλικ στην επιλογή "Αποθήκευση ως".
- Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου "Αποθήκευση ως", επιλέξτε "Πρότυπο Outlook" από τη λίστα του πεδίου "Αποθήκευση ως τύπος:".
- Αμέσως, ο προεπιλεγμένος φάκελος για την αποθήκευση προτύπων θα ανοίξει στο τρέχον πλαίσιο διαλόγου.
- Τώρα, αντιγράψτε τη διαδρομή του φακέλου.
- Μετά από αυτό, ανοίξτε την Εξερεύνηση των Windows και επικολλήστε τη διαδρομή φακέλου στη γραμμή διευθύνσεων και πατήστε "Enter".
- Τέλος, στον ανοιχτό φάκελο, επιλέξτε όλα τα πρότυπα και πατήστε το πλήκτρο "Διαγραφή" για να διαγράψετε όλα.
Μέθοδος 2: Μαζική διαγραφή προτύπων χρήστη με VBA
- Αρχικά, μεταβείτε στο πρόγραμμα επεξεργασίας του Outlook VBA μέσω του "Alt + F11".
- Στο επόμενο παράθυρο, αντιγράψτε τον ακόλουθο κώδικα VBA σε μια λειτουργική μονάδα.
Sub DeleteAllUserTemplates()
Dim strEnviro As String
Dim strTemplateFolder As String
Dim objFileSystem As Object
Dim objFolder As Object
Dim objFile As Object
Dim strFileExtension As String
'Get the local folder storing Stationery files
strEnviro = CStr(Environ("USERPROFILE"))
strTemplateFolder = strEnviro & "\Documents\UserTemplates"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.GetFolder(strTemplateFolder)
'Delete all oft files in the folder
For Each objFile In objFolder.Files
strFileExtension = objFileSystem.GetExtensionName(objFile)
If strFileExtension = "oft" Then
objFileSystem.DeleteFile (objFile.Path)
End If
Next
'Get a prompt
MsgBox "All user templates have been deleted!", vbInformation + vbOKOnly
End Sub
- Τέλος, πατήστε το πλήκτρο "F5" για να εκτελέσετε αυτήν τη μακροεντολή.
- Όταν ολοκληρωθεί η μακροεντολή, θα εμφανιστεί ένα μήνυμα, όπως φαίνεται στο παρακάτω σχήμα.
- Τώρα, μπορείτε να ελέγξετε το φάκελο για πρότυπα χρηστών. Όλα τα πρότυπα έχουν φύγει.
Αποφύγετε τη δυσάρεστη απώλεια δεδομένων του Outlook
Είναι γνωστό ότι το Outlook είναι ευάλωτο. Με άλλα λόγια, η καταστροφή του Outlook δεν είναι σπάνια. Επομένως, για να αποφύγετε την καταστροφή ή την απώλεια δεδομένων του Outlook, θα πρέπει να λάβετε πολλαπλές προφυλάξεις. Για παράδειγμα, πρέπει να διατηρείτε αντίγραφα ασφαλείας των αρχείων PST σε τακτική βάση. Επιπλέον, για να παρέχετε άμεση βοήθεια, θα πρέπει να διατηρείτε ένα ισχυρό και αποδεδειγμένο αντίγραφο ασφαλείας. Επισκευή του Outlook εύχρηστο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή SQL Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com