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

 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:

doc clar categoria 1

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:

doc clar categoria 2


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL