POR QUE FALLA Mailer.BodyText = Cuerpo ?

CARLOS.asp · #1 (**permalink**) 25/11/2006, 04:14

<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, producto ,index

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "CLIENTE"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient"XXXXXXXXXXX"
Mailer.Subject = "ENCARGO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.Bodytext= "HOMEOPATIA - COMANDA"
Mailer.RemoteHost = "smtpMail.activeisp.com"

Mailer.BodyText = Cuerpo

//No consigo que en el email se cumplan las condiciones :

Cuerpo = "<HTML><BODY bgColor=#FFFF80><br><TABLE cellSpacing=0 cellPadding=2 width=800 align=center bgColor=#FFFF80 border=1><TR><TD Align='Center'></BODY></HTML>"

Mailer.Bodytext = "Nombre " + " : " & Request.form("nombre") & VbCrLf

Mailer.Bodytext = "Domicilio " + " : " & Request.form("domicilio") & VbCrLf

Mailer.Bodytext = "email " + " : " & Request.form("email") & VbCrLf

Mailer.Bodytext = "PRODUCTOS " + " : " & Request.form("select1") & VbCrLf

Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if

pablinff · #2 (**permalink**) 25/11/2006, 08:42

Código:

<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, producto ,index

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 


Mailer.FromName = "CLIENTE"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient"XXXXXXXXXXX"
Mailer.Subject = "ENCARGO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.Bodytext= "HOMEOPATIA - COMANDA"
Mailer.RemoteHost = "smtpMail.activeisp.com" 

Mailer.BodyText = Cuerpo

//No consigo que en el email se cumplan las condiciones :

' Fijate que los atributos deben estar dentro de dos comillas dobles (""atributo"")
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""1""><TR><TD Align=""Center""></BODY></HTML>"

' Acá vos estás Redefiniendo el BodyText, por eso solo te va a tomar lo que pones a continuación

Mailer.Bodytext = "Nombre " + " : " & Request.form("nombre") & VbCrLf

Mailer.Bodytext = "Domicilio " + " : " & Request.form("domicilio") & VbCrLf

Mailer.Bodytext = "email " + " : " & Request.form("email") & VbCrLf

Mailer.Bodytext = "PRODUCTOS " + " : " & Request.form("select1") & VbCrLf 

Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if

El tema del BodyText te debería quedar así:

Código:

Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""1""><TR><TD Align=""Center""></BODY></HTML>"
Cuerpo = Cuerpo & "Nombre " + " : " & Request.form("nombre") & VbCrLf
Cuerpo = Cuerpo & "Domicilio " + " : " & Request.form("domicilio") & VbCrLf
Cuerpo = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Cuerpo = "PRODUCTOS " + " : " & Request.form("select1") & VbCrLf

De esta forma "Cuerpo" tendrá todos los valores que querés.
En cambio lo que vos hacías era redefinir la variable "BodyText" constantemente, entonces el valor final que tomaba "BodyText" era este
"PRODUCTOS " + " : " & Request.form("select1") & VbCrLf
Por eso a Mail.BodyText ponelo así:
Mail.BodyText = Cuerpo

Bueno probá y contame como te fué.
Espero haberte sido de ayuda.
Saludos!

CARLOS.asp · #3 (**permalink**) 26/11/2006, 04:58

Lo Pruebo Y Te Comento

CARLOS.asp · #4 (**permalink**) 26/11/2006, 05:09

LO HE PROBADO Y NO HA FUNCIONADO HASTA QUE HE CAMBIADO ,Cuerpo = Cuerpo, por Mailer.Bodytext = Cuerpo. !!!!. Ahora funciona. Además en la definición de Cuerpo le he tenido que cambiar border=""1"" por border=""0"" para que no me apareciera una tabla dentro de otra tabla

<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, producto, index

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "XXXX"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient"DDDDDDDDDDDDDD"
Mailer.Subject = "HHHHHHHHH"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"

Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"

Mailer.BodyText = Cuerpo

Mailer.Bodytext = Cuerpo & "ZZZZZZZZZ" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " + " : " & Request.form("select1") & VbCrLf

Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK")+ Mailer.Response
end if
%>

Muchas gracias

pablinff · #5 (**permalink**) 26/11/2006, 15:06

Bueno me alegra haberte podido ayudar!
Con respecto a lo que en un principio no te funcionó, es porque primero tenés que asignarle los valores a cuerpo así:

Código:

' Le das los valores a "cuerpo"
Cuerpo = "ZZZZZZZZZ" & VbCrLf & VbCrLf 
Cuerpo = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Cuerpo = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Cuerpo = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Cuerpo = Cuerpo & "PRODUCTO " + " : " & Request.form("select1") & VbCrLf

' Luego le asignas a Mailer.BodyText el valor de Cuerpo
Mailer.BodyText = Cuerpo

Fijate que la primera linea no tiene "Cuerpo" después del igual, recien en la segunda linea se pone "Cuerpo &" ... esto es porque en la primera linea recién se le está dando valores a Cuerpo, y lo que se hace en la segunda y las subsiguientes lineas es sumarle a Cuerpo otros valores con el operador "&".
Si no ponés en las siguientes lineas el valor Cuerpo y lo concatenas con & a los demás valores, cuerpo se va a redefinir y te va a mostrar solo las últimos valores que le asignaste.

Explicandote masomenos lo que vos pusiste:

Código:

Mailer.BodyText = Cuerpo

Mailer.Bodytext = Cuerpo & "ZZZZZZZZZ" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " + " : " & Request.form("select1") & VbCrLf

En la primera linea donde vos pusiste "Mailer.BodyText = Cuerpo" lo que hiciste es asignarle a "Mailer.BodyText" el valor 0, puesto que "cuerpo" hasta el momento no tiene ningun valor.
No se la verdad que se ma hace que así como pusiste no te debería funcionar, pero si te funciona bien, pero te recomiendo que pongas de la manera en la que te expliqué arriba.
Saludos

CARLOS.asp · #6 (**permalink**) 26/11/2006, 17:46

Gracias, MirarÉ De Rescribirlo Como Me Dices