Matapos ang pag-import ng maraming mga lumang email sa Outlook at ang mga email na ito ay nasa katayuan na "hindi pa nababasa", dapat mong gustuhin na markahan ang mga ito bilang nabasa. Ngayon, sa artikulong ito, magpapakita kami ng 2 mabilis na pamamaraan sa iyo.
Sa mga oras, maaaring kailanganin mong mag-marka ng maraming email bilang nabasa. Halimbawa, mayroon kang isang lumang PST file, na naglalaman ng maraming mga lumang email. Pagkatapos, mai-import mo ang mga email sa iyong sariling file ng Outlook PST. Gayunpaman, pagkatapos ng pag-import, ang mga email na ito ay ipinapakita bilang "Hindi pa nababasa" bilang default. Sa oras na ito, gugustuhin mong markahan ng batch ang mga mail na ito, mas matanda kaysa sa isang tukoy na petsa, tulad ng nabasa na. Dito titingnan namin ang kinakailangang ito upang ibahagi ang 2 madaling gamitin at mahusay na mga diskarte.
Paraan 1: Natagpuan ng Batch Mark ang Mga Email bilang Manu-manong Basahin
- Para sa panimula, buksan ang isang folder ng mail.
- Pagkatapos, mag-click sa box para sa paghahanap.
- Susunod, sa laso na "Paghahanap", i-click ang pindutan na "Lahat ng Mga Item sa Mail" sa pangkat na "Saklaw".
- Pagkatapos nito, i-input ang pamantayan na "ipinadala: <= 2018/5/21" sa box para sa paghahanap. Baguhin ang "2018/5/12" sa nais mong petsa.

- Kapag nakumpleto ang paghahanap, piliin ang lahat ng mga nahanap na item sa mail sa pamamagitan ng "Ctrl + A".
- Panghuli, i-right click at piliin ang opsyong "Markahan ang ad Basahin".
Paraan 2: Ang Mga Batch Mark Email Ay Mas Matanda Sa Tiyak na Petsa bilang Basahin sa VBA
- Upang magsimula, ilunsad ang VBA editor sa Outlook ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
- Pagkatapos, kopyahin ang sumusunod na code sa isang module.
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
- Pagkatapos, pindutin ang "F5" key upang patakbuhin ang macro na ito ngayon.
- Sa paglaon, sa maliit na popup dialog box, ipasok ang tukoy na petsa at pindutin ang "OK".
- Sa paglaon, ang lahat ng mga email na mas matanda kaysa sa tukoy na petsa ay mamarkahan bilang nabasa na.
Ibalik ang Nakompromisong Outlook File
Ang mga file ng Outlook PST ay maaaring mapinsala pagkatapos mag-crash ang Outlook nang hindi inaasahan ngayon at pagkatapos. Kung mayroon kang isang na-update na backup, maaari mo lang bawiin ang Outlook data sa iyong backup. Kung hindi man, wala kang pagpipilian kundi maghanap ng dalubhasang dalubhasa o utility, tulad ng DataNumen Outlook Repair upang ayusin ang file ng Outlook.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa



