Bütün Outlook maddələrində bütün rəng kateqoriyalarını necə silmək olar

Bəzi məqsədlər üçün Outlook-da rəng kateqoriyalarından sıfırdan istifadə etməyə başlamaq istəyirsiniz. Buna görə də, bütün Outlook elementlərindəki bütün rəng kateqoriyalarını silmək istəyirsiniz. Bu məqalədə bunu əldə etməyin səmərəli yollarını təqdim edəcəyik.

Məsələn, rəng kateqoriyalarını yenidən qurmaq üçün Outlook-da bütün mövcud rəng kateqoriyalarını silirsiniz. Lakin, silindikdən sonra bu kateqoriyaların hələ də Outlook elementlərinə əlavə olunduğunu görə bilərsiniz. Yeganə dəyişiklik odur ki, kateqoriyalar ağ rəngdə görünərək orijinal rənglərini itirirlər. Bu vəziyyətdə, bütün elementlərdəki bütün rəng kateqoriyalarını silməyi ümid edə bilərsiniz.

Bunu bir qovluqdakı bütün elementlər üçün etmək üçün bütün elementləri seçmək üçün sadəcə "Ctrl + A" düyməsini vura bilərsiniz, sağ klikləyin və kontekst menyusundan "Kateqoriyalara ayırın" və "Bütün Kateqoriyaları Sil" seçin. Ancaq bu şəkildə hər qovluğu bir-bir emal etməlisiniz. Çox yorucudur. Beləliklə, aşağıda sizə daha rahat bir üsul öyrədəcəyik.

Bütün Outlook Elementlərindəki Bütün Rəng Kateqoriyalarını Toplu Silin

1. Başlamaq üçün Outlook tətbiqini işə salın.
2. Sonra VBA redaktorunu işə salmaq üçün "Alt + F11" düymələri qısa yollarını basın.
3. Görünən yeni pəncərədə aşağıdakı VBA kodunu kopyalayıb boş modula və ya layihəyə yapışdırın.

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. Bundan sonra kursoru birinci alt proqrama yerləşdirin və makrosunu işə salmaq üçün “F5” düyməsini sıxın.
5. "Tamamlandı" sorğusunu aldıqda, bu, bütün rəng kateqoriyalarının bütün Outlook elementlərindən təmizləndiyini bildirir.
6. Hazırda Outlook-da e-poçtlar, görüşlər, tapşırıqlar, kontaktlar və ya qeydlərdən asılı olmayaraq, onların hamısında tamamilə təyin olunmuş rəng kateqoriyası olmamalıdır.

Ciddi Outlook Problemlərini Həll edin

Ola bilsin ki, Outlook-un quraşdırılmış təmir aləti – Scanpst.exe ilə əvvəlcədən quraşdırıldığını bilirsiniz. Daha əvvəl sınamısınız? Düzünü desəm, Outlook PST faylınızla bağlı kiçik problemləri həll etmək üçün kifayət qədər güclüdür. Bununla belə, əgər məsələ olduqca ciddidirsə, məsələn, pis zədələnmiş Outlook fayl, daxili yardım proqramı effekt yaratmayacaq. Bu vəziyyətdə, məsələn, üst-üstə düşən xarici alətə qayıtmalısınız DataNumen Outlook Repair, yüksək PST bərpasına görə rəqiblərini üstələyib.

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 SQL Server düzeltmek və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com