Cum să ștergeți toate categoriile din Outlook?
Să presupunem că există o mulțime de articole care se aplică categoriei de culori din Outlook. Dacă trebuie să ștergeți toate aceste categorii din articole, cum ați putea face față acestei sarcini rapid și ușor în Outlook?
Ștergeți toate categoriile dintr-un anumit folder cu funcția Ștergeți toate categoriile
Ștergeți toate categoriile dintr-un anumit cont cu cod VBA
Ștergeți toate categoriile dintr-un anumit folder cu funcția Ștergeți toate categoriile
Dacă trebuie doar să ștergeți categoriile dintr-un anumit folder, vă rugăm să procedați astfel:
1. Faceți clic pe folderul în care doriți să eliminați categoriile de culori, apoi apăsați Ctrl + A pentru a selecta toate articolele.
2. Apoi faceți clic dreapta, apoi alegeți Clasificați > Ștergeți toate categoriile din meniul contextual, vezi captura de ecran:
3. Și apoi, toate categoriile de culori din acest folder specific au fost șterse simultan.
Ștergeți toate categoriile dintr-un anumit cont cu cod VBA
Pentru a șterge toate categoriile din toate articolele, cum ar fi e-mailuri, activități, contacte, note și așa mai departe dintr-un cont, codul VBA de mai jos vă poate face o favoare:
1. Faceți clic pe un e-mail al contului din care doriți să curățați toate categoriile, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.
Cod VBA: ștergeți toate categoriile dintr-un anumit cont:
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. Apoi, apăsați F5 tasta pentru al rula, apoi apare o casetă de prompt pentru a vă reaminti că toate categoriile din contul selectat au fost șterse, vedeți captura de ecran:
Cele mai bune instrumente de productivitate de birou
Kutools for Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.