Deleting emails from subfolder
The below code will permanently delete email from the Deleted Items folder in Outlook 365. How do I modify this so that it will only permanently delete emails from a subfolder of the Deleted Items folder I have created which is called "Extra"? Thanks.
Sub DeletedItems()
Dim lCount As Long
Dim lCtr As Long
Dim lDelete As Long
Dim oFolder As Folder
Dim oItems As Items
Set oFolder = Outlook.Session.Folders("profile.com").Folders("Deleted Items")
Set oItems = oFolder.Items
lCount = oItems.Count
On Error Resume Next
lDelete = InputBox("Enter number to delete:", , lCount)
On Error GoTo 0
If lDelete = 0 Then
Exit Sub
End If
For lCtr = lDelete To 1 Step -1
oItems(lCtr).Delete
Next
End Sub
