Como Construir el BODY con un Programa

[gperdomo]

quisiera saber si existe algun programa que permita preparar mails con CDONTS, es decir, que mismo te construya el código nada más de copiar y pegar. Porque se hace bastante tedioso estar construyendo el mail, sobre todo el string.

[affv]

scritp que genera el codigo para email con CDONTS
Para todos aquellos que useis CDONTS os puede venir bien este scritp que genera automaticamente el codigo para enviar un email usando el componente mencionado.

En el caso de que querais obtener el valor del destinatario de un fomulario basta con cambiar una linea.
objSendMail.To ="yo.midominio.com"
objSendMail.To =request.form("destinatario")

El link es este.
http://www.sourcecodecentral.com/mailto.asp

Fuente: http://www.forosdelweb.com/showthrea...hreadid=129992

Enviado por Maestro

[maestro]

Muchas gracias por la cita affv

[gperdomo]

gracias!!!

[tarlipes]

SI QUIERO TOMAR EL BODY DESDE UN TEXTAREA EN UN FORM, PORQUE NO FUNCIONA?

[affv]

porque no muestras el codigo que tienes es posible que tengas algun error

[tarlipes]

<!--#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!!!

[affv]

Intenta cambiar oMail.AttachFile Server.MapPath("TEST.txt") por

Adjunto = "test.txt"
Adjunto = Server.MapPath(Adjunto)
oMail.AttachFile Adjunto

PD... Recorda que el archivo adjunto debe de estar en el servidor