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

 จะล้างทุกหมวดหมู่จาก 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 และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL