Olvidó su password?

*** Luis wrote/escribió (Sat, 15 Jan 2005 23:35:39 -0500):

Les agradezco su ayuda para encontrar el código que me permita enviar el
password al correo del usuario que está en una Bd Access, cuando lo ha
olvidado.

Lo mejor es que eso sea imposible: las contraseñas deberían guardarse
siempre cifradas, por si las moscas. Yo suelo hacer una pequeña aplicación
que envía un e-mail al usuario con un código para poder cambiar la
contraseña en la página (típicamente metido dentro de un URL para que sólo
tenga que hacer clic). Ese código se guarda durante unos días en una base
de datos. Al ir a la página se comprueba el código y, si existe y coincide
con el usuario, se le deja cambiar la contraseña.

Otra opción más sencilla es generar una nueva y enviarla por e-mail.

Benjamin, muchas gracias, efectivamente hasta ahora estoy enterandome de que
no se puede usar CDONTS en XP. Gracias, voy a estudiar.

Luis

"Benjamin Porter" escribió en el mensaje
news:%23KHysWE$

"Luis" escribió en el mensaje
news:uSmzc8C$

SyMC, gracias por tu real interés en ayudarme. Lo que me indicas me da
más
ideas. Probé el codigo para CDONTS pero en XP (en mi casa) no he podido
hacerlo funcionar (tengo IIS5), aunque en un servidor web si me
funcionó. -Ahora trataré de ver cómo, modificando el código, busco en una

BD

un email que digita el usuario, extraigo su password y lo envio por email

a

dicho usuario.

Windows XP usualmente trae IIS 5.1 y superiores, en los cuales debes usar
CDOSYS, no CDONTS. Aqui va una breve reseña de como usarlo (en ingles):
http://tinyurl.com/4s8qn




Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004

Hola Benjamín:
Yo tengo XPSP2 y aparentemente tengo instalado el CDOSYS. Probé el código de
la dirección que tú indicas pero no me resulta nada. ¿Hay algo que este
pasando por alto?

Gracias

____________________________________________________________________________________
SyMC
Suerte es la ayuda que te da la vida... Destino es lo que haces con esta
ayuda
Comparte con los demás, es la mejor manera de crecer y quererse más
Una de Mafalda (de Quino)..
(Mafalda y Manolito. Mafalda ve venir a Susanita)
Mafalda (pensando): ¡Zás!¡Ahí viene la susanita! Desde que anda peleada con
Manolito,estar con ellos es como estar en la UN:
Susanita: Hola Mafalda. ¿Has oído hablar del corchoanálisis?. Es como el
psicoanálisis pero sólo para aquellos que tienen cerebro de corcho. ¿Sabés?
Yo conozco a uno que debería ir al corchoanalista.
Manolito: ¡Vaya!... Yo creía que hoy había huelga de idiotas, pero parece
que salieron a trabajar.

"Sandra y María Claudia" escribió en el mensaje
news:O1EE2tP$

Hola Benjamín:
Yo tengo XPSP2 y aparentemente tengo instalado el CDOSYS. Probé el código

de

la dirección que tú indicas pero no me resulta nada. ¿Hay algo que este
pasando por alto?

Define un poco más el "no me resulta": ¿obtienes algun error (si es asi,
cual)? ¿simplemente el mail no llega?




Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")

Tienes razón, fuí muy simple. sorry. Bueno, copie todo el script
cambiando la línea

StrSmartHost = "mail.example.com" por StrSmartHost = "Desarrollo01" que es
el nombre de mi equipo. Tengo el SMTP Virtual activado y configurado con el
IP de mi terminal para enviar emails (lo uso para enviar emails con el
Outlook y con el Outlook Express, luego, se que funciona bien) pero resulta
que procesa la página y nada, no llega ningún email a la cuenta que indico
manualmente (en este caso, una hotmail).

Probé este pequeño script para averiguar si de todas formas tenía instalado
el CDOSYS

<%
Dim theComponent(1)
Dim theComponentName(1)

theComponent(1) = "CDO.Message"

theComponentName(1) = "CDOSYS"

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>

<html>
<head>
<title>Componentes Instalados</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FF8000">
<%
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next
%>

y me sale que tengo instaldo el CDOSYS. Encontré este otro script en
http://www.soloasp.com.ar/vereje.asp?ejeS

<%
Set oMail = Server.CreateObject("CDO.Message")

'reemplazar aqui las variables principales
para = ""
de = ""
asunto = "El asunto de mi email"
mensaje = "El mensaje del mail..."

oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.TextBody = mensaje

oMail.Send

Set oMail = Nothing
%>


y el resultado es el mismo, procesa la página como si hubiera enviado (no
hay mensaje de error alguno), pero no llega ningún email (por ejemplo a
hotmail). Este script es mucho más parecido por no decir idéntico al que
usaba para enviar emails con CDONTS.

Ojalá tengas alguna idea

Gracias!!!!!!!!!!

____________________________________________________________________________________
SyMC
Suerte es la ayuda que te da la vida... Destino es lo que haces con esta
ayuda
Comparte con los demás, es la mejor manera de crecer y quererse más
Una de Mafalda (de Quino)..
(Mafalda y Manolito. Mafalda ve venir a Susanita)
Mafalda (pensando): ¡Zás!¡Ahí viene la susanita! Desde que anda peleada con
Manolito,estar con ellos es como estar en la UN:
Susanita: Hola Mafalda. ¿Has oído hablar del corchoanálisis?. Es como el
psicoanálisis pero sólo para aquellos que tienen cerebro de corcho. ¿Sabés?
Yo conozco a uno que debería ir al corchoanalista.
Manolito: ¡Vaya!... Yo creía que hoy había huelga de idiotas, pero parece
que salieron a trabajar.