<!--#include file="connection.asp"-->
<%set objRS= SERVER.CREATEOBJECT("ADODB.RECORDSET")
STRSQL= "SELECT * FROM SUSC"
SET objRS=objconn.EXECUTE(STRSQL)
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail
ASUNTO= request.form("ASUNTO")
DE=REQUEST.FORM("DE")
BODY = REQUEST.FORM("BODY") ' la variable esta ok
WHILE NOT OBJRS.EOF
sAsunto=ASUNTO
sDestinatario=TRIM(OBJRS("EMAIL"))
sRemite=DE
sbody=BODY
'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")
oMail.AttachFile Server.MapPath("TEST.txt")
oMail.From = sRemite
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sBody
oMail.Send
RESPONSE.WRITE "MENSAJE ENVIADO A:"&OBJRS("NOMBRE")&" EMAIL: "&OBJRS("EMAIL")&"<br>"
set oMail = nothing
OBJRS.MOVENEXT
WEND
OBJRS.CLOSE
OBJCONN.CLOSE
SET OBJCONN=NOTHING
SET OBJRS = NOTHING
GRACIAS, YA FUNCIONA, LE PUSE TRIM(BODY) Y NO SE PORQUE PERO EMPESÓ A FUNCIONAR, LO QUE NO FUNCIONA ES EL ATACHMENT.
SALUDOS Y GRACIAS!!!
