hOLA MUY BUEN@SSSSSSSSSS.
He encontrado un código sencillito en programación.com para enviar un email con CDONTS, pero no me funciona, no da ningún error y no me explico qué pasa. El código es este:
----------- formulario ------------------
<HTML>
<BODY>
<H1>Creación del mensaje</H1>
<FORM ACTION="enviar.asp" METHOD="POST">
<TABLE>
<TR>
<TD ALIGN="RIGHT">Para:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="destinatario"></TD>
</TR>
<TR>
<TD ALIGN="RIGHT">De:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="remitente"></TD>
</TR>
<TR>
<TD ALIGN="RIGHT" NOWRAP>Asunto:</TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" SIZE="67" NAME="asunto">
</TD>
</TR>
</TABLE>
<TABLE>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT" NOWRAP>Texto del mensaje:</TD>
<TD ALIGN="LEFT" NOWRAP>
<TEXTAREA WRAP="OFF" ROWS="7" COLS="50" NAME="cuerpo"></TEXTAREA>
</TD>
</TR>
</TABLE>
<INPUT TYPE="RESET" NAME="Cancelar" VALUE="Borrar">
<INPUT TYPE="SUBMIT" NAME="Enviar" VALUE="Enviar">
</FORM>
</BODY>
</HTML>
---------- enviar.asp ----------------
<%
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = request.form("remitente")
mailobj.to = request.form("destinatario")
mailobj.subject = request.form("asunto")
mailobj.body = request.form("cuerpo")
mailobj.send
%>
Gracias, hasta pronto.