Código HTML:
Function Enviar_Email(notimail,fecha,titulo,copete,descripcion,link,suscripcion,su_id)
Dim oConnn 'Objeto de Conexion a la Base'
Dim oRS ' Recordset para tomar los datos del query
Dim sSQL ' String para hacer el query
Dim aquien ' a quien le envia los mails
Dim cont 'Contador ver de a cuantos mails se envian
'creamos el Objeto con la siguiente linea...
Set oMail = Server.CreateObject("Persits.MailSender")
'aqui configuramos el servidor SMTP y el usuario que usamos...
oMail.Host = "smtp.fibertel.com.ar"
oMail.Username = "[email protected]"
oMail.Password = "alan2005"
'definimos y configuramos sus propiedades basicas...
oMail.FromName = "AlbanoCarratala"
oMail.From = "[email protected]"
oMail.Subject = titulo
oMail.Body = Mensaje(notimail,fecha,titulo,copete,descripcion,link,suscripcion)
oMail.IsHTML = True
'Busco los usuarios que estan suscriptos a la categoria de esta noticia
sSQL = "SELECT u.us_email,u.us_nomyap FROM Usuario u, Se_suscribe s WHERE s.su_id = '"&su_id&"'"
sSQL = sSQL + " AND s.us_email = u.us_email"
'Seteo el objeto de conexion
set oConnn = Application("oConn")
set oRS = oConnn.Execute(sSQL)
'Corte de control para mandar destinatarios
While not oRS.EOF
cont = 1
'Mando de a 20 mails para que no se sature
while(cont <= 20) and (not oRS.EOF)
'a quien enviamos el mail
oMail.AddAddress oRS("us_email")," "
'Muevo y sumo uno
oRS.MoveNext
cont = cont + 1
wend
oMail.Send
oMail.Reset
wend
oConnn.Close
set oConnn = nothing
set oRS = nothing
'Mensaje que devuelvo...
if not Err then
Enviar_Email = "El mail fue enviado con exito"
else
Enviar_Email = "El mail no pudo ser enviado."
end if
set oMail = Nothing
End Function
Persits.MailSender.4 error '800a0006'
501 5.1.3 Path data: Extra garbage before terminating ">"
y no logro encontrar el problema, pero me aparecio despues del Reset que le agregue. Ademas lo hice porque no me dejaba mandar a muchos destinatarios, (hay manera de configurar la cantidad desde el codigo?).
Una solucion ?
Gracias!
