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

 Bagaimana cara menghapus semua kategori dari Outlook?

Misalkan, ada banyak item yang diterapkan ke kategori warna di Outlook Anda. Jika Anda perlu menghapus semua kategori ini dari item, bagaimana Anda bisa menangani pekerjaan ini dengan cepat dan mudah di Outlook?

Hapus semua kategori dari folder tertentu dengan fitur Hapus Semua Kategori

Hapus semua kategori dari akun tertentu dengan kode VBA


Hapus semua kategori dari folder tertentu dengan fitur Hapus Semua Kategori

Jika Anda hanya perlu menghapus kategori di folder tertentu, lakukan seperti ini:

1. Klik folder yang ingin Anda hapus kategori warna, lalu tekan Ctrl + A untuk memilih semua item.

2. Lalu klik kanan, lalu pilih Mengkategorikan > Hapus Semua Kategori dari menu konteks, lihat tangkapan layar:

doc jelas kategori 1

3. Dan kemudian, semua kategori warna di folder khusus ini telah dihapus sekaligus.


Hapus semua kategori dari akun tertentu dengan kode VBA

Untuk menghapus semua kategori dari semua item, seperti email, tugas, kontak, catatan, dan sebagainya dari akun, kode VBA di bawah ini dapat membantu Anda:

1. Klik di email akun yang ingin Anda bersihkan semua kategorinya, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.

Kode VBA: Hapus semua kategori dari akun tertentu:

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. Lalu tekan F5 kunci untuk menjalankannya, dan kemudian kotak prompt muncul untuk mengingatkan Anda semua kategori dari akun yang dipilih telah dihapus, lihat tangkapan layar:

doc jelas kategori 2


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL