The following macro should work. Change the email address(es) to the address(es) you used to send the mails.
Code:
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