Save selected emails in oulook to a specific folder.

I've a set of macro code (in attachment) for saving selected emails (probability more than thousand emails at a time) to pc folder, but the code only can run up-to 265 emails then pop-up error msg "Run-time error -2147286788 (800300fc)': The operation failed". Can anyone advise me on this? appreciate your help.