For y=1 to THISFORM.oMail.oInbox.folders.count
* here I find the folder number by scanning all folders
If lower(THISFORM.oMail.oInbox.folders[y].name)="completed"
m.moveloc=THISFORM.oMail.oInbox.folders[y]
Exit
Endif
Endfor

For x=1 to my && whre my = # of emails to move
Thisform.oMail.oInbox.Items[(my+1)-x].unread=.F.
* can't move while reading cause the number of items changes!!!
Thisform.oMail.oInbox.Items[(my+1)-x].move(m.moveloc)
Endfor

* Note I move the last email [(my+1)-x] and move backwards
* we could also just move based on the entryid

Cheerio

TheYankDownUnder
- Mike O