Note: The other languages of the website are Google-translated. Back to English

 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:

doc temiz kategori 1

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:

doc temiz kategori 2


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.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır