2 способа пакетной пометки всех электронных писем Outlook старше определенной даты как прочитанных

После импорта нескольких старых электронных писем в Outlook, когда эти электронные письма находятся в статусе «непрочитанные», вы должны пометить их как прочитанные. Теперь в этой статье мы покажем вам 2 быстрых метода.

Иногда вам может понадобиться пометить несколько писем как прочитанные. Например, у вас есть старый PST-файл, содержащий множество старых писем. Затем вы импортируете электронные письма в свой собственный файл Outlook PST. Однако после импорта эти электронные письма по умолчанию отображаются как «Непрочитанные». В это время вы захотите пометить эти письма, старше определенной даты, как прочитанные. Здесь мы рассмотрим это требование, чтобы поделиться двумя удобными и эффективными подходами.

Метод 1: Пакетная пометка найденных писем как прочитанных вручную

1. Для насtarт, откройте почтовую папку.
2. Затем щелкните в поле поиска.
3. Затем на ленте «Поиск» нажмите кнопку «Все почтовые элементы» в группе «Область».
4. После этого введите критерии «отправлено: <= 2018/5/21» в поле поиска. Измените «2018/5/12» на желаемую дату.
5. Когда поиск завершится, выберите все найденные почтовые отправления с помощью «Ctrl + A».
6. Наконец, щелкните правой кнопкой мыши и выберите опцию «Пометить объявление как прочитанное».

Метод 2: пакетная пометка электронных писем старше определенной даты как прочитанных с помощью VBA

1. Для начала запустите редактор VBA в Outlook в соответствии с «Как запустить код VBA в Outlook».
2. Затем скопируйте следующий код в файл 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

3. После этого нажмите клавишу «F5», чтобы запустить этот макрос прямо сейчас.
4. Позже в небольшом всплывающем диалоговом окне введите конкретную дату и нажмите «ОК».
5. В конце концов, все электронные письма старше определенной даты будут помечены как прочитанные.

Восстановить скомпрометированный файл Outlook

Файлы Outlook PST могут быть повреждены после неожиданного сбоя Outlook время от времени. Если у вас есть обновленная резервная копия, вы можете просто восстановить Outlook данные с вашей резервной копией. В противном случае у вас нет другого выбора, кроме как обратиться к специализированному специалисту или утилите, такой как DataNumen Outlook Repair восстановить файл Outlook.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com