ไปยังเนื้อหาหลัก

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

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

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

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


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

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

1. คลิกโฟลเดอร์ที่คุณต้องการลบประเภทสีจากนั้นกด Ctrl + เพื่อเลือกรายการทั้งหมด

2. จากนั้นคลิกขวาแล้วเลือก จำแนกประเภท > ล้างหมวดหมู่ทั้งหมด จากเมนูบริบทดูภาพหน้าจอ:

หมวดหมู่ที่ชัดเจนของ doc 1

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

หมวดหมู่ที่ชัดเจนของ doc 2


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations