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