Tüm Outlook Öğelerinde Tüm Renk Kategorilerini Toplu Olarak Temizleme

Bazı amaçlar doğrultusunda, Outlook'unuzda sıfırdan renk kategorileri kullanmaya başlamak isteyebilirsiniz. Bu nedenle, tüm Outlook öğelerindeki tüm renk kategorilerini temizlemek isteyebilirsiniz. Bu makalede, bunu elde etmenin etkili bir yolunu tanıtacağız.

Örneğin, renk kategorilerini yeniden oluşturmak için Outlook'unuzdaki tüm mevcut renk kategorilerini silersiniz. Ancak silme işleminden sonra, bu kategorilerin Outlook öğelerine hâlâ iliştirilmiş olduğunu görebilirsiniz. Tek değişiklik, kategorilerin orijinal renklerini kaybederek beyaz olarak görüntülenmesidir. Bu durumda, tüm öğelerdeki tüm renk kategorilerini temizlemeyi umabilirsiniz.

Bunu bir klasördeki tüm öğeler için yapmak için, tüm öğeleri seçmek için "Ctrl + A" tuşlarına basabilir, sağ tıklayıp içerik menüsünden "Kategorize Et" ve "Tüm Kategorileri Temizle" yi seçebilirsiniz. Ancak bu şekilde her klasörü tek tek işlemeniz gerekiyor. Çok sıkıcı. Bu nedenle, aşağıda size çok daha uygun bir yöntem öğreteceğiz.

Tüm Outlook Öğelerindeki Tüm Renk Kategorilerini Toplu Olarak Temizle

1. Öncelikle Outlook uygulamasını başlatın.
2. Ardından, VBA editörünü tetiklemek için “Alt + F11” kısayol tuşlarına basın.
3. Görüntülenen yeni pencerede, aşağıdaki VBA kodunu kopyalayıp boş bir modüle veya projeye yapıştı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, imleci ilk alt programa getirin ve ardından makroyu tetiklemek için “F5” tuşuna basın.
5. "Tamamlandı" istemini almanız, tüm renk kategorilerinin tüm Outlook öğelerinden temizlendiği anlamına gelir.
6. Şu anda, Outlook'unuzdaki e-postalar, randevular, görevler, kişiler veya notlar ne olursa olsun, hepsinin kesinlikle atanmış renk kategorileri olmamalıdır.

Ciddi Outlook Sorunlarını Çözün

Belki de Outlook'un yerleşik bir onarım aracı olan Scanpst.exe ile önceden yüklenmiş olarak geldiğini biliyorsunuzdur. Daha önce hiç denedin mi? Dürüst olmak gerekirse, Outlook PST dosyanızla ilgili küçük sorunların üstesinden gelebilecek kadar güçlüdür. Ancak, sorun oldukça ciddiyse, örneğin kötü bir şekilde hasarlı görünüm dosya, dahili yardımcı program efektler yapmaz. Bu durumda, uçtan uca harici bir araca geri dönmeniz gerekir, örneğin DataNumen Outlook Repair, yüksek PST toparlanması nedeniyle rakiplerine omuz verdi.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server düzeltmek ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com