จะล้างทุกหมวดหมู่จาก Outlook ได้อย่างไร

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-08-21

สมมติว่ามีหลายรายการที่ใช้กับประเภทสีใน Outlook ของคุณ หากคุณต้องการล้างหมวดหมู่เหล่านี้ทั้งหมดออกจากรายการคุณจะจัดการกับงานนี้อย่างรวดเร็วและง่ายดายใน Outlook ได้อย่างไร

ล้างหมวดหมู่ทั้งหมดจากโฟลเดอร์เฉพาะด้วยคุณสมบัติ Clear All Categories

ล้างหมวดหมู่ทั้งหมดจากบัญชีเฉพาะด้วยรหัส VBA

ล้างหมวดหมู่ทั้งหมดจากโฟลเดอร์เฉพาะด้วยคุณสมบัติ Clear All Categories

หากคุณต้องการล้างหมวดหมู่ในโฟลเดอร์ใดโฟลเดอร์หนึ่งโปรดดำเนินการดังนี้:

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 คีย์เพื่อเรียกใช้จากนั้นกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณทุกหมวดหมู่จากบัญชีที่เลือกได้ถูกล้างดูภาพหน้าจอ: