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:
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.