Qanday qilib VBA bilan barcha Outlook papkalarida barcha elektron pochta xabarlarini o'qilgan deb belgilash mumkin

Ko'p foydalanuvchilar barcha elektron pochta xabarlarini o'qilgan deb belgilash uchun yechimni kutmoqda barcha Outlook papkalarida. Ushbu maqolada biz sizni bunday usul bilan tanishtiramiz.  

Hammamizga ma'lumki, papkadagi barcha xatlarni o'qilgan deb belgilash oson. Faqat papkani tanlang va o'ng tugmasini bosing va keyin kontekst menyusida "Hammasini o'qilgan deb belgilash" opsiyasini tanlang. Biroq, agar o'qilmagan elektron pochta xabarlari bo'lgan bir nechta papkalar mavjud bo'lsa, yuqoridagi usullar bilan siz papkalarni birma-bir bajarishingiz kerak. Bu juda muammoli. Shunday qilib, bu erda biz sizga uni ommaviy ravishda amalga oshirishga imkon beradigan ancha samarali usulni baham ko'ramiz.

To'plamli barcha elektron pochta xabarlarini barcha Outlook papkalarida o'qilgan deb belgilang

1. Boshlash uchun Outlook dasturini ishga tushiring.
2. Keyin, Outlook VBA muharririga kirish uchun "Alt + F11" tugmasini bosing.
3. Keyin, "Microsoft Visual Basic for Applications" oynasida quyidagi kodni foydalanilmagan modulga nusxalang.

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. Shundan so'ng, kursorni birinchi pastki dasturga qo'ying.
5. Shundan so'ng, "F5" tugmachasini bosing yoki asboblar panelidagi "Ishga tushirish" belgisini bosing.
6. Oxir-oqibat, makros tugallangandan so'ng, siz pochta papkalari ro'yxatiga qaytishingiz mumkin.
7. U erda siz skrinshotda ko'rsatilganidek, barcha o'qilmagan xatlar o'qilgan deb belgilanganligini ko'rasiz.

Baxtsiz Outlook ma'lumotlarini yo'qotishdan qoching

Foydalanuvchilar Word hujjatlari va Excel ish daftarlari osonlikcha buzilishi mumkinligi haqiqatini qabul qilgan bo'lishi mumkin. Aslida, ushbu fayllarga o'xshab, Outlook ma'lumotlar fayli ham shikastlanishga moyil. Shuning uchun, agar siz buni boshdan kechirishni istamasangiz, ba'zi choralar ko'rishingiz kerak. U muntazam zahira nusxalarini yaratish va barcha zararli dasturlar yoki viruslarni bloklash kabi ehtiyot choralarini hamda kirish qutisini tuzatish vositasini ishga tushirishni bilish kabi ba'zi yordam choralarini o'z ichiga olishi kerak. Scanpst va kuchli tashqi tuzatish vositasini saqlash, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com