Outlook에서 모든 범주를 지우는 방법은 무엇입니까?

Outlook의 색상 범주에 많은 항목이 적용되었다고 가정합니다. 항목에서 이러한 모든 범주를 지워야하는 경우 Outlook에서이 작업을 어떻게 빠르고 쉽게 처리 할 수 ​​있습니까?

모든 범주 지우기 기능으로 특정 폴더에서 모든 범주 지우기

VBA 코드로 특정 계정에서 모든 범주 지우기

---

모든 범주 지우기 기능으로 특정 폴더에서 모든 범주 지우기

특정 폴더의 범주를 지우려면 다음과 같이하십시오.

1. 색상 범주를 제거 할 폴더를 클릭 한 다음 Ctrl + 모든 항목을 선택합니다.

2. 그런 다음 마우스 오른쪽 버튼을 클릭하고 분류 > 모든 카테고리 지우기 컨텍스트 메뉴에서 스크린 샷을 참조하십시오.

3. 그런 다음이 특정 폴더의 모든 색상 범주가 한 번에 지워졌습니다.

---

VBA 코드로 특정 계정에서 모든 범주 지우기

계정에서 이메일, 작업, 연락처, 메모 등과 같은 모든 항목에서 모든 범주를 지우려면 아래 VBA 코드가 도움이 될 수 있습니다.

1. 모든 카테고리를 정리하려는 계정 이메일을 클릭 한 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 매크로를 모듈 창문.

VBA 코드 : 특정 계정에서 모든 범주 지우기 :

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. 그런 다음, F5 키를 실행하면 선택한 계정의 모든 범주가 ​​지워 졌음을 알리는 프롬프트 상자가 나타납니다. 스크린 샷을 참조하십시오.