Need add text Wrap in Mail Body Message in current VBA code

[westconn1]

you could try

.HTMLBody = replace(.Body & RangetoHTML(rngToCopy), vbcrlf, "<br>")