Hola a todos, no se si le ha pasado a alguien, a mi no me había pasado nunca.
Cuando envío el mail, con formato HTML, entre el texto, me salen simbolos, (!), he incluso algún cambio de color en el texto, no me lo hace.
He probado de todo, incluso he puesto <table> en cada línea.
También se me descuadraban las columnas. Quitando una parte del código, lo he arreglado. Pero esta parte de código la necesito.
Aqui teneis una parte del codigo:
Mail.Subject = "PEDIDO: " & Session ("cln")
Mail.IsHTML = True
Mensaje ="<BODY bgcolor=lightyellow>"
Mensaje = Mensaje & "<font color=#008080>" & "DATOS CLIENTE" & "</font><hr color=#808080 width=625 align=left size=1>"
Mensaje = Mensaje & "<font color=#000080>" & "Codigo: " & Session ("cli") & "<br>"
Mensaje = Mensaje & "Nombre: " & Session ("cln") & "</font><br><br>"
Mensaje = Mensaje & "<font color=#008080>" & "DATOS DEL PEDIDO" & "</font><hr color=#808080 width=625 align=left size=1>"
DIM BD, RS1, SQL1
Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "DSN=mosimoll.com.per"
Set RS1 = Server.CreateObject("ADODB.Recordset")
SQL1 = "SELECT * FROM per_ped where codigo=" & Session ("cli")
RS1.Open SQL1, BD
Mensaje = Mensaje & "<table border=0><tr>"
Mensaje = Mensaje & "<td width=100><font color=#FF0000>Fecha</td>"
Mensaje = Mensaje & "<td width=75><font color=#FF0000>Referencia</td>"
Mensaje = Mensaje & "<td width=250><font color=#FF0000>Descripcion</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Pr/Un</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Un/Cj</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Cajas</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Impor</td></tr></table>"
Do While Not RS1.EOF
Mensaje1 = Mensaje1 & "<table border=0><tr>"
Mensaje1 = Mensaje1 & "<td width=100 valign=top><font color=#336699 size=2>" & RS1("fecha") & "</td>"
Mensaje1 = Mensaje1 & "<td width=75 valign=top><font color=#336699 size=2>" & RS1("Referencia") & "</td>"
Mensaje1 = Mensaje1 & "<td width=250 valign=top><font color=#336699 size=2>" & RS1("Descripcion") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("precio") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("unidades") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("cantidad") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("importe") & "</td></tr></table>"
Total=Total + RS1("importe")
RS1.Movenext
Loop
Mensaje = Mensaje & Mensaje1
Mensaje = Mensaje & "<br><table border=0 cellpadding=0 cellspacing=0>"
Mensaje = Mensaje & "<tr><td width=475 align=center><font color=#808080>Total Pedido:</td>"
Mensaje = Mensaje & "<td width=150 align=right><font color=#808080>" & Total & "</td></tr></table></body>"
Mail.Body = Mensaje
Esto es lo que he quitado:
' If RS1("Tofe") = "Q" then
' Regal = RS1("cantidad")\RS1("qofe")
' If Regal > 0 then
' Regal= formatnumber(regal,2)
' Mensaje1 = Mensaje1 & "<table border=0><tr>"
' Mensaje1 = Mensaje1 & "<td width=100 valign=top><font color=#336699 size=2> </td>"
' Mensaje1 = Mensaje1 & "<td width=75 valign=top><font color=#FF99CC size=2>" & RS1("Referencia") & "</td>"
' Mensaje1 = Mensaje1 & "<td width=250 valign=top><font color=#FF99CC size=2>REGALO POR CANTIDAD</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>0,00</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>" & RS1("unidades") & "</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>" & Regal & "</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>0,00</td></tr></table>"
' End If
' End If
Tiene que ir justo delante de : Total=Total + RS1("importe")
