Tengo el Siguiente codigo
<%
DIM strSQL
set con = server.CreateObject("ADODB.Connection")
con.open(session("ConnectionString"))
strSQL = "SELECT * FROM QI_Lista_Archivos "
set RS = con.execute (strSQL)
%>
<% Do While not rs.eof %>
<!--Jalar mail de la Base -->
<%
'''''''''Mail''''''''''''''
if rs(8)<=(Date()) then
im strBody
strBody="<html>" &vbcrlf
strBody=strBody&"<body bgcolor='#EEEEEE'>" &vbcrlf
strBody=strBody&"<p style='font-family:Arial, Helvetica, sans-serif; font-size:12px; color:#0066FF; '>"&vbcrlf'
strBody=strBody&"</p>"&vbcrlf
strBody=strBody&"<p style='font-family:Arial, Helvetica, sans-serif; font-size:12px; color:#0066FF; '>"&vbcrlf
strBody=strBody&"Se le informa que el ??? del cual usted fue originador necesita Revision"&vbcrlf
strBody=strBody&"</p>"&vbcrlf
strBody=strBody&"<p style='font-family:Arial, Helvetica, sans-serif; font-size:12px; color:#FF0000; '>"&vbcrlf
strBody=strBody&"Por favor no responda a este correo, ya que es generado automáticamente.<br><br>Gracias. "&vbcrlf
strBody=strBody&"</p>"&vbcrlf
strBody=strBody&"</body>"&vbcrlf
strBody=strBody&"</html>" &vbcrlf
Dim Mail
set Mail=Server.CreateObject("Persits.MailSender")
'Mail.AddAddress request.form("email")
Mail.AddAddress "[email protected]"
Mail.FromName = "Control Calidad"
Mail.From = "[email protected]"
Mail.isHtml = true
Mail.Subject = "Su ??? ya venció"&subject
Mail.Body = strBody
Mail.Host = "smtpgw.o.com"
Mail.Helo = "Vallejo"
'On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
set Mail=nothing
end if
''''''''Mail''''''''''''''
%>
<%
rs.MoveNext
Loop
%>
Lo que tiene que hacer es mandar un mail cuando "RS(15)" (una fecha de revision) este vencida, la condicion esta bien, y el mail lo manda a una direcion en especifico, lo que quiero esque se mande a un mail que jale de la base de datos de la misma tabla de donde se manda llamas la fecha de revision.
Osea si el registro X tiene una fecha vencida de ese mismo registro se jala el mail que tiene almacenado y manda el mail a esa persona
Que debo poner en mail.AddAdress ????????????
el nombre del campo se llama "email"
ojala puedan ayudarme!!
gracias!
