Email con html de muchas Líneas

jpogsistem · #1 (**permalink**) 15/04/2005, 12:13

Hola,

Bien, tengo funcionando un envío de correo por página ASP y funciona bien enviando código html.

Ahora tengo que enviar otra html pero esta tiene demasiado diseño (Está hecha en dreamweaver) y yo utilizo la forma de envío asignando las líneas de esta manera:

Código PHP:

  mensaje="<html><head>" 
mensaje=mensaje & "<title>Pagina de Envío</title>"&vbcrlf 
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf 
mensaje=mensaje & " <center>"&vbcrlf

Entonces no quiero hacer esto manual a cada línea del dreamweaver.

Existe alguna forma de encadenar todo un bloque de html?

Gracias de antemano.

Myakire · #2 (**permalink**) 15/04/2005, 12:38

Supongo que es tarea de una sola vez, ¿no?, ¿por qué no haces una programita en Delphi, VB, ASP(FSO) que haga lo que quieres?, lo corres y lo tiras.

jpogsistem · #3 (**permalink**) 15/04/2005, 13:35

ya estaba imaginando eso, dime una cosa para toda esa concatenación que estoy haciendo todas las comillas dobles:

Código PHP:

  <td width="4" height="16"><

Deben ser todas remplazadas por comillas sencillas no?

Un saludo. Gracias.

AlZuwaga · #4 (**permalink**) 15/04/2005, 13:41

También podés reemplazarlas por dos comillas dobles seguidas:

VariableASP = "<td width=""4"" height=""16"">"

Myakire · #5 (**permalink**) 15/04/2005, 14:03

De hecho lo que dice A_Z es lo ideal ya que las comillas sencillas (apostrofes) no estan dentro dde la norma w3c, si mal no recuerdo, por lo que algún browser, pudiera ser que no las interprete (aunque ¿cual browser es ese?, no se)

AlZuwaga · #6 (**permalink**) 15/04/2005, 14:22

Igual, creo haber leído alguna vez en la w3c que los apóstrofes sí están dentro del estandard. Pero es un recuergdo vago.

Ah, ya te paso un script que tenía por allí que hace +- lo que necesitás para "variabilizar" (?) código HTML.. dejáme buscarlo.

AlZuwaga · #7 (**permalink**) 15/04/2005, 14:36

Mmmm... no estoy seguro si esta era la versión final, pero por las dudas probala a ver si te sirve:

Código:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Archivo = FSO.OpenTextFile("c:\inetpub\wwwroot\unArchivo.asp", 1, false)
Contenido = Archivo.ReadAll
Contenido = Split(Contenido, vbcrlf)


For i = 0 To Ubound(Contenido)
	tmp = Contenido(i)
	tmp = Replace(tmp, CHR(034), CHR(034) & CHR(034))
	tmp = "strHTML = strHTML & """ & Server.HTMLEncode(tmp) & """ & vbcrlf" & "<br>"
	tmp = Replace(tmp, " ", "&nbsp;")
	Response.Write tmp
Next

Archivo.Close
Set Archivo = Nothing
Set FSO = Nothing
%>