วิธีการแบทช์ลบโฟลเดอร์ย่อยที่ว่างเปล่าทั้งหมดใน Outlook ของคุณ

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

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

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

Batch ลบโฟลเดอร์ย่อยที่ว่างเปล่าทั้งหมด

1. อันดับแรก ให้เปิดโปรแกรม Outlook ของคุณ
2. จากนั้นกดปุ่ม“ Alt + F11” ในหน้าต่างหลักของ Outlook
3. ถัดไปในหน้าต่าง“ Microsoft Visual Basic for Applications” เปิดโมดูลที่ไม่ได้ใช้งาน
4. จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในโมดูลนี้

Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           For i = objFolder.Folders.Count To 1 Step -1
               Call DeleteEmptyFolder(objFolder.Folders(i))
           Next
        End If
    Next
 
    MsgBox ("Completed!")
End Sub

Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
    Dim n As Long
 
    If objCurrentFolder.Items.Count = 0 Then
       objCurrentFolder.Delete
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

5. หลังจากนั้นให้เปลี่ยนระดับความปลอดภัยของแมโคร Outlook เป็นระดับต่ำ
6. ในที่สุดคุณสามารถเรียกใช้มาโครนี้ได้โดยกดปุ่ม "F5" ในหน้าต่างมาโครปัจจุบัน
7. ในครั้งเดียวคุณจะพบว่าโฟลเดอร์ย่อยที่ว่างทั้งหมดจะถูกลบ

ดึงข้อมูล Outlook PST ที่เสียหาย

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

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

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