將多封舊郵件導入 Outlook 後,這些郵件處於“未讀”狀態,您必須要將它們批量標記為已讀。 現在,在本文中,我們將向您展示 2 種快速方法。
有時,您可能需要批量標記多封電子郵件為已讀。 例如,您有一個舊的 PST 文件,其中包含大量舊電子郵件。 然後,您將電子郵件導入您自己的 Outlook PST 文件。 但是,導入後,這些電子郵件默認顯示為“未讀”。 此時,您需要將這些早於特定日期的郵件批量標記為已讀。 在這裡,我們將看看這個要求,分享 2 種方便有效的方法。
方法 1:手動將找到的電子郵件批量標記為已讀
- 首先,打開郵件資料夾。
- 然後,單擊進入搜索框。
- 接下來,在“搜索”功能區中,單擊“範圍”組中的“所有郵件項目”按鈕。
- 之後,在搜索框中輸入條件“已發送:<=2018/5/21”。 將“2018/5/12”更改為您想要的日期。

- 搜索完成後,通過“Ctrl + A”選擇所有找到的郵件項目。
- 最後,右鍵單擊並選擇“標記廣告已讀”選項。
方法 2:使用 VBA 將早於特定日期的電子郵件批量標記為已讀
- 首先,根據“在 Outlook 中啟動 VBA 編輯器”如何在Outlook中運行VBA代碼“。
- 然後,將以下代碼複製到模塊中。
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
- 然後,按“F5”鍵立即運行此宏。
- 稍後,在彈出的小對話框中,輸入具體日期並點擊“確定”。
- 最終,所有早於特定日期的電子郵件都將被標記為已讀。
恢復受損的Outlook文件
Outlook 偶爾意外崩潰後,Outlook PST 文件可能會損壞。 如果您有更新的備份,則可以 恢復Outlook 數據與您的備份。 否則,您別無選擇,只能尋求專業的專家或實用程序,例如 DataNumen Outlook Repair 修復 Outlook 文件。
作者簡介:
Shirley Zhang是的數據恢復專家 DataNumen,Inc.是數據恢復技術的全球領導者,包括 mdf修復 和Outlook修復軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM



