Hola a todos tengo un problema quiero enviar un formulario de consulta en htm por ASP con el componente de
mail que tiene mi servidor que es este: "ActiveMessenger.Message" . El Mail me lo manda con el encabezado
pero el cuerpo vacio sin texto, agradeceria que me ayudaran les dejo el codigo haber si me pueden ayudar con
algun ejemplo desde ya muchas gracias!!!
Tengo dos archivos uno del formulario buzon.htm y el otro que ejecuta el envio enviaMailASP_.asp aqui se los
dejo los codigos:
buzon.htm
<form action="sendMailASP_.asp" method="post" name="form2" id="form2">
<div align="center">
<p> </p>
</div>
<table border="0" align="center" cellspacing="5" bgcolor="#CCFFFF">
<tr>
<td align="right"><b>Nombre:</b></td>
<td><input name="nombre" type="text" id="nombre" size="50" maxlength="40"></td>
</tr>
<tr>
<td align="right"><b>E-Mail:</b></td>
<td><input type="text" name="email" size="50"></td>
</tr>
</table>
<div align="center"><br>
<b>Escribe aqui tu consulta </b><br>
<textarea name="Consulta" cols="50" rows="5" id="Consulta"></textarea>
<br>
<br>
<input name="submit" type="submit" value=" Enviar ">
<input name="reset" type="reset" value=" Borrar ">
</div>
</form>
Y AQUI EL QUE ENVIA LOS RESULTADOS sendMailASP_asp
<%@ LANGUAGE="VBScript" %>
<%
' Create and initialize a message
Set Message = Server.CreateObject("ActiveMessenger.Message")
Message.Server = "smtp.ecolan.com"
' Set the sender information
Message.FromName = "
[email protected]"
' Note that FromAddress must be present
Message.FromAddress = "
[email protected]"
' Add the recipients
Message.Recipients.Add "
[email protected]"
'Message.Recipients.Add "
[email protected]"
' Copy my boss
'Message.CCs.Add "
[email protected]"
' Set the message content
Message.Subject = "Consulta para Tua Imaxe"
Message.TextBody = "esto es una prueba"
' Send the message
On Error Resume Next
Message.Send
If Err.Number = 0 Then
Response.Write "<h1>Su Mensaje ha sido enviado pronto nos comunicaremos con usted Muchas
Gracias!!!</h1>"
Else
Response.Write "<h1>Error sus mensaje no fue enviado intentelo de nuevo!!!</h1>" & Err.Description
End If
On Error Goto 0
%>