Foros del Web » Programando para Internet » ASP Clásico »

Envìo de E-mails automàticos con aspemail

Estas en el tema de Envìo de E-mails automàticos con aspemail en el foro de ASP Clásico en Foros del Web. Hola que tal. Necesito si alguien me puede ayudar puesto que quiero que una pàgina en especial sea enviada al correo de ciertos usuarios, necesito ...
  #1 (permalink)  
Antiguo 03/05/2006, 23:43
Avatar de pablinff  
Fecha de Ingreso: diciembre-2005
Ubicación: Argentina
Mensajes: 383
Antigüedad: 18 años, 5 meses
Puntos: 7
Busqueda Envìo de E-mails automàticos con aspemail

Hola que tal.
Necesito si alguien me puede ayudar puesto que quiero que una pàgina en especial sea enviada al correo de ciertos usuarios, necesito que sean automàticos y que se envìen cada vez que actualizo la Bd que a su vez actualiza la pàgina.
Ej:
una pàgina llamada proximas_fechas.asp, cuando se inserte una nueva fecha en la base de datos que recoge esta pàgina, que se envìe un e-mail a todos los e-mails registrados en una bd. Lo ideal serìa que el e-mail sea muy parecido a la pàgina misma osea que contenga còdigo html.
Desede ya muchas gracias.
  #2 (permalink)  
Antiguo 04/05/2006, 03:15
 
Fecha de Ingreso: febrero-2004
Mensajes: 27
Antigüedad: 20 años, 4 meses
Puntos: 0
Te envio un codigo que utilizo para hacer lo que tu comentas.
Para la parte del cuerpo (body) lo que hago es me compongo la pagina aparte y luego la incorporo añadiendole las comillas.
Con un bucle segun tus usuarios y la instruccion MAIL.ADDRESS "[email protected]"
iras añadiendo los destinatarios
(tendras tantas lineas MAIL.ADDRESS... como destinatarios)

Espero te sirva.....

<%

cText="<STYLE>" & chr(13) & chr(10)
cText=cText & ".indexr { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #CC0000; text-decoration: none}" & chr(13) & chr(10)
cText=cText & ".texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000}" & chr(13) & chr(10)
cText=cText & ".titulo { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 18px; font-weight: normal; color: #003366}" & chr(13) & chr(10)
cText=cText & "</STYLE>" & chr(13) & chr(10)

cText=cText & "<body bgcolor=""#FFFFFF"" text=""#000000"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & chr(13) & chr(10)
cText=cText & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" height=""100""> " & chr(13) & chr(10)
cText=cText & "<tr> <td class=""texto"">Estimado/a " & Session("cUsuario") & "</td></tr>" & chr(13) & chr(10)
cText=cText & "<tr><td>&nbsp;</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto""> Aqui pones lo que quieras................</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"" height=""51"">......Agradecemos el tiempo y la confianza dedicados.......</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""indexr"">.............</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td >&nbsp;</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td ><hr></td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"">Desarrollos ..............</td></tr> " & chr(13) & chr(10)
cText=cText & "</table>"

Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="correo.SERVIDOR.com"
Mail.Port=25
Mail.From="[email protected]"
Mail.FromName = "Nombre que quieres que aparezca"
Mail.Subject=" El subject del correo"
Mail.IsHtml=True
Mail.Body=cText
' Tus destinatarios
Mail.AddAddress aQuien
'
Mail.AddBcc "[email protected]"

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End if
%>
  #3 (permalink)  
Antiguo 04/05/2006, 20:12
Avatar de pablinff  
Fecha de Ingreso: diciembre-2005
Ubicación: Argentina
Mensajes: 383
Antigüedad: 18 años, 5 meses
Puntos: 7
ok muchas gracias.
Lo voy a probar, una última pregunta:
como sería el código para que los e-mails a los cuales debo enviar se seleccionen de una BD.
Desde ya sepan disculpar mi ignorancia y muchas gracias por su tiempo.
  #4 (permalink)  
Antiguo 05/05/2006, 10:59
 
Fecha de Ingreso: febrero-2004
Mensajes: 27
Antigüedad: 20 años, 4 meses
Puntos: 0
Bueno, supongo que ya sabes como abrir la conexion con la BBDD y demas..
Suponiendo que tienes un Recordset cargado con los datos que te interesan deberias recorrerlos por ejemplo con un bucle While.

Si suponemos que tu tabla de base de datos cargado en recordset tiene varios campos y por ejemplo el tercer campo es el eMail deberia poner:

...
...
Mail.IsHtml=True
Mail.Body=cText
' Tus destinatarios

' Recorremos el RecordSet
While not oRs.EOF
Mail.AddAddress oRs(3)
oRs.MoveNext
Wend
oRs.Close ' PAra cerrar el RecordSEt
'
Mail.AddBcc "[email protected]"
....
....
Suerte
  #5 (permalink)  
Antiguo 07/05/2006, 13:26
Avatar de pablinff  
Fecha de Ingreso: diciembre-2005
Ubicación: Argentina
Mensajes: 383
Antigüedad: 18 años, 5 meses
Puntos: 7
Bueno lo intenté y no me salió
me da ese error:
Código:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8' 

Se requiere un objeto: 'oRs' 

/instinto/autoemails.asp, línea 45
y esta es mi pagina:
autoemails.asp

Código:
<%
dim datos,con

datos= Server.MapPath ( "/instinto/bd/instinto.mdb" ) 

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


cText="<STYLE>" & chr(13) & chr(10)
cText=cText & ".indexr { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #CC0000; text-decoration: none}" & chr(13) & chr(10)
cText=cText & ".texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000}" & chr(13) & chr(10)
cText=cText & ".titulo { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 18px; font-weight: normal; color: #003366}" & chr(13) & chr(10)
cText=cText & "</STYLE>" & chr(13) & chr(10)

cText=cText & "<body bgcolor=""#FFFFFF"" text=""#000000"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & chr(13) & chr(10)
cText=cText & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" height=""100""> " & chr(13) & chr(10)
cText=cText & "<tr> <td class=""texto"">Estimado/a " & Session("cUsuario") & "</td></tr>" & chr(13) & chr(10)
cText=cText & "<tr><td>&nbsp;</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto""> Aqui pones lo que quieras................</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"" height=""51"">......Agradecemos el tiempo y la confianza dedicados.......</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""indexr"">.............</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td >&nbsp;</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td ><hr></td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"">Desarrollos ..............</td></tr> " & chr(13) & chr(10)
cText=cText & "</table>" 

Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="smtp.gmail.com"
Mail.Port=587
Mail.From="[email protected]"
Mail.FromName = "INSTINTO"
Mail.Subject= "Próximas Fechas" 
Mail.IsHtml=True
Mail.Body=cText
' Tus destinatarios


set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset 
'rs.LockType = adLockOptimistic 

rs.open "select * from Emails order by id desc",con
' Recorremos el RecordSet
While not oRs.EOF
Mail.AddAddress oRs(3)
oRs.MoveNext
Wend
oRs.Close ' PAra cerrar el RecordSEt
'
Mail.AddBcc ""

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End if
con.close
set con=nothing
%>
Espero que sepas perdonar mi ignorancia pero es que recién estoy incursionando en esto de asp.
Saludos.
  #6 (permalink)  
Antiguo 07/05/2006, 15:48
 
Fecha de Ingreso: febrero-2004
Mensajes: 27
Antigüedad: 20 años, 4 meses
Puntos: 0
No te preocupes estamos para echar una mano.
El objeto oRs lo llame yo por ponerlo de alguna manera, en tu caso seria rs(3), claro que con esto recuerda te sacara el valor del tercer campo del registro de tu tabla.
Tan solo reemplaza oRs por tu rs y te funcionara sin mas.
Saludos
  #7 (permalink)  
Antiguo 07/05/2006, 16:05
Avatar de pablinff  
Fecha de Ingreso: diciembre-2005
Ubicación: Argentina
Mensajes: 383
Antigüedad: 18 años, 5 meses
Puntos: 7
Upsss! lo probe y se resolvió el problema, pero ahora me sale otro error pero me parece que no tiene que ver con asp:
Cita:
Error: 530 5.7.0 Must issue a STARTTLS command first p20sm1438888nfc

Última edición por pablinff; 12/05/2006 a las 21:31
  #8 (permalink)  
Antiguo 12/05/2006, 21:31
Avatar de pablinff  
Fecha de Ingreso: diciembre-2005
Ubicación: Argentina
Mensajes: 383
Antigüedad: 18 años, 5 meses
Puntos: 7
Alguien sabe que puede ser este error?
__________________
I'm gonna start a revolution from my bed...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:47.