envair form x mail y guardar datos en bd

tocalasam · #1 (**permalink**) 02/02/2007, 16:53

Tengo el siguiente codigo para insertar datos en una base de datos desde un form., pero la pregunta es:
¿como podria hacer para que aparte de guardarlo en la base de adatos me enviara un emial con los datos del registro id/fecha/url?

<%
Dim fecha, url
fecha = Now
url= Request.ServerVariables("HTTP_REFERER")

'Conectamos a la BD.Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/dedonde2.mdb")&";"

oConn.Execute "INSERT INTO url (fecha,url)VALUES('"&fecha&"','"&url&"')"
oConn.Close
Set oConn = Nothing
%>

andre_cl · #2 (**permalink**) 02/02/2007, 20:14

Tras finalizar el INSERT hace una sgeunda consulta que ordene los registros en orden DESC con LIMIT de 0,1 asi seleccionas UN elemento, es decir, el ultimo. Con eso tendrias toda la info para enviar el correo.

Para enviarlo utiliza CDNOTS.NewMail

Aqui un ejemplo: ht*p://*ww.aspfacil.com/articulos/cdomail.asp

pablinff · #3 (**permalink**) 05/02/2007, 12:32

mmm... no hace falta tener que conectar nuevamente al bd y realizar otra consulta, es mejor ya que tiene guardados los datos en las variables url y fecha, mas vale que aproveche esos datos y los envíe.
Saludos!

andre_cl · #4 (**permalink**) 05/02/2007, 19:23

Cita:

Iniciado por pablinff

mmm... no hace falta tener que conectar nuevamente al bd y realizar otra consulta, es mejor ya que tiene guardados los datos en las variables url y fecha, mas vale que aproveche esos datos y los envíe.
Saludos!

pero tambien quiere la ID de registro 8-)

pablinff · #5 (**permalink**) 06/02/2007, 13:26

ja ja ja eso es cierto no lo tuve en cuenta

tocalasam · #6 (**permalink**) 12/02/2007, 17:42

He probado asi pero me da error en la linea 19 ¿que hago mal?

<%
Dim fecha, url
fecha = Now
url= Request.ServerVariables("HTTP_REFERER")

'Conectamos a la BD.Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/dedonde2.mdb")&";"
oConn.Execute "INSERT INTO url (fecha,url)VALUES('"&fecha&"','"&url&"')"
oConn.Close
Set oConn = Nothing
%>

<%
'Conectamos a la BD.Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/dedonde2.mdb")&";"
oConn.Execute "select (fecha,url) FROM url ORDER BY ID DESC LIMIT 0,1"
oConn.Close
Set oConn = Nothing

'Vamos a mandar un mail!
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO

sAsunto="E-Mail de prueba desde ASP"

'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es mi primer mensaje enviado desde ASP." & VbCrLf
sCuerpo = sCuerpo & "Acabaré gestionando una lista de correo algún día!" & VbCrLf
sCuerpo = sCuerpo & VbCrlf & VbCrLf & "Ah! Lo aprendí en foros del web"

sDestinatario="[email protected]"

'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")

'Establecemos las propiedades del objeto
oMail.From = "ejemplo de Mail " 'Pon aquí tu mombre y dirección
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo

' Enviamos el email!
oMail.Send

set oMail = nothing
Response.Write ("Mensaje enviado.")

%>

pablinff · #7 (**permalink**) 12/02/2007, 18:33

Podrías poner que tipo de error te dá, y te recomiendo que en vez de CDONTS utilices CDOSys para enviar emails.
Así lo harías con CDOSys:

Código:

<%
Set oMail = Server.CreateObject("CDO.Message") 
		Set iConf = Server.CreateObject("CDO.Configuration") 
		Set Flds = iConf.Fields 
		
		' Se configuran los parametros necesarios para el envío
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1" 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		' Se completan los datos del usuario y la contraseña necesarios para el envio
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" 'usuario smtp
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sinonosillas"  'password para STMP
		iConf.Fields.Update
		' Se asignan las propiedades de configuración al objeto
		Set oMail.Configuration = iConf 
	
		' Destinatario del correo
                 oMail.To = "[email protected]"
		' Remitente del correo
		oMail.From = "[email protected]"
		' Subject o asunto
		oMail.Subject = "Titulo del mensaje"
		' Cuerpo del mensaje
		oMail.TextBody = "Cuerpo del mensaje"
                 ' Se envía el correo
		oMail.Send
		' Se destruyen los objetos
		Set iConf = Nothing 
		Set Flds = Nothing

%>

Saludos!

chikitika · #8 (**permalink**) 13/02/2007, 03:47

Hola una pregunta relacionada con el envio de mails. se puede enviar 2mails diferentes uno que le llegue al administrador con los datos del usuario y otro un mail de bienvenida al usuario ?¿?¿?

Yo trabajo con otro objeto para enviar mails.
dim Mail
set Mail = Server.CreateObject("Persits.MailSender")

Graciasss!!!

3pies · #9 (**permalink**) 13/02/2007, 03:57

Prueba así:

Código:

<%
'pasamos los emails a variables
email="[email protected]"
emailoculto="[email protected]"
Mail.AddAddress email 'Le enviamos al usuario, el original
Mail.AddBcc emailoculto 'Nos enviamos una copia oculta
%>

Salu2

chikitika · #10 (**permalink**) 13/02/2007, 06:13

nose si esto lo que me dices?¿?¿así me faltaría algo más?¿'

<%dim strHTML
// construimos el correo HTML
strHTML = strHTML & "<html>"
strHTML = strHTML & "<head>"
strHTML = strHTML & "</HEAD>"
strHTML = strHTML & "<BODY BGCOLOR='#FFFFFF'>"
strHTML = strHTML & "<div>hola</div>"
strHTML = strHTML & "</body></html>"

dim usr
usr = usr & "<html>"
usr = usr & "<head>"
usr = usr & "</HEAD>"
usr = usr & "<BODY BGCOLOR='#FFFFFF'>"
usr = usr & "<div>prueba usuario</div>"
usr = usr & "</body></html>"

dim Mail

set Mail = Server.CreateObject("Persits.MailSender")
email="[email protected]"
emailoculto="[email protected]"
Mail.AddAddress email 'Le enviamos al usuario, el original
Mail.AddBcc emailoculto 'Nos enviamos una copia oculta

%>

chikitika · #11 (**permalink**) 13/02/2007, 10:26

realmente quiero mandar 2 mail diferentes a 2 personas diferentes. Cuando el usuario rellene el formulario y acepte a mi me llegaran sus datos en un mail y a la vez a el le llegará otro a él diciendole que ya se ha dado de alt.
¿ como podria hacer 3PIES? esque no entendido muy bien tu ejemplo.

Graciass!!!!

3pies · #12 (**permalink**) 13/02/2007, 10:32

Prueba así:

Código:

<%
'Pasamos los emails a variables
email_usuario = "[email protected]"
email_administrador = "[email protected]"
'Comenzamos...
Set Email = Server.CreateObject("Persits.MailSender")
'smpt para tu correo (correo saliente)
Email.Host = "mail.tuweb.com" 'puede tener ese formato, u otro distinto
'La cuenta desde la que mandas el correo (puede ser la misma de admin)
'o una específica para mandar correos desde la web
Email.From = email_administrador
'Nombre que aparece como remitente, en el buzón de correo del destinatario
Email.FromName = "Chica boom"
'Tu cuenta de usuario (en principio debería valer cualquier
'cuenta de correo que tuvieras dada de alta, pero imaginaremos
'que es la misma de siempre (admin)
Email.UserName = email_administrador
'El password que te ha proporcionado tu proveedor
'que será el mismo con el que accedes a tu panel de control
Email.password = "aqui_va_tu_password"
Email.AddAddress email_usuario
'Le voy a mandar una copia a mi amiga Lucía
Email.AddAddress "[email protected]"
'Lo mandamos en formato html
Email.Ishtml = true
Email.Subject = "Probando, probando, 1, 2, 3..."
Email.body = "<html>" & _
    "<body bgcolor=""#FFD694"">" & _
    "<br><br>" & _
    "<table border=""1"" bordercolor=""#846B42"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""90%"">" & _
     "<tr><td bgcolor=""#EFD6AD"">" & _
      "<table border=""0"" align=""center"" cellpadding=""25"" cellspacing=""0"" width=""100%"">" & _
       "<tr><td align=""center"">" & _
        "<div align=""justify"">" & _
        "<font face=""Verdana, Arial, Tahoma"" color=""#846B42"" size=""1"">" & _
        "<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>¡¡¡Qué grande es esta tabla!!!<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>" & _
        "</font>" & _
        "</div>"& _
       "</td></tr>" & _
      "</table>" & _
     "</td></tr>" & _
    "</table>" & _
    "</body>" & _
    "</html>"
'Email.AddBcc email_administrador
'Si hay errores, que siga procesando esta página
On Error Resume Next
'Enviamos el email
Email.Send
'Miramos si hay errores en el envío
If Err <> 0 Then
 'si hay errores en el envío, limpiamos el objeto
 Set Email = nothing
 'Volvemos a poner la sesión LCID originaria
 Session.LCID=LCIDtemporal
 'Mostramos un mensaje, indicando que se ha producido un error en el envío
 response.write "Se han producido errores, y el email no se ha podido mandar.<br><br>Prueba a usar el correo postal ;-)"
else
 'si no hay errores en el envío, limpiamos el objeto
 Set Email = nothing
 'Mostramos un mensaje, indicando que se ha producido un error en el envío
 response.write "Eres un fiera. Tu email ha salido zumbando, ¡fiummmmmmmmmmm!."
end if
%>

Más info, por ejemplo a través de este manual de aspemail en español.

Salu2

chikitika · #13 (**permalink**) 14/02/2007, 02:47

3PIES, he probado tu código pero no me funciona, pero no es lo que necesito porque mandas el mismo texto tanto al usuario como al adminstrador. y necesito que sean diferentes el que se le mande al usuario y al adminstrador.

Se puede hacer?¿?

Gracias de nuevo

pablinff · #14 (**permalink**) 14/02/2007, 22:37

Y para hacer eso tendrías que llamar 2 veces al componente de envío de correos, de esa forma se procesarían 2 pedidos diferentes.
Saludos!

chikitika · #15 (**permalink**) 15/02/2007, 02:17

Tengo esto pero solo me envia el primero y sale error al final. Que hago mal?¿?¿?

dim strHTML

// construimos el cuerpo para enviar al adminstrador
strHTML = strHTML & "<html>"
strHTML = strHTML & "<head>"
strHTML = strHTML & "</HEAD>"
strHTML = strHTML & "<BODY BGCOLOR='#FFFFFF'>"
strHTML = strHTML & "<br>texto prueba ADMIN<BR><BR>"
strHTML = strHTML & "<br><br>"
strHTML = strHTML & "</body></html>"

dim Mail
set Mail = Server.CreateObject("Persits.MailSender")
Mail.host="mihost.com"
Mail.isHTML= True
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.From = "[email protected]"
Mail.FromName = "pruebas"
Mail.AddAddress "correoadministrador.com"
Mail.Subject = "pruebas dobles"
Mail.Body= strHTML1
Mail.Send

dim strHTML1
// construimos el texto para el usuario
strHTML1 = strHTML1 & "<html>"
strHTML1 = strHTML1 & "<head>"
strHTML1 = strHTML1 & "</HEAD>"
strHTML1 = strHTML1 & "<BODY BGCOLOR='#FFFFFF'>"
strHTML1 = strHTML1 & "<br>texto prueba usuario<BR><BR>"
strHTML1 = strHTML1 & "<br><br>"
strHTML1 = strHTML1 & "</body></html>"

dim Mail1
set Mail1 = Server.CreateObject("Persits.MailSender")
Mail1.host="mihost.com"
Mail1.isHTML= True
Mail1.ContentTransferEncoding = "Quoted-Printable"
Mail1.From = "miweb.com"
Mail1.FromName = "prueba"
Mail1.AddAddress "coreo usuario.net"
Mail1.Subject = "pruebas dobles"
'Mail1.Body = "hola"
Mail1.Body= strHTML1
Mail1.Send
On Error Resume Next
response.Redirect("http://www.miweb.com")

3pies · #16 (**permalink**) 15/02/2007, 02:33

Mira a ver en la web del fabricante, como solucionar el error, ya que sin más datos, poco podemos hacer: http://www.aspemail.com/faq.html