2 cách để đánh dấu hàng loạt tất cả các email Outlook cũ hơn một ngày cụ thể là đã đọc

Sau khi nhập nhiều email cũ vào Outlook và những email này ở trạng thái “chưa đọc”, bạn phải muốn đánh dấu hàng loạt chúng là đã đọc. Bây giờ, trong bài viết này, chúng tôi sẽ chỉ cho bạn 2 phương pháp nhanh chóng.

Đôi khi, bạn có thể cần đánh dấu hàng loạt email là đã đọc. Chẳng hạn, bạn có một tệp PST cũ chứa rất nhiều email cũ. Sau đó, bạn nhập email vào tệp Outlook PST của riêng mình. Tuy nhiên, sau khi nhập, những email này được hiển thị là “Chưa đọc” theo mặc định. Tại thời điểm này, bạn sẽ muốn đánh dấu hàng loạt những thư này, cũ hơn một ngày cụ thể, là đã đọc. Ở đây chúng tôi sẽ xem xét yêu cầu này để chia sẻ 2 cách tiếp cận tiện dụng và hiệu quả.

Phương pháp 1: Đánh dấu hàng loạt email được tìm thấy là đã đọc thủ công

1. Trước tiên, hãy mở một thư mục thư.
2. Sau đó, nhấp vào hộp tìm kiếm.
3. Tiếp theo, trong dải băng “Tìm kiếm”, nhấp vào nút “Tất cả các mục thư” trong nhóm “Phạm vi”.
4. Sau đó, nhập tiêu chí “đã gửi: <=2018/5/21” vào hộp tìm kiếm. Thay đổi “2018/5/12” thành ngày bạn muốn.
5. Khi quá trình tìm kiếm hoàn tất, hãy chọn tất cả các mục thư đã tìm thấy thông qua “Ctrl + A”.
6. Cuối cùng, nhấp chuột phải và chọn tùy chọn “Đánh dấu quảng cáo đã đọc”.

Phương pháp 2: Đánh dấu hàng loạt email cũ hơn ngày cụ thể là đã đọc bằng VBA

1. Để bắt đầu, hãy khởi chạy trình soạn thảo VBA trong Outlook theo “Cách chạy mã VBA trong Outlook của bạn".
2. Sau đó, sao chép đoạn mã sau vào một mô-đun.

Dim dDate As Date

Sub MarkEmailsOlderThanSpecificDateRead()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    dDate = InputBox("Enter the specific date:", , "2018/5/11")
 
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
 
           If objMail.SentOn <= dDate Then
              If objMail.UnRead = True Then
                 objMail.UnRead = False
                 objMail.Save
              End If
           End If
        End If
    Next
 
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

3. Sau đó, nhấn phím “F5” để chạy macro này ngay bây giờ.
4. Sau đó, trong hộp thoại bật lên nhỏ, hãy nhập ngày cụ thể và nhấn “OK”.
5. Cuối cùng, tất cả các email cũ hơn ngày cụ thể sẽ được đánh dấu là đã đọc.

Khôi phục tệp Outlook bị xâm phạm

Các tệp PST của Outlook có thể bị hỏng sau khi Outlook thỉnh thoảng gặp sự cố bất ngờ. Nếu bạn có một bản sao lưu cập nhật, bạn chỉ có thể phục hồi Outlook dữ liệu với bản sao lưu của bạn. Nếu không, bạn không có lựa chọn nào khác ngoài việc tìm kiếm một chuyên gia hoặc tiện ích chuyên biệt, chẳng hạn như DataNumen Outlook Repair để sửa chữa tệp Outlook.

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 chữa mdf 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