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ü Başlattı!
Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Dolandırıcılık E-postalarını 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 Sihri: 😊Daha Fazla Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna 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...

