Барлық Outlook элементтеріндегі барлық түстер санаттарын қалай бумадан тазартуға болады

Кейбір мақсаттар үшін Outlook бағдарламасында түс санаттарын нөлден бастап пайдалануды бастау керек. Сондықтан, барлық Outlook элементтеріндегі барлық түс санаттарын өшіргіңіз келеді. Бұл мақалада біз оны алудың тиімді әдісін ұсынамыз.

Мысалы, түстер санаттарын қалпына келтіру үшін сіз Outlook бағдарламасындағы барлық түстер санаттарын жоясыз. Бірақ жойылғаннан кейін, бұл санаттар әлі де Outlook элементтеріне қосылғанын байқай аласыз. Жалғыз өзгеріс - бұл санаттар ақ түстермен көрсетіліп, өздерінің бастапқы түстерін жоғалтады. Бұл жағдайда сіз барлық түстер санаттарын барлық элементтерден тазартуға үміттене аласыз.

Мұны бір қалтадағы барлық элементтер үшін жасау үшін «Ctrl + A» пернелер тіркесімін басу арқылы барлық элементтерді таңдап, тінтуірдің оң жағын басып, мәтінмәндік мәзірден «Категориялау» және «Барлық категорияларды өшіру» тармақтарын таңдаңыз. Бірақ, осылайша, сіз кез-келген папканы өңдеуіңіз керек. Бұл өте жалықтырғыш. Сонымен, келесілерде біз сізге әлдеқайда ыңғайлы әдісті үйретеміз.

Барлық Outlook элементтеріндегі барлық түстер санаттарын пакеттік тазалау

1. Бастау үшін Outlook қолданбасын іске қосыңыз.
2. Содан кейін VBA редакторын іске қосу үшін «Alt + F11» пернелер тіркесімін басыңыз.
3. Жаңа терезеде келесі VBA кодын көшіріңіз және бос модульге немесе жобаға қойыңыз.

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. Осыдан кейін курсорды бірінші ішкі бағдарламаға қойып, макросты бастау үшін «F5» батырмасын басыңыз.
5. «Аяқталды» шақыруын алған кезде, бұл барлық түстер санаттары барлық Outlook элементтерінен тазартылғанын білдіреді.
6. Қазіргі уақытта Outlook бағдарламасындағы электрондық пошта, кездесу, тапсырма, контакт немесе жазбаларға қарамастан, олардың барлығында түстер санаттары мүлдем тағайындалмауы керек.

Перспективадағы күрделі мәселелерді шешіңіз

Мүмкін сіз Outlook бағдарламасында алдын ала орнатылған жөндеу құралы - Scanpst.exe бар екенін білетін шығарсыз. Сіз бұны бұрын байқап көрдіңіз бе? Шынымды айтсам, бұл сіздің Outlook PST файлыңызбен байланысты кішігірім мәселелерді шешуге жеткілікті күшті. Алайда, егер мәселе айтарлықтай ауыр болса, мысалы, нашар Outlook зақымдалған ішкі утилита әсер етпейді. Бұл жағдайда сіз ұштық сыртқы құралға қайта оралуға тура келеді, мысалы DataNumen Outlook Repair, ол PST-ті қалпына келтірудің арқасында қарсыластарынан асып түсті.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server бекіту және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com