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