envio de Email

[alfil_negro]

Que tal:

Alguien me podria mostrar un ejemplo de como realizar que al ingresar a modificar mi base de datos me envie un correo de que ya hubo un cambio para que vaya a verlo. algo asi como lo realizan aqui pero solo que yo no lo requiero en foro, sino para saber que ya me enviaron informacion y para avisarle que su informacion si llego bien.

La verdad no se si este es el foro indicado

les agradesco de antemano su ayuda

[Renegado]

Revisa esto

http://www.forosdelweb.com/showthrea...ht=envio+email

http://www.forosdelweb.com/showthrea...ht=envio+email

http://www.forosdelweb.com/showthrea...ht=envio+email

[maestro]

http://faqsdelweb.com/index.php?num=...id=15&q_id=316

[alfil_negro]

gracias amigos por su ayuda

me pondre a leer un rato y espero no tener problemas gracias nuevamente

[alfil_negro]

ya revise los codigos que me mostraron.

Utilice el segundo que me menciona ranegado, pero no puedo hacer que funcione, me podrian decir que caracteristicas requiere para funcionar, por ejemplo si debe estar el archivo en alguna carpeta especifica, o algun requerimiento del servidor o no se!!! ustedes informenme por favor

[maestro]

Necesitamos saber algunas cosas:

¿En que hosting lo usas?
¿Que componente usas?
¿Que error te da?
¿Las lineas de codigo del error?, no hace falta todo el codigo.

[alfil_negro]

estoy en un servidor bajo Windows y mi base de datos esta en access y el error que me marca es "error de pagina" y no permite enviar el formulario, la conecion a mi base de datos es Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb") y al cambiar por esa me hace lo mismo.

estoy poniedo el codigo que me pasaron en la pagina que guarda los datos, en la ultima parte

requiero otro archivo para ese codigo ??

ya hice una página nueva con el codigo pero me dice que

No se puede mostrar la página

"http 500 error interno del servidor"
"Internet Explorer"

tengo que preguntar al administrador del servidor por algunas caracteristicas como la version del OLEDB o algo por el estilo??

[bakanzipp]

por que no muestra tu codigo..

[alfil_negro]

<%
'email=request("email") ' obtenemos la direccion del destinatario de un formulario de la pagina anterior
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos.mdb")&";"
SQL="SELECT * FROM mensajes"
rs.Open SQL, oConn,1,2

'envio mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.maestroenlinea.com"
Mail.From = "[email protected]"
Mail.FromName = "Departamento de Novedades"
Mail.AddAddress = "[email protected]" ' email ' Recuperamos la direccion del formulario

Mail.Subject = "Texto del asunto del mensaje"
'comenzamos el bucle que va añadiendo lineas de los registros al cuerpo del mensaje
do while not rs.eof
cuerpo= cuerpo & rs("nombre") & rs("clave1") &"<br>"
rs.movenext
loop

'definimos el cuerpo como el conjunto de lineas obtenidas del bucle
Mail.body = cuerpo

'Limpiamos objetos y cerramos las conexion con la BD
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

'Comprobamos si el correo se pudo enviar, o la direccion era incorrecta u otros errores
On Error Resume Next
response.write("El correo ha sido enviado")
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
%>

este es el archivo que lo nombre correo.asp

y desde el formulario lo llamo con el boton de enviar

[maestro]

Jeje, ese SCRIPT lo he escrito yo, me parece.
En cuanto termine unas cosas de lio edito el mensaje y te resuelvo las dudas.

[alfil_negro]

ok gracias !!!!

[maestro]

Necesitamos saber que es lo que causa el error si el correo o la consulta a la base de datos.

Dejas solo este codigo en una pagina para probar.
Primero vamos a comprobar la base de datos:

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos.mdb")&";"
SQL="SELECT * FROM mensajes where correo="[email protected]" "
' Esta linea pon el correo de alguien que sabes que estas seguro en tu base de datos
'Es para comprobar que la consulta funciona
rs.Open SQL, oConn,1,2

do while not rs.eof
response.write (rs("nombre") & rs("clave1") &"<br>")
Esto te deberia mostrar en pantalla los datos del email correspondiente
rs.movenext
loop
rs.close
%>

Si te muestra el dato en pantalla la base de datos esta OK, procederemos con el EMAIL

[alfil_negro]

ya coloque ese codogo en un archivo nuevo , ya verifique que exista el correo electronico, y los campos si existen, pero al ejecutarlo me da este error

HTTP 500 - Error interno del servidor
Internet Explorer

error en la linea del corroe


SQL="SELECT * FROM mensajes where correo = "[email protected]" "
--------------------------------------------^


el indicador se posiciona de la ´v´

sorry!! ya cheque por que

ya se conecto y muestra los campos

[maestro]

¿Entonces ya te funciona ese apartado?
¿Podemos pasar al email?

[alfil_negro]

si por favor!!

tu me indicas el siguiente paso

oye Maestro, quiere funcionar. Ya agrege lo que tienes en " envio email ", pero me da el sig error

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/data/correo/correo.asp, line 21

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

y en la linea 21 tengo lo sig

Set Mail = Server.CreateObject("Persits.MailSender")

[maestro]

Tu provedor no usa ASPEMAIL o no tienes permiso para usarlo.
Preguntale a ver que pasa, si no dispone de el usaremos CDONTS.
Tienes ejemplos en:
http://faqsdelweb.com/index.php?num=3&f_id=2&s_id=16

Te vale todo el codigo anterios, solo es cambiar lo de ASPEMAIL por CDONTS

[alfil_negro]

ya me localice al admin del servidor me indica que no tiene registrado el "aspemail" que solo el "aspmail" solo con la diferencia de no tener la letra "e" eso indica que son sistemas distintos o solo es el identificador

[maestro]

Son diferentes este es de SERVEROBJECTS:
http://www.serverobjects.com/products.htm#aspmail

Supongo que tendran la documentacion y ejemplos, miralo a ver y nos cuentas.

[alfil_negro]

Oye maestro ya estuve intentanto con la segunda opcion pero no he podido, supongo que por no tener los atributos en el servidor, y en la pagina que me indicas no viene que requisitos debo solicitar al admin. no me podrias decir que debo comentarle al admin del server donde estoy o algun lugar en donde pueda leer eso, de preferencia en español

ya probe con un ejemploque me encontre, y tampoco funciona en mi sitio

http://www.soloasp.com.ar/vereje.asp?eje=28

es algo mas simple supongo por que no ocupa DB y aun asi no funciona

[maestro]

Acota primero los errores, debes descartar una cosa antes de probar otra.
Si no encuentras ejemplos pidele a tu ISP que te de un ejemplo de codigo que funcione, que ya nos encargaremos de adaptarlo.

El codigo que has probado funciona con CONTS, necesitas saber si tu server te da acceso a ellos.

[alfil_negro]

maestro:

ya quedaron de enviarme la informacion para aspmail , se compromeyio a enviarmelo entre hoy o mañana, en cuanto la reciba te comento.


salu2

[alfil_negro]

Maestro: ya me mando el documento el administrador en el cual viene el codigo:

<%
Set Mailer = Server.CreateObject (“SMTPsvg.Mailer”)
Mailer.FromName = “Patito, S.A. de C.V.”
Mailer.FromAddress = [email protected]
Mailer.Subject = “Tu orden del producto XXXX”
Mailer.BodyText = “Tu orden ha sido procesada.”
Mailer.RemoteHost = “mailserver”
Mailer.AddRecipient “Juan Perez”, “[email protected]”

If Mailer.SendMail then
‘ El mensaje fue enviado exitosamente
response.write (“Tu mensaje fue enviado”)

else
‘ Falla en el envío del mensaje
response.write (“Tu mensaje NO fue enviado”)
response.write (“ El error fue: & Mailer.Response)

end if
%>


ya lo coloque y si funciona, solo me podrias decir cual seria la forma para enviarselo a varios usuarios a la vez

[maestro]

Mensaje Original por alfil_negro
<%
do while not rs.eof
email=rs(email")

--------------------- INICIO ASPMAIL---------------------------
Set Mailer = Server.CreateObject (“SMTPsvg.Mailer”)
Mailer.FromName = “Patito, S.A. de C.V.”
Mailer.FromAddress = [email protected]
Mailer.Subject = “Tu orden del producto XXXX”
Mailer.BodyText = “Tu orden ha sido procesada.”
Mailer.RemoteHost = “mailserver”
Mailer.AddRecipient email

If Mailer.SendMail then
‘ El mensaje fue enviado exitosamente
response.write (“Tu mensaje fue enviado”)

else
‘ Falla en el envío del mensaje
response.write (“Tu mensaje NO fue enviado”)
response.write (“ El error fue: & Mailer.Response)

end if
---------------------fin ASPMAIL---------------------------

rs.movenext
loop
rs.close
%>

[tarlipes]

Les hago una pregunta, desde win 98, que requisitos son necesarios para que pueda enviar correos con cdonts o aspmail? hay algo que modificar en el pws?, como viene la mano?


gracias, saludos