Outlook'tan tüm kategorileri nasıl temizlerim?

Diyelim ki, Outlook'unuzda birçok öğeye renk kategorisi uygulanmış durumda. Bu kategorilerin tümünü öğelerden temizlemeniz gerekiyorsa, bu işlemi Outlook'ta hızlı ve kolay bir şekilde nasıl yapabilirsiniz?

Tüm Kategorileri Temizle özelliğiyle belirli bir klasörden tüm kategorileri temizleme

VBA koduyla belirli bir hesaptaki tüm kategorileri temizleme

Tüm Kategorileri Temizle özelliğiyle belirli bir klasörden tüm kategorileri temizleme

Eğer sadece belirli bir klasördeki kategorileri temizlemek istiyorsanız, lütfen şu adımları izleyin:

1. Renk kategorilerini kaldırmak istediğiniz klasöre tıklayın ve ardından tüm öğeleri seçmek için Ctrl + A tuşlarına basın.

2. Ardından sağ tıklayın ve açılan içerik menüsünden Kategoriler > Tüm Kategorileri Temizle seçeneğini seçin, aşağıdaki ekran görüntüsüne bakın:

3. Ve sonra, bu belirli klasördeki tüm renk kategorileri bir defada temizlenmiştir.

VBA koduyla belirli bir hesaptaki tüm kategorileri temizleme

Bir hesaptaki tüm öğelerden (e-postalar, görevler, kişiler, notlar vb.) tüm kategorileri temizlemek için aşağıdaki VBA kodu size yardımcı olabilir:

1. Tüm kategorileri temizlemek istediğiniz bir hesap e-postasına tıklayın, ardından Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.

VBA kodu: Belirli bir hesaptaki tüm kategorileri temizleme:

Sub BatchClearAllCategories_AllOutlookItems()
    Dim xCurrentFolder As Outlook.Folder
    Dim xFolder As Folder, xCurFolder As Folder
    Dim xPos As Integer
    Dim xRootFldName As String
    Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder
    xPos = InStr(3, xCurFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = Mid(xCurFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = Mid(xCurFolder.FolderPath, 3, Len(xCurFolder.FolderPath) - 2)
    End If
    Set xCurrentFolder = Outlook.Application.Session.Folders(xRootFldName)
    For Each xFolder In xCurrentFolder.Folders
        Call ProcessFolders(xFolder)
    Next
    MsgBox "Clear completed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFld As Outlook.Folder)
    Dim xItem As Object
    Dim i As Integer
    Dim xSubfolder As Outlook.Folder
    If CurFld.Items.Count > 0 Then
        For i = CurFld.Items.Count To 1 Step -1
            Set xItem = CurFld.Items.Item(i)
            xItem.Categories = ""
            xItem.Save
        Next
    End If
    If CurFld.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFld.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3. Ardından, çalıştırması için F5 tuşuna basın ve ardından seçilen hesaptaki tüm kategorilerin temizlendiğini size hatırlatmak için bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

---

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı kolayca yönetir; yanıtlama, özetleme, optimize etme, uzatma, çeviri ve e-posta oluşturma işlemlerini zahmetsizce gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...

🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!

Tek tıkla Kutools for Outlook'u anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Al'a Git

🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

• ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
• 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
• 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al