2 tapaa erämerkitä kaikki tietyn päivämäärän vanhemmat Outlook-sähköpostit luetuiksi

Kun olet tuonut useita vanhoja sähköposteja Outlookiin ja nämä sähköpostit ovat "lukemattomassa" tilassa, sinun on haluttava merkitä ne eräluetteloksi luetuiksi. Tässä artikkelissa näytämme sinulle 2 nopeaa tapaa.

Joskus joudut joutumaan merkitsemään useita sähköpostiviestejä luetuiksi. Esimerkiksi sinulla on vanha PST-tiedosto, joka sisältää paljon vanhoja sähköposteja. Sitten tuot sähköpostit omaan Outlook PST -tiedostoon. Tuonnin jälkeen nämä sähköpostit näytetään kuitenkin oletusarvoisesti lukemattomina. Tällä hetkellä sinun on kerrostettava nämä tietyn päivämäärän vanhemmat sähköpostit luetuiksi. Tässä tarkastelemme tätä vaatimusta jakaa kaksi kätevää ja tehokasta lähestymistapaa.

Tapa 1: Erämerkki löysi sähköpostit luetuina manuaalisesti

1. Aloita avaamalla sähköpostikansio.
2. Napsauta sitten hakukenttää.
3. Napsauta sitten "Etsi" -nauhassa "Kaikki postikohdat" -painiketta "Laajuus" -ryhmässä.
4. Syötä sen jälkeen hakukenttään "Lähetetty: <= 2018/5/21" ehdot. Muuta ”2018/5/12” haluamaasi päivämäärään.
5. Kun haku on valmis, valitse kaikki löydetyt postitukset näppäimillä "Ctrl + A".
6. Lopuksi napsauta hiiren kakkospainikkeella ja valitse Merkitse mainos luetuksi -vaihtoehto.

Tapa 2: Erämerkkiviestit, jotka ovat vanhempia kuin tietty päivämäärä luettuina VBA: n kanssa

1. Käynnistä aluksi VBA-editori Outlookissa kohdan “Kuinka suorittaa VBA-koodi Outlookissa".
2. Kopioi sitten seuraava koodi moduuliin.

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. Suorita tämä makro painamalla tämän jälkeen “F5” -näppäintä.
4. Anna myöhemmin pieni ponnahdusikkunassa tietty päivämäärä ja paina "OK".
5. Lopulta kaikki tietyn päivämäärän vanhemmat sähköpostit merkitään luetuiksi.

Palauta vaarantunut Outlook-tiedosto

Outlook PST -tiedostot voivat vahingoittua, kun Outlook kaatuu odottamattomasti silloin tällöin. Jos sinulla on päivitetty varmuuskopio, voit vain palauttaa Outlook tiedot varmuuskopiosi kanssa. Muuten sinulla ei ole muuta vaihtoehtoa kuin hakea erikoistunut asiantuntija tai apuohjelma, kuten DataNumen Outlook Repair korjata Outlook-tiedosto.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com