Estoy generando un mail a través de objeto CDONTS y el contenido del mail lo estoy colocando dentro del BODY, pero no logro mantener la justificación adecuada para el texto, estoy sustituyendo los espacios en blancos por chr(32) " " y los saltos por chr(10)"<br>", sin embargo, el tengo no queda bien justificado....q puede estar pasando???
adjunto código:
Código:
Dim objMail
Dim strSubject
Dim strBody
strSubject = request.form("asunto")
'replace(replace(request.form("contenido")," "," "),chr(13),"<br>")
strBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf _
& "<HTML>" & vbCrLf _
& "<HEAD>" & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" & _
"<link href=""http://intra/css/titulo.css"" rel=""stylesheet"" type=""text/css"">" & _
"<link href=""http://intra/css/style.css"" rel=""STYLESHEET"" type=""text/css"">" & _
"</HEAD>" & _
"<BODY bottommargin=""0"" leftmargin=""0"" marginheight=""0"" marginwidth=""0"" rightmargin=""0"" topmargin=""0"">" & _
"<table width=""77%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
"<tr>" & _
" <td> " & _
" <img src=""http://intra/site/boletines/formatos/ERPTeamEncabezado.jpg"" width=""550"" height=""200"">" & _
" </td>" & _
"</tr> " & _
"<tr ><td class=""Contenido"" >" & replace(replace(request.form("contenido"),chr(32)," "),chr(10),"<br>") & _
"</td></tr></table> " & _
"<table><tr>" & _
"<td> " & _
"<img src=""http://intra/site/boletines/formatos/ERPTeamPie.jpg"" width=""550"" height=""50""> " & _
"</td> "& _
"</tr>" & _
"</table>" & _
"</BODY>" & _
"</HTML>"
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "[email protected]"
objMail.To = request.form("para")
objMail.Subject = strSubject
objMail.Body = ""&strBody&""
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Send
Set objMail = Nothing