Outlook-ning barcha elementlaridagi barcha rang toifalarini qanday qilib to'plamli tozalash kerak

Ba'zi maqsadlar uchun siz Outlook-da rang toifalaridan noldan foydalanishni boshlashingiz kerak. Shuning uchun siz barcha Outlook elementlarida barcha rang toifalarini o'chirishni xohlaysiz. Ushbu maqolada biz buni amalga oshirishning samarali usulini taqdim etamiz.

Masalan, rang toifalarini qayta tiklash uchun Outlook-dagi barcha mavjud rang toifalarini o'chirib tashlaysiz. Ammo, o'chirilgandan so'ng, ushbu toifalar hali ham Outlook elementlariga biriktirilganligini ko'rishingiz mumkin. Yagona o'zgarish shundaki, toifalar asl ranglarini yo'qotib, oq rangda ko'rsatiladi. Bunday holda, siz barcha elementlardagi barcha rang toifalarini tozalashga umid qilishingiz mumkin.

Buni bitta papkadagi barcha elementlar uchun qilish uchun siz barcha elementlarni tanlash uchun "Ctrl + A" tugmachalarini bosishingiz mumkin, o'ng tugmasini bosing va kontekst menyusidan "Kategoriyalash" va "Barcha toifalarni o'chirish" ni tanlang. Lekin, shu tarzda, har bir jildni birma-bir qayta ishlashingiz kerak. Bu juda zerikarli. Shunday qilib, quyida biz sizga ancha qulayroq usulni o'rgatamiz.

Butun Outlook elementlaridagi barcha rang toifalarini o'chirish

1. Boshlash uchun Outlook dasturini ishga tushiring.
2. Keyin VBA muharririni ishga tushirish uchun "Alt + F11" tugmachalarini bosing.
3. Ko'rsatilgan yangi oynada quyidagi VBA kodini nusxa ko'chiring va bo'sh modul yoki loyihaga joylashtiring.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Shundan so'ng, kursorni birinchi pastki dasturga qo'ying va so'lni ishga tushirish uchun "F5" tugmachasini bosing.
5. "Bajarildi" so'rovini olganingizda, bu barcha rang toifalari barcha Outlook elementlaridan o'chirilganligini anglatadi.
6. Hozirgi vaqtda Outlook-dagi elektron pochta xabarlari, uchrashuvlar, topshiriqlar, kontaktlar yoki eslatmalardan qat'i nazar, ularning barchasida mutlaqo tayinlangan rang toifalari bo'lmasligi kerak.

Jiddiy Outlook muammolarini hal qiling

Ehtimol, siz Outlook o'rnatilgan ta'mirlash vositasi - Scanpst.exe bilan oldindan o'rnatilganligini bilgandirsiz. Hech qachon sinab ko'rganmisiz? Rostini aytsam, u Outlook PST faylingiz bilan bog'liq kichik muammolarni hal qilish uchun etarlicha kuchli. Biroq, agar muammo juda jiddiy bo'lsa, masalan, yomon buzilgan Outlook fayl, ichki yordamchi dastur effektlarni yaratmaydi. Bunday vaziyatda siz yuqori darajadagi tashqi vositaga qaytishingiz kerak, masalan DataNumen Outlook Repair, bu yuqori PST tiklanishi tufayli raqiblarini yelkasiga oldi.

Muallif kirish:

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