Outlook 에서 빈 폴더를 일괄 삭제하는 방법은 무엇입니까？

특정 Outlook 폴더의 빈 하위 폴더를 모두 제거하려면 다음 단계를 따르십시오。

1. 「Alt」 + “F11" 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다。

2. 「삽입(Insert)」 > 「모듈(Module)」을 클릭하고， 다음 VBA 코드를 새 모듈 창에 붙여넣습니다。

VBA： 특정 Outlook 폴더의 빈 하위 폴더를 일괄 삭제하기

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then
If xFldr.Folders.Count < 1 Then
xFldr.Delete
xFlag = True
xCount = xCount + 1
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. “F5" 키를 누르거나 「실행(Run)」 버튼을 클릭하여 이 VBA 코드를 실행합니다。

4. 팝업되는 폴더 선택 대화상자에서 빈 하위 폴더를 일괄 삭제할 특정 폴더를 선택한 후 「확인(OK)」 버튼을 클릭합니다。

 

5. 이제 Kutools for Outlook 대화상자가 나타나 삭제된 빈 하위 폴더의 수를 표시합니다。 「확인(OK)」 버튼을 클릭하여 닫으십시오。

지금까지 지정한 Outlook 폴더의 모든 하위 폴더가 성공적으로 일괄 삭제되었습니다。