How deep are the inbox folders nested?
If you delete a folder with a nested folder the nested folder will also be
deleted. How would you want to handle that?
With only one level of nesting i.e.
Inbox > Folder > Subfolder
the following will check the sub-folders and provide the opportunity to
delete those that are empty of messages or sub sub-folders
It will then check the folders and provide the opportunity delete any that
are empty of messages, and have no subfolders.
Sub RemoveEmpties()
Dim i As Long, j As Long
Dim iFolder As Folder
Dim subFolder As Folder
Dim Ask As String
For i = Application.Session.GetDefaultFolder(olFolderInbox).Folders.Count To
1 Step -1
Set iFolder =
Application.Session.GetDefaultFolder(olFolderInbox).Folders(i)
For j = iFolder.Folders.Count To 1 Step -1
Set subFolder = iFolder.Folders(j)
If subFolder.Items.Count = 0 And _
subFolder.Folders.Count = 0 Then
Ask = MsgBox(iFolder.Name & " > " & subFolder.Name, vbYesNo,
"Delete sub folder")
If Ask = vbYes Then
subFolder.Delete
End If
End If
Next j
If iFolder.Items.Count = 0 And _
iFolder.Folders.Count = 0 Then
Ask = MsgBox(iFolder.Name, vbYesNo, "Delete folder")
If Ask = vbYes Then
iFolder.Delete
End If
End If
Next i
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
