Cum să marcați în lot toate e-mailurile ca citite în toate folderele Outlook cu VBA

Mai mulți utilizatori tânjesc după o soluție pentru a marca toate e-mailurile ca citite în toate folderele Outlook. În acest articol, vă vom prezenta o astfel de metodă.  

După cum știm cu toții, este ușor să marcați toate e-mailurile dintr-un folder ca citite. Doar selectați și faceți clic dreapta pe dosar, apoi alegeți opțiunea „Marcați toate ca citite” din meniul contextual. Cu toate acestea, dacă există mai multe foldere care au e-mailuri necitite, prin mijloacele de mai sus, trebuie să efectuați pe foldere unul câte unul. Este prea supărător. Prin urmare, aici vă vom împărtăși o modalitate mult mai eficientă, care vă va permite să o realizați în vrac.

Marcați în lot toate e-mailurile ca citite în toate folderele Outlook

1. Pentru început, lansați aplicația Outlook.
2. Apoi, apăsați „Alt + F11” pentru a accesa editorul Outlook VBA.
3. Apoi, în fereastra „Microsoft Visual Basic for Applications”, copiați codul de mai jos într-un modul neutilizat.

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. După aceea, puneți cursorul în prima subrutină.
5. Ulterior, apăsați butonul „F5” sau faceți clic pe pictograma „Run” din bara de instrumente.
6. În cele din urmă, după finalizarea macrocomenzii, puteți reveni la lista de foldere de e-mail.
7. Acolo, veți vedea că toate e-mailurile necitite au fost marcate ca citite, așa cum se arată în captura de ecran.

Scăpați de pierderea mizerabilă de date din Outlook

Este posibil ca utilizatorii să fi acceptat faptul că documentele Word și registrele de lucru Excel pot fi corupte cu ușurință. De fapt, similar cu aceste fișiere, fișierul de date Outlook este, de asemenea, predispus la deteriorare. Prin urmare, dacă sunteți reticent să experimentați asta, ar trebui să luați unele măsuri. Ar trebui să includă măsuri de precauție, cum ar fi backup-uri regulate și blocarea tuturor programelor malware sau virușilor, precum și unele măsuri de ajutor, cum ar fi să știți cum să lansați instrumentul de reparare a căsuței primite, Scanpst și păstrarea unui instrument extern puternic de remediere, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com