Muchas gracias, funciona perfectamente.
Como agradecimiento por el consejo, adjunto aqui el codigo que realiza el envio de los emails.
Para que este email funcione deberemos utilizar un formulario que contenga los campos "cabecera, asunto, mensaje y pie". y que envio los mismos a la pagina de envio asp donde tenemos el codigo del script.
los datos de contacto y email los recoge de la base de datos. Para ellos habria que incorporar la conexión antes del codigo de envio.
Espero sea de utilidad.
<%
Server.ScriptTimeout=7200
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "Servicio de Usuarios de Enoforum.com"
Mailer.FromAddress = "
[email protected]"
Mailer.Subject = request.form("asunto")
Mailer.RemoteHost = "mail.rapidsite.net"
Mailer.AddRecipient RS.Fields("contacto"), RS.Fields("email")
Mailer.BodyText = request.form("cabecera") & request.form("mensaje") & request.form("pie")
if Mailer.SendMail then
' filaliza el proceso, a continuacion podriamos incorporar una redireccion , pero en este ejemplo no
' response.redirect....
else
' Message send failure
Response.Write ("Error en el proceso.")
' Send error message
Response.Write ("The error was " & Mailer.Response)
end if%>