Do Until Items.Count = 0
Items(1).Move...
Loop

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Thu, 3 Jul 2008 07:20:02 -0700 schrieb Rivers:

hi guys seriously had this working one moment changed something and since
then didnt run ever again
i need my mail at the end of pulling the attachments off to move the
emails
to another folder

Ken helped me before explaining i need to step backwords in a loop but i
seriously have no idea wat this means can anyone help the loop works for
about three or four items and then throws up this error:

CANNOT MOVE ITEMS

the code is below

thanks

Do Until SubFolder.Items.Count = 0
For Each Item In SubFolder.Items
Item.Move otherInbox.Folders("Flash Processed")
Next Item
Loop