Sub Macro1()
Dim oItem As MailItem
Dim lngCount As Long
    On Error Resume Next
    For lngCount = Session.GetDefaultFolder(olFolderDeletedItems).Items.Count To 1 Step -1
        Set oItem = Session.GetDefaultFolder(olFolderDeletedItems).Items(lngCount)
        If TypeName(oItem) = "MailItem" Then
            'Debug.Print oItem.SenderEmailAddress
            Select Case oItem.SenderEmailAddress
                Case "someone@somewhere.com"    'your email address
                    oItem.Move Session.GetDefaultFolder(olFolderSentMail)
                Case "someoneelse@somewhere.com" 'another email address
                    oItem.Move Session.GetDefaultFolder(olFolderSentMail)
                Case Else
            End Select
        End If
        DoEvents
    Next lngCount
    MsgBox "Complete", vbInformation
End Sub