Бүх өнгөт ангиллыг 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