Outlook 에서 모든 범주를 지우는 방법은 무엇인가요？

Outlook 에 색상 범주가 적용된 항목이 매우 많다고 가정해 보겠습니다. 이러한 항목에서 모든 범주를 제거해야 한다면, Outlook 에서 이 작업을 어떻게 하면 빠르고 쉽게 처리할 수 있을까요？

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

VBA 코드로 특정 계정에서 모든 범주 제거

---

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

특정 폴더의 범주만 지우려는 경우， 다음 단계를 따르세요：

1。 범주를 제거하려는 폴더를 클릭한 후Ctrl + A를 눌러 모든 항목을 선택합니다。

2。 그런 다음 마우스 오른쪽 버튼을 클릭하고 컨텍스트 메뉴에서범주 지정>모든 범주 지우기를 선택하세요。 아래 스크린샷을 참조하세요：

3.그러면 이 특정 폴더의 모든 색상 범주에서 범주가 한 번에 제거됩니다。

---

VBA 코드로 특정 계정에서 모든 범주 제거

이메일， 작업， 연락처， 메모 등 특정 계정의 모든 항목에서 범주를 완전히 제거하려면 다음 VBA 코드를 사용하면 편리합니다：

1。 범주를 모두 정리하려는 계정의 이메일을 클릭한 후ALT + F11키를 눌러Microsoft Visual Basic for Applications창을 엽니다。

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키를 눌러 코드를 실행하면， 선택한 계정의 모든 범주가 제거되었음을 알리는 메시지 상자가 표시됩니다。 아래 스크린샷을 참조하세요：