วิธีแบทช์ล้างหมวดหมู่สีทั้งหมดในรายการ Outlook ทั้งหมด

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

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

ในการดำเนินการนี้กับรายการทั้งหมดในโฟลเดอร์เดียวคุณสามารถกด "Ctrl + A" เพื่อเลือกรายการทั้งหมดคลิกขวาและเลือก "จัดหมวดหมู่" และ "ล้างหมวดหมู่ทั้งหมด" จากเมนูบริบท แต่ด้วยวิธีนี้คุณต้องดำเนินการทีละโฟลเดอร์ มันน่าเบื่อเกินไป ดังนั้นในขั้นตอนต่อไปนี้เราจะสอนวิธีที่สะดวกกว่ามาก

แบทช์ล้างหมวดหมู่สีทั้งหมดในรายการ Outlook ทั้งหมด

1. ขั้นแรก ให้เปิดแอปพลิเคชัน Outlook ขึ้นมา
2. จากนั้นกดแป้นพิมพ์ลัด“ Alt + F11” เพื่อทริกเกอร์ตัวแก้ไข VBA
3. ในการแสดงหน้าต่างใหม่ให้คัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลหรือโครงการที่ว่างเปล่า

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. หลังจากนั้นให้วางเคอร์เซอร์ไว้ในรูทีนย่อยแรกจากนั้นกดปุ่ม“ F5” เพื่อทริกเกอร์มาโคร
5. เมื่อคุณได้รับข้อความแจ้ง“ เสร็จสมบูรณ์” หมายความว่าหมวดหมู่สีทั้งหมดได้ถูกล้างออกจากรายการ Outlook ทั้งหมดแล้ว
6. ในปัจจุบันไม่ว่าอีเมลการนัดหมายงานผู้ติดต่อหรือบันทึกย่อใน Outlook ของคุณทั้งหมดจะต้องไม่มีการกำหนดหมวดหมู่สีอย่างแน่นอน

แก้ไขปัญหา Outlook ที่ร้ายแรง

บางทีคุณอาจทราบว่า Outlook มาพร้อมกับเครื่องมือซ่อมแซมในตัว - Scanpst.exe คุณเคยลองมาก่อนหรือไม่? บอกตามตรงว่ามีประสิทธิภาพมากพอที่จะจัดการกับปัญหาเล็ก ๆ ที่เกี่ยวข้องกับไฟล์ Outlook PST ของคุณ อย่างไรก็ตามหากปัญหานั้นรุนแรงมากเช่นไม่ดี Outlook เสียหาย ยูทิลิตี้ภายในจะไม่สร้างเอฟเฟกต์ ในสถานการณ์นี้คุณต้องถอยกลับไปใช้เครื่องมือภายนอกระดับปลายเช่น DataNumen Outlook Repairซึ่งได้ไหล่เหนือคู่แข่งเนื่องจากการฟื้นตัวของ PST สูง

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ SQL Server แก้ไขปัญหา และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.