Outlook'tan tüm kategoriler nasıl temizlenir?
Outlook'taki renk kategorisine uygulanan çok sayıda öğe olduğunu varsayarsak. Tüm bu kategorileri öğelerden temizlemeniz gerekiyorsa, Outlook'ta bu işi hızlı ve kolay bir şekilde nasıl halledebilirsiniz?
Tüm Kategorileri Temizle özelliğiyle belirli bir klasördeki tüm kategorileri temizleyin
VBA kodu ile belirli bir hesaptaki tüm kategorileri temizleyin
Tüm Kategorileri Temizle özelliğiyle belirli bir klasördeki tüm kategorileri temizleyin
Yalnızca belirli bir klasördeki kategorileri temizlemeniz gerekiyorsa, lütfen şu şekilde yapın:
1. Renk kategorilerini kaldırmak istediğiniz klasöre tıklayın ve ardından Ctrl + A tüm öğeleri seçmek için.
2. Ardından sağ tıklayın ve ardından sınıflandırmak > Tüm Kategorileri Temizle bağlam menüsünden, ekran görüntüsüne bakın:
3. Ve sonra, bu özel klasördeki tüm renk kategorileri bir defada temizlendi.
VBA kodu ile belirli bir hesaptaki tüm kategorileri temizleyin
Bir hesaptan e-postalar, görevler, kişiler, notlar vb. Gibi tüm öğelerden tüm kategorileri temizlemek için aşağıdaki VBA kodu size bir iyilik yapabilir:
1. Tüm kategorileri temizlemek istediğiniz bir hesap e-postasına tıklayın ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.
VBA kodu: Belirli bir hesaptaki tüm kategorileri temizleyin:
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. Daha sonra, tuşuna basın. F5 Çalıştırmak için tuşuna basın ve ardından seçilen hesaptaki tüm kategorilerin temizlendiğini size hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!
- Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
- BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
- Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
- Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
- Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.

