! Vaya Preguntita...!, Solo expertos..

RootK · #1 (**permalink**) 25/06/2002, 18:17

Hola a todos, estoy por terminar una confirmación de productos en línea, pero al parecer todo va bien, me llegan los datos de la persona (nombre, direccion, telefono, forma de pago.. etc.) ahora.. lo complicado es que para que en el mismo mail me mande las compras que hizo, por ejemplo.. si pidio discos compactos, ropa, etc, quiero que me los made a su mail.
Lo que tengo es que esos datos ya tengo la funcion en asp, para mostrar en una sola pagina mis pedidos, cantidad, etc, y se llama default.asp.

Lo dificl es que como incluyo esa funcion en el contenido del mail, lo que hice fue guardarlo en un include pero no me lo muestra
mi code es el siguiente:

Código:

Set Mail = Server.CreateObject(&quot;Persits.MailSender&quot;) 
Mail.Host = &quot;mi_smtp&quot; 
Mail.From = &quot;mail&quot;
Mail.FromName = &quot;root&quot; 

Mail.AddAddress &quot;direccion&quot;
Mail.AddReplyTo &quot;respuesta&quot;

Mail.Subject = &quot;Compras&quot;
mail.ishtml = True

mensaje=&quot;&lt;html&gt;&lt;body&gt;&lt;br&gt;&lt;font size=3&gt;&lt;center&gt;Sistema de compras en Línea&lt;br&gt;&quot; &amp; _
&quot;&lt;/font&gt;&lt;/center&gt;&lt;br&gt;&lt;b&gt;Nombre:&lt;/b&gt; &quot; &amp; Request.Form(&quot;fname&quot;) &amp; _
&quot;&lt;br&gt;&lt;b&gt;Apellidos:&lt;/b&gt;&quot; &amp; Request.Form(&quot;lname&quot;) &amp; _
&quot;&lt;br&gt;&lt;b&gt;Telefono:&lt;/b&gt; &quot; &amp; Request.form(&quot;phone&quot;) &amp; _
&quot;&lt;br&gt;&lt;b&gt;Direccion:&lt;/b&gt;&quot; &amp; Request.Form(&quot;bill_street&quot;) &amp; _
&quot;&lt;br&gt;&lt;b&gt;Email:&lt;/b&gt; &quot; &amp; Request.Form(&quot;email&quot;) 
&amp; _ 
&quot;&lt;br&gt;&lt;center&gt;&lt;b&gt;Tus compras fueron:&lt;/center&gt; &quot; &amp; _
&quot;&lt;/b&gt;&quot; &amp; &quot;&lt;!--#include file='default.asp'--&gt;&quot; &amp; &quot;&lt;br&gt;&lt;/body&gt;&lt;/html&gt;&quot; 

Mail.body = mensaje
Mail.Send

y por lo tanto en defautl.asp tengo todo lo que necesito para mostrar los productos de mi carro...!! pero no se si se pueda hacer eso, o que otra alternativa tengo..??

, espero su valiosa ayuda así como sugerencias..!!

Nota.- Si me llega al mail pero no me muestra mis productos que se encuentran en default.asp

Saludos..!!

<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html>

TomaHawkk · #2 (**permalink**) 26/06/2002, 01:26

Compara tu estructura con esta quizás falte algo:

Código:

 
&lt;%
Dim strEmail, strName, strComments, Mail
strEmail = request.form(&quot;Email&quot;)
strName = request.form(&quot;Name&quot;)
strComments = request.form(&quot;Comments&quot;)

Set Mail = Server.CreateObject(&quot;Persits.MailSender&quot;)
Mail.Host = &quot;Mail.YOURDOMAINNAME.com&quot;
Mail.From = strEmail
Mail.AddAddress &quot;YOUR EMAIL ADDRESS HERE&quot;
Mail.Subject = &quot;YOUR SUBJECT HERE&quot;
Mail.Body = &quot;Email: &quot; &amp; strEmail &amp; vbCrLf &amp; &quot;Name: &quot; &amp; strName &amp; vbCrLf &amp; &quot;Comments: &quot; &amp; vbCrLf &amp; strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err &lt;&gt; 0 THEN Response.Write &quot;Sorry, there was an error and your email was not sent.&quot; &amp; Err.Description
END IF
%&gt;

Saludos.

TomaHawkk · #3 (**permalink**) 26/06/2002, 01:30

ah! otra cosa, el fallo quizás este en que estas intentando enviar un mail en formato HTML, tal vez se hace de otra forma. :roto:

Prueba a enviar un mail en formato texto para ver si te llega el cuerpo del mensaje.

TomaHawkk · #4 (**permalink**) 26/06/2002, 01:33

Aquí te dejo un ejemplo de como "Enviar un e-mail en formato HTML utilizando CDONTS", otro componente, quizás te interese: ;)

Código:

&lt;%
  Dim objMail
  Set objMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)
   
  '//these are all the images that are in this message.
  '//you must include them like this.
  '//please note that you DO NOT have TO write the
  '//entire file path in the &lt;IMG&gt; tag in the body after this.
  '//make sure you see the image name after the path separated by a comma
   
  objMail.AttachURL &quot;D:\images\myImage.gif&quot;, &quot;myImage.gif&quot; 
  objMail.AttachURL &quot;D:\images\myImage2.gif&quot;, &quot;myImage2.gif&quot; 

 
  HTML = HTML &amp; &quot;&lt;HTML&gt;&quot;
  HTML = HTML &amp; &quot;&lt;HEAD&gt;&quot;
  HTML = HTML &amp; &quot;&lt;TITLE&gt;Send Mail with HTML&lt;/TITLE&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/HEAD&gt;&quot;
  HTML = HTML &amp; &quot;&lt;BODY  bgcolor=&quot;&quot;lightyellow&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;TABLE cellpadding=&quot;&quot;4&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;TR&gt;&lt;TH&gt;&lt;FONT color=&quot;&quot;darkblue&quot;&quot;  SIZE=&quot;&quot;4&quot;&quot;&gt;&quot;
  HTML = HTML &amp; now() &amp; &quot; - &quot;
  HTML = HTML &amp; &quot;These are all great ASP Sites&lt;/FONT&gt;&lt;/TH&gt;&lt;/TR&gt;&quot; 
  HTML = HTML &amp; &quot;&lt;TR&gt;&lt;TD&gt;&quot;
  HTML = HTML &amp; &quot;&lt;A HREF=&quot;&quot;http://www.4guysfromrolla.com&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;IMG SRC=&quot;&quot;myImage.gif&quot;&quot;&gt;&lt;/A&gt;&lt;BR&gt;&lt;BR&gt;&quot;
  HTML = HTML &amp; &quot;&lt;A HREF=&quot;&quot;http://www.4guysfromrolla.com&quot;&quot;&gt;&quot;
  HTML = HTML &amp; &quot;&lt;IMG SRC=&quot;&quot;myImage2.gif&quot;&quot;&gt;&lt;/A&gt;&lt;BR&gt;&lt;BR&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&lt;BR&gt;&lt;BR&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/BODY&gt;&quot;
  HTML = HTML &amp; &quot;&lt;/HTML&gt;&quot;
  
  objMail.From = &quot;[email protected]&quot;
  objMail.Subject = &quot;Your daily HTML Mail&quot;
      
  'you need TO add these lines FOR the mail
  'to be sent in HTML format
  objMail.BodyFormat = 0 
  objMail.MailFormat = 0 

  objMail.To = &quot;[email protected]
  objMail.Body = HTML
  objMail.Send
  
  Response.write(&quot;Mail was Sent&quot;)
  set objMail = nothing
%&gt;

Suerte!

iJanos · #5 (**permalink**) 26/06/2002, 01:56

Veamos, no lei todo el codigo, pero me parece que cometiste un par de errores (o los cometi yo)

1) Incluis en el cuerpo del mail el archivo default.asp, cosa que no se si se puede hacer como la estas haciendo vos, con el include virtual (o include file)

2) cuando llamas, desde el objeto ActiveX (persist, si no lei mal) la pagina default.asp busca los pedidos de ... quien?, como sabe que son los pedidos de tal o cual usuario?, ya que si es por una cookie, busca en tu maquina el usuario, pero cuando el pedido de esa pagina la hace el mismo servidor (porque la hace un control dentro del IIS), no se si busca lo que vos queres.

Yo te recomendaria que escribas un codigo similar al de la pagina default.asp que cree toda la estructura que se tiene que enviar por email, y lo guardes en una string, despues si, arma la conexión con el objeto persist y manda el mail, incluyendo esta string y no el include.
Y tambien fijate la forma de mandar email con cuerpo html.

Espero te sirva
elJano

alboraia · #6 (**permalink**) 26/06/2002, 07:46

Hola
No entiendo muy bien donde te falla.
Yo utilizo persist para un sistema de postales. Pero lo hago llamando a una pagina que es la que genera el mail en html. Te envio el código por si te sirve de algo... suerte
<%
'cambiamos los saltos de carro por <br>
comentarios=replace(request.form("comentarios "),chr(10),"<br>")
'Ponemos la primera letra en mayusculas
inicial=ucase(mid(request.form("comentarios&q uot;),1,1))
'Asignamos a la variable comentarios el resto de la cadena. Solo qeuda configurar la slineas como mejor convenga.
comentarios=mid(comentarios,2)
strHost = "127.0.0.1"
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = strHost
Mail.From = "[email protected]"
Mail.FromName = request.form("nombre")
Mail.AddReplyTo request.form("email")
Mail.AddAddress request.form("emailamigo")
titulo=Request.form("Nombre")&" te envia una e-postal"
Mail.Subject = titulo
Mail.IsHTML = True
mensaje="<html><head>" ' y a partir de aquí construimosla página web
mensaje=mensaje & "<title>Una E-postal para ti</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & "<center> "&vbcrlf
mensaje=mensaje & "<table border=0 width=652 "
'mensaje=mensaje & " background=http://www.alboraya.org/images/rayasgrises.gif> "&vbcrlf
mensaje=mensaje & " <tr>"&vbcrlf
mensaje=mensaje & " <td width=93 bgcolor=#408080>&nbsp;</td>"&vbcrlf
mensaje=mensaje & " <td width=543>&nbsp;"&vbcrlf
mensaje=mensaje & " <table border=0 cellspacing=5 bgcolor=#FCFAA3>"&vbcrlf
mensaje=mensaje & " <tr> <td ><center><img border=0 src="&urlfoto&request.form("url& quot;)&"></td></center>"&vbcrlf
mensaje=mensaje & " <tr><td valign=top>"&vbcrlf
mensaje=mensaje & " &nbsp;&nbsp;&nbsp;<i><font color=#006699 size=7>"
mensaje=mensaje & inicial&"</font></i>"&comentarios&vbcrlf
mensaje=mensaje & "</td> </tr>"&vbcrlf
mensaje=mensaje & " <tr>"&vbcrlf
mensaje=mensaje & "<td colspan=2> "&vbcrlf
mensaje=mensaje & " <

<center>Formatia transitere Educatorum.<br> Sapere Aude </center>

alboraia · #7 (**permalink**) 26/06/2002, 07:47

mensaje=mensaje & " <tr>"&vbcrlf
mensaje=mensaje & "<td colspan=2> "&vbcrlf
mensaje=mensaje & " <font color=#FFFFFF>De:</font>"&vbcrlf
mensaje=mensaje & " <a href=mailto:"& request.form("email")&">&quo t;
mensaje=mensaje & request.form("nombre")&" </a><br>"&vbcrlf
mensaje=mensaje & "<font color=#FFFFFF>Para:</font> "&vbcrlf
mensaje=mensaje & request.form("amigo")&"("& amp;request.form("emailamigo")&&quot ;)"&vbcrlf
mensaje=mensaje & " </td> </tr></table><p>&nbsp;</p> </td></tr>"&vbcrlf
mensaje=mensaje & " </table>"&vbcrlf
mensaje=mensaje & " </center>"&vbcrlf

Mail.Body = mensaje
Mail.Send
%>

no cabia todo en uno...
espero que te sirva.
Yo estoy empezando... sineto no poder hacer mas.

<center>Formatia transitere Educatorum.<br> Sapere Aude </center>

jasistemas · #8 (**permalink**) 26/06/2002, 11:39

Un consejo. separa tus programas por funcionalidad.. un programa para agregar al carrito.asp, otro programa para enviarmail.asp, otro programa para default.asp y asi... ya luego solo los llamas de uno a otro con includes..

RootK · #9 (**permalink**) 26/06/2002, 13:04

Gracias a todos por sus comentarios, pero a lo mejor no me dí a entender.. en todo para enviar los datos por correo electrónico me funciona de maravilla, pero.. mi pregunta es: si puedo dentro del cuerpo del mensaje incluir

ya que dentro de ésto tengo el resto de mi programación es decir .. algo así:

mail.ishtml = true

mensaje="<html><body>todo mi mensaje " & _
"sigue mi mensaje &


mail.body = mensaje
mail.send

Es decir.. quiero incluir por decir.. mas texto o información pero no se si se pueda ..???

Gracias a todos... y saludos..!! ;) ;)

<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html>

iJanos · #10 (**permalink**) 27/06/2002, 00:50

Eso fue lo que te dije que me parece que no podes hacer.

Por que?
Porque si no me equivoco, la sentencia include no es de ASP, entonces no podrias encerrarla dentro de los <% %>.

Quizas me equivoque, pero creo que vas a tener que hacer modulos de otra forma para aprovechar el codigo. Creo.

Espero te sirva
Exitos

Cbas · #11 (**permalink**) 14/11/2002, 16:07

Bueno RootK creo que lo mas conveniente seria lo siguiente que el include lo hagas arriba de todo en HTML y que lo que tenes que te muestra todo lo del carro lo hagas función...asi te quedaría de la siguietne manera

mensaje="<html><body>todo mi mensaje " & _
"SIGUE MI MENSAJE BLA BLA " &_
MuestraCarrito

Probalo...creo que es lo mejor por que es mas confiable porque solamente va a aparecer cuando vos la invoques por mas que pongas el include en cualquier parte...cualquier duda mandame un mail a [email protected]

SALUDOS y espero haber sido de ayuda