2 Cara Menanda Semua Kumpulan E-mel Outlook Lebih Lama Daripada Tarikh Tertentu sebagai Dibaca

Setelah mengimport banyak e-mel lama ke Outlook dan e-mel ini berada dalam status "belum dibaca", anda mesti mahu menandakannya sebagai sudah dibaca. Sekarang, dalam artikel ini, kami akan menunjukkan 2 kaedah cepat kepada anda.

Kadang kala, anda mungkin perlu menandakan banyak e-mel sebagai dibaca. Contohnya, anda mempunyai fail PST lama, yang mengandungi banyak e-mel lama. Kemudian, anda mengimport e-mel ke dalam fail PST Outlook anda sendiri. Namun, setelah diimport, e-mel ini ditunjukkan sebagai "Belum Dibaca" secara lalai. Pada masa ini, anda ingin menandai surat ini secara besar-besaran, lebih tua dari tarikh tertentu, seperti yang dibaca. Di sini kita akan melihat syarat ini untuk berkongsi 2 pendekatan yang berguna dan cekap.

Kaedah 1: Markah Batch Ditemukan E-mel sebagai Dibaca Secara Manual

1. Sebagai permulaan, buka folder mel.
2. Kemudian, klik ke dalam kotak carian.
3. Selanjutnya, dalam pita "Cari", klik butang "Semua Item Mel" dalam kumpulan "Skop".
4. Selepas itu, masukkan kriteria "dihantar: <= 2018/5/21" di kotak carian. Tukar "2018/5/12" ke tarikh yang anda inginkan.
5. Apabila pencarian selesai, pilih semua item surat yang dijumpai melalui "Ctrl + A".
6. Akhirnya, klik kanan dan pilih pilihan "Tandai iklan Dibaca".

Kaedah 2: E-mel Markah Batch Lebih Lama Daripada Tarikh Spesifik seperti Dibaca dengan VBA

1. Sebagai permulaan, lancarkan editor VBA di Outlook mengikut “Cara Menjalankan Kod VBA di Outlook Anda".
2. Kemudian, salin kod 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. Selepas itu, tekan kekunci "F5" untuk menjalankan makro ini sekarang.
4. Kemudian, dalam kotak dialog pop timbul kecil, masukkan tarikh tertentu dan tekan "OK".
5. Akhirnya, semua e-mel yang lebih tua dari tarikh tertentu akan ditandakan sebagai sudah dibaca.

Pulihkan Fail Outlook Berkompromi

Fail Outlook PST mungkin rosak setelah Outlook terhenti tiba-tiba. Sekiranya anda mempunyai sandaran yang dikemas kini, anda boleh pulihkan Outlook data dengan sandaran anda. Jika tidak, anda tidak mempunyai pilihan selain mencari pakar atau utiliti khusus, seperti DataNumen Outlook Repair untuk membaiki fail Outlook.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf betulkan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com