Outlook move mail vanuit folder

[Axel05]

Hoi allen,

In onderstaande code probeer ik alle items in een folder op basis van een criteria te moven. Nu is het probleem dat wanneer Item(1) gemoved wordt, er een herclassificatie plaatsvindt. Hierdoor begint hij wederom bij (1) terwijl mijn IntItem naar (2) gaat. eindresultaat: de helft van de mails blijven onaangetast in de folder staan.

In dit voorbeeld staan er 4 items in FromFolder. De count gaat goed net als het eerste item. Item 2 wordt overgeslagen en item 3 (ondertussen 2 geworden) wordt weer verplaatst. Vervolgens stopt de sub terwijl er nog 2 mails in de folder staan.


Wat ik wil is dat 'FromFolder.Item(I).' blijft zoals in eerste instantie is bepaald, ook na het moven. Wie kan me helpen?

Dim I As Long

    For I = 1 To FromFolder.count
      
       If InStr(1, FromFolder.Item(I).Body, "saved as") > 0 Then NewSentFolder.Item(I).Move OLInbox
       
    
    Next IntItem

Alvast bedankt.

Met vriendelijke groet,
Axel

 

[Axel05]

Kan het bericht niet aanpassen, maar code is uiteraard zo:

Dim I As Long

    For I = 1 To FromFolder.count
      
       If InStr(1, FromFolder.Item(I).Body, "saved as") > 0 Then FromFolder.Item(I).Move OLInbox
       
    
    Next IntItem

 

[VenA]

Door met het laatste item te beginnen.

For I = FromFolder.count to 1 step -1

 

[Axel05]

Werkt fantastisch, bedankt voor de snelle service!

 

[snb]

Daarvoor hebben de jongelui van MS twee filterfunkties uitgevonden (.restrict en .find).

zie bijv. http://www.snb-vba.eu/VBA_Outlook_external.html#L182