Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Olvido contraseña_mandar clave x correo
 Foro Bloqueado  Tema Bloqueado


Autor Temas
marilyn
Starting Member


25 Posts
Mensajes - 19 Aug 2004 :  15:15:54  Ver Perfil  Enviar Email
hola espero me puedan ayudar, tengo un formulario donde el usuario va a ingresar pero se le olvido la contraseña entonces en ese momento el llena otro formulario donde el coloca su usuario y correo y cuando le da enviar, necesito mandarle un correo donde le diga su clave (tomada de la BD)...
Muchas gracias de antemano

Henrydesousa
New Member

Venezuela
88 Posts
Posted - 21 Aug 2004 :  00:36:31  Ver perfil  Enviar e-mail
Hola, mira necesitas tener el componente CDONTS instalado en tu servidor, pregunata a tu web hosting proveedor. Te mando este codigo para que le des una ojeadita. Saludos.
<HTML>
<HEAD>
<TITLE>ASP Fácil - Código</TITLE>


<CENTER><H2>Enviar formulario por e-mail</H2></CENTER>
<%

'Plantilla ASP por Carlos de la Orden Dijs
Dim oMail, sDestino, sRemite, sBody, accion

sDestino=Trim(CStr(Request.Form("Para")))
sRemite=Trim(CStr(Request.Form("De")))
sBody=CStr(Request.Form("Cuerpo"))

' Si alguno de los campos está vacío es que no han enviado el formulario
if (sDestino = "" or sRemite = "") then
Formulario
else
MandarMail
end if

'========================================================================================
Sub Formulario
%>
<TABLE BORDER="1" STYLE="background-color: lightgrey; color: black" WIDTH="400" ALIGN="center">
<FORM NAME="Email" ACTION="formemail.asp" METHOD="post">
<TR>
<TD COLSPAN="2">Introduce una dirección para enviarle un mail, y otra para que sea el remitente.
Si quieres, puedes añadir un comentario.</TD>
<TR>
<TD><B>Para:</B></TD>
<TD><INPUT TYPE="text" NAME="Para"></TD>
<TR>
<TD><B>De:</B></TD>
<TD><INPUT TYPE="text" NAME="De"></TD>
<TR>
<TD><B>Comentario:</B></TD>
<TD><TEXTAREA NAME="Cuerpo" WRAP="virtual" ROWS="3" COLS="15"></TEXTAREA></TD>
<TR>
<TD COLSPAN="2"><CENTER>
<INPUT TYPE="submit" VALUE="Enviar Email!">
<INPUT TYPE="reset">
</CENTER>
</TD>
</FORM>
</TABLE>
<%
End Sub 'Formulario
'========================================================================================
Sub MandarMail
'Realmente no enviamos el mail, pero tenéis todo el código aquí
'Solo tenéis que quitar las "'" y funciona

'Creamos el objeto
'AQUI EMPIEZA EL CODIGO
'set oMail=Server.CreateObject("CDONTS.NewMail")

'Establecemos sus propiedas
'oMail.To=sDestino
'oMail.From=sRemite

'Esto lo añado yo :-)
'sBody=sBody & VbCrLf & VbCrLf & _
'"Este es una demostración de cómo enviar correo electrónico desde una página web. "
'sBody=sBody & "Cualquier queja, molestia o preocupación, a contacto@aspfacil.com. "
'sBody=sBody & "Esta dirección de correo electrónico no queda guardada de ninguna forma. www.ASPFacil.com"

'Asignamos el cuerpo del mensaje
'oMail.Body=sBody
'Y fuera!
'oMail.Send

'Sacamos la basura :-)
'set oMail=nothing

Response.Write("El correo electrónico habría sido enviado correctamente a <i>"&sDestino&"</i>.")

End Sub 'MandarMail

%>

Henry de SousaInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar