Ver Mensaje Individual
  #8 (permalink)  
Antiguo 22/01/2002, 23:39
Avatar de urjose
urjose
 
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años, 4 meses
Puntos: 1
Re: Autoresponders, Como se hace?

hola,

supondre que estas trabajando con asp, lo que puedes hacer es lo siguiente una vez que el usuario mete su direccion e-mail y tu la ingresas en la base de datos pones puedes usar el codigo de aspemail o el de cdonts para enviarle un e-mail seria algo asi


...............

oRs("Password")=Request.Form("Passw ord")
oRs("Fecha")=Date
oRs.Update
oRs.Close
set oRs= nothing
oConn.Close
set oConn=nothing

Usuario=Request.Form("Email")
Username=Request.Form("Id")
Password=Request.Form("Password")

texto1="Bienvenido a Autocar.com.mx. A continuación le mencionamos los datos de su nueva cuenta en nuestro portal... Su nombre de usuario es: "&Username&" y su contraseña es: "&Password&"."
texto2="Gracias por confiar en nostros y esperamos que quede satisfecho con nuestro servicio. Para dudas o comentarios sobre Autocar.com.mx por favor envíe un correo a ...."
texto3=""
texto4=""

Set oMail1 = Server.CreateObject("SMTPsvg.Mailer")
oMail1.FromName = "Nombre del que envia"
oMail1.FromAddress= "Direccion por la cual envias"
oMail1.AddRecipient "", ""&Usuario&""
oMail1.RemoteHost = "servidor de correo por el cual envias"
oMail1.Subject = "Tu subject"
oMail1.BodyText = texto1 & " " & texto2 & " " & texto3 & " " & texto4

If oMail1.SendMail Then
Response.Write ""
Else
Response.Write "Mail not sent, send failure. Error was " & oMail1.Response & "<br>"
End If
oMail1.ClearAllRecipients
oMail1.ClearBodyText
Set oMail1 = Nothing

Este es el codigo que yo utilizo para que los usuarios reciban inmediatamente un mail con su nombre de usuario y contraseña

salu2 ;) :)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">