look for text in email body and move email to a folder

Hi all,

I'm looking for a solution that would read the body of the email and if it found a text like "completed" it should move it to folder that has the folder name "Completed"

Any ideas how to get this going?

Greetings.

Hi all,

I found a similar solution. This will move an email depending on the subject to a folder called "Old mail". For now it looks to a word that says "Test", but I would like it to find something that contains "Test" in the subject and later I can change this to find it in the body of the email. How Can I use the "LIKE" in the below code?

Sub MoveItems()
 Dim myNameSpace As Outlook.NameSpace
 Dim myInbox As Outlook.Folder
 Dim myDestFolder As Outlook.Folder
 Dim myItems As Outlook.Items
 Dim myItem As Object


 Set myNameSpace = Application.GetNamespace("MAPI")
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
 Set myItems = myInbox.Items
 Set myDestFolder = myInbox.Folders("Old mail")
 Set myItem = myItems.Find("[Subject] = 'Test'")
 While TypeName(myItem) <> "Nothing"
 myItem.Move myDestFolder
 Set myItem = myItems.FindNext
 Wend
End Sub

Thank you in advance and greetings.