VBA to Outlook - Help with Looping

So Close! It works in .display, but when I change to .send, it gives me a Run Time Error '287'.

I changed this section below to fix the text box issue, so it now reflects the associated cell data in the email body.

body = Replace(body, "U12", EEfirst)

Any ideas?