Si të shënoni grupe të gjitha emailet si të lexuara në të gjitha dosjet e Outlook me VBA

Përdorues të shumtë dëshirojnë një zgjidhje për të shënuar të gjitha emailet si të lexuara në të gjitha dosjet e Outlook. Në këtë artikull, ne do t'ju prezantojmë një metodë të tillë.  

Siç e dimë të gjithë, është e lehtë të shënosh të gjitha postat në një dosje si të lexuara. Thjesht zgjidhni dhe klikoni me të djathtën në dosje dhe më pas zgjidhni opsionin "Shëno të gjitha si të lexuara" në menunë e kontekstit. Megjithatë, nëse ka disa dosje me email të palexuar, me mjetet e mësipërme, duhet të kryeni dosjet një nga një. Është shumë e mundimshme. Prandaj, këtu do t'ju ndajmë një mënyrë shumë më efikase, e cila do t'ju lejojë ta realizoni atë në masë.

Shënoni në grup të gjitha emailet si të lexuara në të gjitha dosjet e Outlook

1. Për të filluar, hapni aplikacionin Outlook.
2. Më pas, shtypni "Alt + F11" për të hyrë në redaktuesin VBA të Outlook.
3. Më pas, në dritaren "Microsoft Visual Basic për Aplikacione", kopjoni kodin më poshtë në një modul të papërdorur.

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. Më pas, vendosni kursorin në nënprogramin e parë.
5. Më pas, shtypni butonin "F5" ose klikoni ikonën "Run" në shiritin e veglave.
6. Përfundimisht, pasi makro të përfundojë, mund të ktheheni në listën e dosjeve të postës.
7. Atje, do të shihni se të gjitha emailet e palexuara janë shënuar si të lexuara, siç tregohet në pamjen e ekranit.

Shpëtuar nga humbja e të dhënave të mjerueshme të Outlook

Përdoruesit mund të kenë pranuar një fakt që dokumentet e Word-it dhe librat e punës në Excel mund të korruptohen lehtësisht. Në fakt, ngjashëm me këta skedarë, skedari i të dhënave Outlook është gjithashtu i prirur për t'u dëmtuar. Prandaj, nëse hezitoni ta përjetoni këtë, duhet të ndërmerrni disa veprime. Ai duhet të përfshijë masa paraprake, si kopje rezervë të rregullt dhe bllokimin e të gjithë programeve keqdashëse ose viruseve, dhe disa masa lehtësuese, si të dish se si të lëshosh mjetin e riparimit të kutisë hyrëse, scanpst dhe mbajtja e një mjeti të jashtëm të fuqishëm rregullues, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com