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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement