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

pablinff · #1 (**permalink**) 03/05/2006, 23:43

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.

ricagonza · #2 (**permalink**) 04/05/2006, 03:15

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> </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 > </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
%>

pablinff · #3 (**permalink**) 04/05/2006, 20:12

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.

ricagonza · #4 (**permalink**) 05/05/2006, 10:59

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

pablinff · #5 (**permalink**) 07/05/2006, 13:26

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.

ricagonza · #6 (**permalink**) 07/05/2006, 15:48

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

pablinff · #7 (**permalink**) 07/05/2006, 16:05

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

pablinff · #8 (**permalink**) 12/05/2006, 21:31

Alguien sabe que puede ser este error?