Enviar mail con formato html y con CDO

[LeCLUB]

Código PHP:

  <%
email_usuario = "[email protected]"
email_remitente = "[email protected]"
 
asunto = "Mensaje de Prueba"
 
mensaje = "<table width='200' border='1'>"
mensaje = mensaje & "<tr>"
mensaje = mensaje & "<td>NOMBRE</td>"
mensaje = mensaje & "<td>Pepito</td>"
mensaje = mensaje & "</tr>"
mensaje = mensaje & "<tr>"
mensaje = mensaje & "<td>APELLIDO</td>"
mensaje = mensaje & "<td>Garcia</td>"
mensaje = mensaje & "</tr>"
mensaje = mensaje & "</table>"
 
Set envio = Server.CreateObject ("CDONTS.NewMail") 
 
' Formato HTML 
envio.BodyFormat = 0 
envio.MailFormat = 0 
 
' Envía el e-mail
envio.Send email_remitente, email_usuario, asunto, mensaje 
 
Set envio = Nothing 
 
 Mensaje de confirmación
reponse.write "El mensaje se ha enviado correctamente" 
%>