Empty deleted items and junk folders

OutlookMacros.bas

'
' macro's entry point
'
Public Sub EmptyJunkTrash()

    EmptyFolder (olFolderJunk)
    EmptyFolder (olFolderDeletedItems)
    
End Sub

'
' delete items and subfolders from the specified folder
'
Sub EmptyFolder(Folder As OlDefaultFolders)

    Dim oFolder As Outlook.Folder: Set oFolder = Application.Session.GetDefaultFolder(Folder)
 
    Dim oItems As Outlook.Items: Set oItems = oFolder.Items
 
    Dim i As Long
    For i = oItems.Count To 1 Step -1
        oItems.Item(i).Delete
    Next
 
    Dim oSubFolders As Outlook.Folders: Set oSubFolders = oFolder.Folders
 
    For i = oSubFolders.Count To 1 Step -1
        oSubFolders.Item(i).Delete
    Next
    
End Sub