Loop in Draft Folder to Replace with HTML Content

Question

I have a sub as below. I want a vba code to automatically replace the html body in each draft email in draft mail box. But when I execute following sub. It will only replace on