Bagaimana Menghapus Semua Kategori Warna dalam Semua Item Outlook

Untuk beberapa tujuan, anda ingin mula menggunakan kategori warna dari awal dalam Outlook anda. Oleh itu, anda ingin mengosongkan semua kategori warna dalam semua item Outlook. Dalam artikel ini, kami akan memperkenalkan cara yang cekap untuk mendapatkannya.

Sebagai contoh, untuk membina semula kategori warna, anda memadamkan semua kategori warna yang ada di Outlook anda. Tetapi, setelah dihapuskan, anda mungkin mendapati bahawa kategori ini masih dilampirkan pada item Outlook. Satu-satunya perubahan adalah bahawa kategori kehilangan warna asalnya, dipaparkan dalam warna putih. Dalam keadaan ini, anda mungkin berharap untuk membersihkan semua kategori warna dalam semua item.

Untuk melakukan ini untuk semua item dalam satu folder, Anda cukup menekan "Ctrl + A" untuk memilih semua item, klik kanan dan pilih "Kategorikan" dan "Hapus Semua Kategori" dari menu konteks. Tetapi, dengan cara ini, anda harus memproses setiap folder satu persatu. Ia terlalu membosankan. Oleh itu, berikut ini, kami akan mengajar anda kaedah yang lebih mudah.

Batch Clear All Colour Category dalam Semua Item Outlook

1. Sebagai permulaan, lancarkan aplikasi Outlook.
2. Kemudian, tekan pintasan kekunci "Alt + F11" untuk mencetuskan editor VBA.
3. Dalam paparan tetingkap baru, salin dan tampal kod VBA berikut ke dalam modul atau projek kosong.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Selepas itu, letakkan kursor ke subrutin pertama dan kemudian tekan butang “F5” untuk mencetuskan makro.
5. Apabila anda mendapat arahan "Selesai", ini bermakna semua kategori warna telah dihapus dari semua item Outlook.
6. Pada masa ini, Tidak kira e-mel, janji temu, tugas, kenalan atau nota dalam Outlook anda, semuanya mesti tidak mempunyai kategori warna.

Selesaikan Masalah Outlook yang serius

Mungkin anda sudah tahu bahawa Outlook sudah terpasang dengan alat pembaikan terpasang - Scanpst.exe. Adakah anda pernah mencubanya sebelum ini? Sejujurnya, cukup kuat untuk mengatasi masalah kecil yang melibatkan fail Outlook PST anda. Namun, jika masalahnya sangat parah, seperti teruk Outlook yang rosak fail, utiliti dalaman tidak akan memberi kesan. Dalam keadaan ini, anda harus menggunakan alat luaran yang paling tipis, seperti DataNumen Outlook Repair, yang memikul saingannya kerana pemulihan PSTnya yang tinggi.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server menetapkan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com