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

 Hogyan törölhető az összes kategória az Outlookból?

Tegyük fel, hogy sok elemet alkalmaznak az Outlook színkategóriájára. Ha törölnie kell ezeket a kategóriákat az elemek közül, hogyan kezelheti ezt a munkát gyorsan és egyszerűen az Outlook programban?

Minden kategória törlése egy adott mappából az Összes kategória törlése funkcióval

Minden kategória törlése egy VBA kóddal ellátott számláról


Minden kategória törlése egy adott mappából az Összes kategória törlése funkcióval

Ha csak ki kell törölnie a kategóriákat egy adott mappában, kérjük, tegye a következőket:

1. Kattintson a mappára, amelyről el szeretné távolítani a színkategóriákat, majd nyomja meg az gombot Ctrl + A az összes elem kiválasztásához.

2. Ezután kattintson a jobb gombbal, majd válassza a lehetőséget Besorolás > Minden kategória törlése a helyi menüből lásd a képernyőképet:

doc egyértelmű 1. kategória

3. Ezután az adott mappában lévő összes színkategória egyszerre törölve lett.


Minden kategória törlése egy VBA kóddal ellátott számláról

Az összes kategória törlése az összes elemtől, például e-mailek, feladatok, kapcsolattartók, jegyzetek és így tovább egy fiókból, az alábbi VBA-kód jót tehet Önnek:

1. Kattintson egy fiók e-mail címére, amelyről meg szeretné tisztítani az összes kategóriát, majd tartsa lenyomva a gombot ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Minden kategória törlése egy adott fiókból:

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. Ezután nyomja meg a gombot F5 kulcs a futtatásához, majd megjelenik egy gyorsdoboz, amely emlékezteti Önt a kiválasztott fiók összes kategóriájának törlésére, lásd a képernyőképet:

doc egyértelmű 2. kategória


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi