en HTML ?
para = Request.Form("txtpara")
de = Request.Form("txtde")
asunto = Request.Form("txtasunto")
cuerpo = Request.Form("txtbody")
y eso ?
cuerpo = Replace(cuerpo, chr(13), "<br>")
cuerpomen = "<html><body>"
cuerpomen = cuerpomen & "<br>"& cuerpo &"<p><br>"
cuerpomen = cuerpomen & "</body></html>"
----- Si no te podria servir algo asi...
cuerpomen = Replace(str_men, chr(13), vbCrLf)
-----
La vaina es el replace del Chr(13) q es el enter...
Si es q a eso te refieres....