Incluir asp en un mail

erika · #1 (**permalink**) 01/05/2002, 10:24

Estoy usando un formulario, el cual despues es enviado por mail, en este mail necesito incluir codigo asp. Es eso posible? como hago para incluir variables de asp dentro del cuerpo del mensaje?
Gracias!!!!!

jpablo52 · #2 (**permalink**) 01/05/2002, 11:32

Lo puedes hacer leyendo como que si fuese un archivo de texto tu pagina.asp y mandas esa variable en el body de tu cdont mail.
Aqui t mando un codigo que lo hice yo mismo y esta buenisimo.

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Archivo= "volante.html" 'el archivo htm a mandar en el 'nesletter'
Dim objTextStream
File = server.MapPath(".") & "/" & Archivo
fsoForReading = 1
sHTML=" "
Set objTextStream = objFSO.OpenTextFile(File, fsoForReading)
sHTML=sHTML & objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing

Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.ContentBase = "http://www.mi.com/"
objMail.ContentLocation = "pruebasp/"
objMail.Body = sHTML
objMail.Send
Set objMail = Nothing
response.write "si"
%>
</body>
</html>

Ojo tus links deben tener toda la direccion
http://www.pagina.com/miasp.asp
http://www.pagina.com/midb.db etc... ;)

erika · #3 (**permalink**) 01/05/2002, 12:39

El servidor de mi pagina web utiliza ASPEMAIL y éste no acepta alguna propiedades como MailFormat o el bodyformat, entre otros, entonces al sacarle estas propiedades lo que hace es enviarme la pagina asp por mail sin haber procesado los datos del formulario.
Por favor necesito ayuda urgente!!!
Gracias!

urjose · #4 (**permalink**) 01/05/2002, 12:44

<a href='ir.asp?http://www.aspemail.com/Manual.htm' target='_blank'>http://www.aspemail.com/Manual.htm...</a>

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

erika · #5 (**permalink**) 01/05/2002, 14:30

Gracias, pero tengo el manual y realmente no entiendo como hacerlo.
Alguna otra sugerencia?
Gracias!

almaluz · #6 (**permalink**) 01/05/2002, 17:19

aqui te dejo un codigo que utiizo para recomendar una página

Código:

&lt;%
'Recojemos los datos del formulario
tunombre=Request.Form(&quot;tunombre&quot;)
tuemail=Request.Form(&quot;tuemail&quot;)
sunombre=Request.Form(&quot;sunombre&quot;)
suemail=Request.Form(&quot;suemail&quot;)

'Especificamos el servidor SMPT del correo y creamos el objeto
strHost = &quot;mail.tuservidor.com&quot;
Set Mail = Server.CreateObject(&quot;Persits.MailSender&quot;)
Mail.Host = strHost
Mail.From = &quot;[email protected]&quot;
Mail.FromName = &quot;nombre de quien envia&quot;
Mail.AddAddress suemail

'Asunto del mensaje
Mail.Subject = &quot;Un amigo te recomienda.... &quot;
'Cuerpo del mensaje en HTML
Mail.IsHTML = True
Mail.Body = &quot;&lt;HTML&gt;&lt;BODY&gt;&lt;p&gt;&lt;font face=verdana size=2&gt;Hola! Tu amig@ &quot;&amp;tunombre&amp;&quot; (&quot;&amp;tuemail&amp;&quot;) recomienda que visites  &lt;a href='http://www.tuservidor.com'&gt;www.tuservidor.com&lt;/a&gt;, un sitio que posee contenido que cree pudiera ser de tu interes.&lt;br&gt;&lt;br&gt;Te esperamos!&lt;/p&gt;&lt;/font&gt;&lt;/BODY&gt;&lt;/HTML&gt;&quot;

strErr = &quot;&quot;
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send    ' send message
If Err &lt;&gt; 0 Then ' error occurred
    strErr = Err.Description
else
    bSuccess = True
End If
%&gt;

Como verás, dentro del body hay variables...

No se si es esto lo que buscas :P

Saludos amigo ;)

<a href="http://www.almaluz.com"><Img src="http://www.almaluz.com/banners/B_almaluz.gif"></a>

erika · #7 (**permalink**) 02/05/2002, 17:41

Si esto es lo que estoy buscando, entonces las variables las tengo que poner entre parentesis y con la "&" adelante o solo con la "&".
Muchas gracias!!!
Erika.