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

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

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

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

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

1. ในตอนแรก starโปรแกรม 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ด้วย.