I have test the code this am it does not save the attachment file. The only part that is working is the
[vba]
myItem.UnRead = False
'myItem.Move olDestFldr
[/vba]