It wont let me post the full code, says post denied.

It runs through fine with one email in the selected folder, if I put more than one email into the folder it comes up with an error:

Run-time Error 440 - Array index out of bounds - and highlights this line: "strBody = olFolder.Items(i).Body" when I say debug.

thank you so much for you help.