Hola,
Javo tiene razón con lo del servidor. Deberia probar con CDO.
Prueba con esto: 2 paginas, 1 html y otras asp:
HTML:
Código:
<form method="post" action="envia.asp" name="Formulario">
<table>
<tr>
<tdwidth="48%">De</td>
<tdwidth="52%"> <input type="text" name= "De"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Para</td>
<tdwidth="52%"><input type="text" name= "Para"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Asunto</td>
<tdwidth="52%"><input type="text" name= "Asunto"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Mensaje</td>
<tdwidth="52%"><input type="text" name= "Mensaje"size="20"></td>
</tr>
<tr>
<tdwidth="48%"><input type="submit" value="Evniar" name="B1">
<input type="reset" value="Borrar" name="B2">
</td>
<tdwidth="52%"> </td>
</tr>
</table>
</form>
ASP:
'Primero declaramos las variables
<%
Dim strDe
Dim strPara
Dim strAsunto
Dim strMensaje
Dim objCDOMail 'El objecto CDO
'Primero leemos los datos del formulario y los asignamos a las variables
strDe = Request.Form("De")
strPara = Request.Form("Para")
strAsunto = Request.Form("Asunto")
strMensaje = Request.Form("Mensaje") < /FONT>
'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") < /FONT>
'Asignamos las propiedades al objeto
objCDOMail.From = StrDe 'Pudiera ser tambien "
[email protected]"
objCDOMail.To = strPara
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje< /FONT > < /FONT>
'Existen otras propiedades del objeto
'Se puede enviar HTML, Adjuntar archivos, etc..
'Tambien se pueden modificar otros aspectos del mensaje
'como importancia, encabezados personalizados.......
'he aqui algunos de los mas importantes:
'objCDOMail.Cc = "
[email protected];
[email protected]" Notese que se esta enviando a mas de una persona
'objCDOMail.Bcc = "
[email protected];
[email protected]"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) Importancia
'objCDOMail.AttachFile "c:\path\archivo.txt", "Archivo.txt" Archivo Adjunto
'Finalmente enviamos el mensaje
objCDOMail.Send
'Tenemos que poner la propiedad Nothing al objeto ya que inmediatamente se vuelve invalido
'y libera la memoria del servidor
Set objCDOMail= Nothing
[/code]
Esto está sacado de un post de otro foro y a mí me funciona.
Eso sí, tengo un servicio SMTP corriendo del lado del SErvidor.
Espero que sirva.
Gracias, y FELIZ NAVIDAD
