Bütün e-poçtları VBA ilə bütün Outlook qovluqlarında oxunmuş kimi qeyd etmək necə

Bir çox istifadəçi bütün e-poçtları oxunmuş kimi qeyd etmək üçün bir həll axtarır bütün Outlook qovluqlarında. Bu yazıda sizə belə bir üsul təqdim edəcəyik.  

Bildiyimiz kimi, qovluqdakı bütün məktubları oxunmuş kimi qeyd etmək asandır. Sadəcə seçin və qovluğu sağ vurun və sonra kontekst menyusunda "Hamısını oxunmuş kimi qeyd et" seçimini seçin. Bununla belə, oxunmamış e-poçtları olan bir neçə qovluq varsa, yuxarıda göstərilən vasitələrlə qovluqları bir-bir yerinə yetirməlisiniz. Çox əziyyətlidir. Beləliklə, biz burada sizinlə daha səmərəli bir üsul paylaşacağıq ki, bu da onu toplu şəkildə həyata keçirməyə imkan verəcəkdir.

Toplu Bütün E-poçtları Bütün Outlook Qovluqlarında Oxunmuş kimi İşarələyin

1. Başlamaq üçün Outlook tətbiqini işə salın.
2. Sonra Outlook VBA redaktoruna daxil olmaq üçün "Alt + F11" düymələrini basın.
3. Sonra, “Proqramlar üçün Microsoft Visual Basic” pəncərəsində aşağıdakı kodu istifadə olunmamış modula köçürün.

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. Bundan sonra kursoru birinci alt proqrama qoyun.
5. Sonra "F5" düyməsini basın və ya alətlər panelindəki "Çalış" simgesini basın.
6. Nəhayət, makro tamamlandıqdan sonra siz poçt qovluğu siyahısına qayıda bilərsiniz.
7. Orada, ekran görüntüsündə göstərildiyi kimi bütün oxunmamış e-poçtların oxunmuş kimi qeyd edildiyini görəcəksiniz.

Səfil Outlook məlumat itkisindən qaçın

İstifadəçilər Word sənədlərinin və Excel iş kitablarının asanlıqla korlana biləcəyini qəbul etmiş ola bilərlər. Əslində, bu fayllara bənzər, Outlook məlumat faylı da zədələnməyə meyllidir. Buna görə də, bunu yaşamaq istəmirsinizsə, bəzi tədbirlər görməlisiniz. Buraya müntəzəm ehtiyat nüsxələri çıxarmaq və bütün zərərli proqram və ya virusları bloklamaq kimi ehtiyat tədbirləri və gələnlər qutusunu təmir alətini işə salmağı bilmək kimi bəzi yardım tədbirləri daxil edilməlidir. scanpst və güclü xarici düzəltmə alətini saxlamaq, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com