Как да групирате Маркирайте всички имейли като прочетени във всички папки на Outlook с VBA

Множество потребители копнеят за решение за групово маркиране на всички имейли като прочетени във всички папки на Outlook. В тази статия ще ви представим такъв метод.  

Както всички знаем, лесно е да маркирате всички имейли в дадена папка като прочетени. Просто изберете и щракнете с десния бутон върху папката и след това изберете опцията „Маркиране на всички като прочетени“ в контекстното меню. Ако обаче има няколко папки с непрочетени имейли, по горния начин трябва да изпълнявате папките една по една. Това е твърде обезпокоително. Следователно тук ще ви споделим много по-ефективен начин, който ще ви позволи да го реализирате на едро.

Пакетно маркиране на всички имейли като прочетени във всички папки на Outlook

1. За начало стартирайте приложението Outlook.
2. След това натиснете „Alt + F11“ за достъп до редактора на Outlook VBA.
3. След това в прозореца „Microsoft Visual Basic for Applications“ копирайте кода по-долу в неизползван модул.

Sub MarkAllItemsAsRead()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process all Outlook files
    Set objStores = Outlook.Application.Session.Stores
  
    For Each objStore In objStores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            'Process mail folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objUnreadItems As Outlook.Items
    Dim i As Integer
    Dim objItem As Object
    Dim objSubFolder As Outlook.Folder
 
    Set objUnreadItems = objCurFolder.Items.Restrict("[Unread]=True")
 
    'Mark all unread emails as read
    For i = 1 To objUnreadItems.Count
        Set objItem = objUnreadItems.Item(i)
        objItem.UnRead = False
        objItem.Save
    Next
 
    'Process subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

4. След това поставете курсора в първата подпрограма.
5. След това натиснете бутона „F5“ или щракнете върху иконата „Run“ в лентата с инструменти.
6. В крайна сметка, след като макросът завърши, можете да се върнете към списъка с пощенски папки.
7. Там ще видите, че всички непрочетени имейли са маркирани като прочетени, както е показано на екранната снимка.

Бягство от мизерната загуба на данни в Outlook

Потребителите може да са приели факта, че документите на Word и работните книги на Excel могат лесно да бъдат повредени. Всъщност, подобно на тези файлове, файлът с данни на Outlook също е склонен към повреда. Следователно, ако не сте склонни да изпитате това, трябва да предприемете някои действия. Той трябва да включва предпазни мерки, като редовно архивиране и блокиране на всички зловредни програми или вируси, както и някои мерки за облекчение, като например как да стартирате инструмента за поправка на входящата поща, scanpst и запазване на мощен инструмент за външно коригиране, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com