vba code to delete duplicated items in outlook

Deleting a single message in the inbox puts two copies in the deleted items box; one read and the other unread.  I have written the attached code snippet but was unable to compile.  It attempts to locate and remove the matching copy (but not the same object) by comparing subject, sender's email address, and date/time sent.

Public Sub RemoveDuplicates()
    If ConfirmDelete = vbYes Then
        Dim ns As NameSpace
        Dim di As MAPIFolder
        Dim mi As Outlook.MailItem
        Dim diCount As Integer
        Dim miTemp As Outlook.MailItem        
        Set ns = ThisOutlookSession.Session
        Set di = ns.GetDefaultFolder(olFolderDeletedItems)
        Set Items = di.ShowItemCount
        For i = 1 To Items
            miTemp = mi
            For Each mi In di
                If Not miTemp Then
                    If miTemp.Subject = mi.Subject And miTemp.SenderEmailAddress = mi.SenderEmailAddress And miTemp.SentOn = mi.SentOn Then
                        miTemp.Delete
                        Set Items = Items - 1
                    End If
                End If
            Next
        Next
        Set ns = Nothing
        Set di = Nothing
        Set mi = Nothing
        Set miTemp = Nothing
    End If
End Sub
 
Private Function ConfirmDelete() 'asks before proceeding with delete
    Dim warningPrompt As String
    Dim warningTitle As String
    Dim warningButtons As String    
    warningPrompt = "Continue with removal of duplicated deleted items?"
    warningTitle = "Confirm Delete"
    warningButtons = vbYesNo + vbQuestion + vbDefaultButton2
    ConfirmDelete = MsgBox(warningPrompt, warningButtons, warningTitle)
End Function

Select allOpen in new window