Nếu bạn đã tạo rất nhiều mẫu người dùng trong Outlook của mình và bây giờ muốn xóa chúng hàng loạt, bạn có thể tham khảo bài viết này. Ở đây chúng tôi sẽ chia sẻ 2 phương pháp nhanh chóng với bạn để đạt được nó.
Outlook cho phép bạn tạo các mẫu người dùng khác nhau, điều này có thể cải thiện đáng kể hiệu quả của bạn. Có lẽ bạn đã tùy chỉnh và lưu trữ nhiều mẫu trong Outlook của mình. Bây giờ, nếu bạn nghĩ rằng chúng không còn hữu ích nữa, bạn có thể muốn xóa chúng. Sau đó, chúng tôi sẽ hướng dẫn bạn 2 cách để xóa chúng hàng loạt. Bây giờ hãy đọc để có được chúng một cách chi tiết.
Phương pháp 1: Tìm & Xóa mẫu người dùng theo cách thủ công
- Đối với nhưtart, khởi chạy Outlook.
- Sau đó, tạo một thư mới bằng cách nhấp vào nút “E-mail mới”.
- Tiếp theo, trong cửa sổ tin nhắn mới, nhấp vào “Tệp” ở góc trên bên phải.
- Trong menu “Tệp”, nhấp vào “Lưu dưới dạng”.
- Sau đó, trong hộp thoại bật lên của “Lưu dưới dạng”, chọn “Mẫu Outlook” từ danh sách trường “Lưu dưới dạng:”.
- Ngay lập tức, thư mục mặc định để lưu mẫu sẽ được mở trong hộp thoại hiện tại.
- Bây giờ, sao chép đường dẫn thư mục.
- Sau đó, mở Windows Explorer và dán đường dẫn thư mục vào thanh địa chỉ và nhấn “Enter”.
- Cuối cùng, trong thư mục đã mở, chọn tất cả các mẫu và nhấn phím “Delete” để xóa tất cả.
Phương pháp 2: Xóa hàng loạt mẫu người dùng bằng VBA
- Để bắt đầu, hãy chuyển đến trình soạn thảo Outlook VBA thông qua “Alt + F11”.
- Trong cửa sổ tiếp theo, sao chép mã VBA sau vào một mô-đun.
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
- Cuối cùng, nhấn nút phím “F5” để chạy macro này.
- Khi macro hoàn tất, một lời nhắc sẽ hiển thị, như thể hiện trong hình bên dưới.
- Bây giờ, bạn có thể kiểm tra thư mục cho các mẫu người dùng. Tất cả các mẫu đã biến mất.
Tránh mất dữ liệu Outlook khó chịu
Được biết, Outlook dễ bị tấn công. Nói cách khác, Outlook bị hỏng không phải là rarđ. Do đó, để tránh bị hỏng hoặc mất dữ liệu Outlook, bạn nên thực hiện nhiều biện pháp phòng ngừa. Chẳng hạn, bạn phải thường xuyên sao lưu tệp PST. Bên cạnh đó, để cung cấp giải cứu ngay lập tức, tốt hơn hết bạn nên giữ một thiết bị mạnh mẽ và đã được chứng minh rõ ràng. Sửa chữa Outlook Tiện ích tiện dụng, thích DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa SQL Server và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm