Delete all items in the Outlook Junk and Trash (Deleted Items) folder
2017-01-10 Outlook 0 79
The macros below can be used to delete all items in the Junk and Trash (Deleted Items) folder in Outlook.
For ease of use, attach the first macro to a button in the Quick Access Toolbar:
Sub DeleteAllSpamAndTrash() ' updated 2017-01-10 by OPE Dim OLF As Outlook.NameSpace, f As Long, objFolder As Folder Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI") For f = 1 To OLF.Folders.Count On Error Resume Next Set objFolder = OLF.Folders(f).Store.GetDefaultFolder(olFolderJunk) On Error GoTo 0 DeleteAllFolderItems objFolder Set objFolder = Nothing On Error Resume Next Set objFolder = OLF.Folders(f).Store.GetDefaultFolder(olFolderDeletedItems) On Error GoTo 0 DeleteAllFolderItems objFolder Set objFolder = Nothing Next f Set OLF = Nothing End Sub Sub DeleteAllFolderItems(objFolder As Folder) ' updated 2017-01-10 by OPE Dim i As Long If objFolder Is Nothing Then Exit Sub With objFolder For i = .Items.Count To 1 Step -1 On Error Resume Next .Items(i).Delete On Error GoTo 0 Next i End With End Sub