아웃룩에서 모든 빈 폴더를 일괄 삭제하는 방법은 무엇입니까?

특정 아웃룩 폴더의 모든 빈 하위 폴더를 삭제하려면 다음 단계를 따르세요:

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

2. "삽입" > "모듈"을 클릭하고, 새 모듈 창에 다음 VBA 코드를 붙여넣습니다.

VBA: 특정 아웃룩 폴더의 모든 빈 하위 폴더 일괄 삭제하기

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" 키를 누르거나 "실행" 버튼을 클릭하여 이 VBA 코드를 실행합니다.

4. 나타나는 폴더 선택 대화 상자에서, 대량으로 삭제할 빈 하위 폴더가 있는 특정 폴더를 선택하고 "확인" 버튼을 클릭합니다.

5. 이제 Kutools for Outlook 대화 상자가 나타나며, 몇 개의 빈 하위 폴더가 삭제되었는지 표시됩니다. "확인" 버튼을 클릭하여 닫습니다.

지금까지 지정된 아웃룩 폴더의 모든 하위 폴더가 성공적으로 대량으로 삭제되었습니다.