outlook macro to move all emails to and from a recipient

[phairplay]

could someone help me I would like a macro to move all email sent to and from a recipient into a sub folder, but only move read emails. so at a later date it will be easy to fine all in and outbound emails to that recipient.



many thanks

 

[Trevor G]

Have you looked at using the Rules Wizard that should help you without thinking about VBA.

 

[phairplay]

Yes I've looked into rules, the problem is when moving the sent items it moves a copy.

 

[phairplay]

I've relooked into rules

the problem is I can create a rule to move the inbox items but with the sent items it marks them all as unread

I've found the following for inbox items

Sub MoveItems3()
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("Sarah Attenborough")
Set myItem = myItems.Find("[SenderName] = 'Sarah Attenborough'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub

now I would like one for sent TO items in the sent file to move them into the same inbox sub folder as above

 

[MurrayBarn]

Hi There

This macro is almost what I am looking for but I want it to look up a name in the recipient field and then move that email to a specified folder.

I am really struggling particularly with Set myItem = myItems.Find("[SenderName] = 'Sarah Attenborough'")