move sent email macro request

[phairplay]

Could someone please kindly help me I've got the following macro that moves sent email to a subfolder

Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub

I'm wanting one that does the same for sent email.
i.e all email I sent to Dan Wilson moved to the Personal Mail folder under the inbox.
So all email to and from Dan are moved into one folder.

many thanks


Sorry could MOD please move this to the right section