2 Cara Menandai Semua Email Outlook Lebih Lama dari Tanggal Tertentu sebagai Telah Dibaca

Setelah mengimpor beberapa email lama ke Outlook dan email ini berstatus "belum dibaca", Anda harus ingin menandainya secara berkelompok sebagai telah dibaca. Sekarang, di artikel ini, kami akan menunjukkan 2 metode cepat untuk Anda.

Terkadang, Anda mungkin perlu menandai beberapa email sekaligus sebagai telah dibaca. Misalnya, Anda memiliki file PST lama, yang berisi banyak email lama. Kemudian, Anda mengimpor email ke file PST Outlook Anda sendiri. Namun, setelah mengimpor, email ini ditampilkan sebagai "Belum Dibaca" secara default. Saat ini, Anda ingin menandai email-email ini, yang lebih lama dari tanggal tertentu, sebagai telah dibaca. Di sini kita akan melihat persyaratan ini untuk membagikan 2 pendekatan praktis dan efisien.

Metode 1: Tanda Batch Ditemukan Email sebagai Dibaca Secara Manual

1. Sebagai langkah awal, buka folder email.
2. Kemudian, klik ke dalam kotak pencarian.
3. Selanjutnya, di pita "Search", klik tombol "All Mail Items" di grup "Scope".
4. Setelah itu isikan kriteria “terkirim: <= 2018/5/21” pada kotak pencarian. Ubah "2018/5/12" ke tanggal yang Anda inginkan.
5. Saat pencarian selesai, pilih semua item email yang ditemukan melalui "Ctrl + A".
6. Terakhir, klik kanan dan pilih opsi "Tandai Iklan Telah Dibaca".

Metode 2: Tanda Batch Email Lebih Lama dari Tanggal Tertentu sebagai Dibaca dengan VBA

1. Untuk memulainya, luncurkan editor VBA di Outlook sesuai dengan "Cara Menjalankan Kode VBA di Outlook Anda".
2. Kemudian, salin kode berikut ke dalam modul.

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. Setelah itu, tekan tombol "F5" untuk menjalankan makro ini sekarang.
4. Kemudian, di kotak dialog popup kecil, masukkan tanggal tertentu dan tekan "OK".
5. Akhirnya, semua email yang lebih lama dari tanggal tertentu akan ditandai sebagai telah dibaca.

Pulihkan File Outlook yang Disusupi

File Outlook PST mungkin rusak setelah Outlook lumpuh secara tiba-tiba. Jika Anda memiliki cadangan yang diperbarui, Anda dapat melakukannya memulihkan Outlook data dengan cadangan Anda. Jika tidak, Anda tidak punya pilihan selain mencari ahli atau utilitas khusus, seperti DataNumen Outlook Repair untuk memperbaiki file Outlook.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com