Si cuando pongo la pagina que se envía en un navegador se ve excelente, pero al outtlook llega una desgracia, también he probado con el servidor hotmail hay se muestran algunos estilos pero no todos.
Antes de que respondan en vano, aclaro que he probado poniendo el css en rutas absolutas, es decir el archivo css esta colgado en el servidor y tampoco; lo he puesto en la misma cadena de envió pero igual no se llega a mostrar adecuadamente.
Les adjunto mi codigo asp
Código ASP:
Ver original
<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "mail.mydominio.com" .update End With function iif(psdStr, trueStr, falseStr) if psdStr then iif = trueStr else iif = falseStr end if end function Dim objetoMail Set objetoMail = Server.CreateObject ( "CDO.Message" ) if request.form("FullName")<>"" then ok = true else ok = false end if if ok then ' Creamos el objeto email Set objetoMail.Configuration = cdoConfig ' Configuramos el email 'objetoMail.MailFormat = cdoMailFormatMIME objetoMail.Subject = "Contact Us " 'objetoMail.BodyFormat = cdoBodyFormatHTML 'objetoMail.contentBase="http://www.mydominio.com/Peru" sMsgHTML ="<html xmlns=http://www.w3.org/1999/xhtml><head><meta http-equiv=Content-Type content=text/html; charset=utf-8 /><title>by TheDark03</title><style>table{width:400px;background:#f0f0f0;font-family:verdana;font-size:11px;} table span{display:block;font-family:verdana;font-size:14px;color:#666666;font-weight:bold;text-align:center;background:#FFFFFF;padding:5px;} table td{width:200px;} table td.caption{width:200px;color:#666666;font-weight:bold;;padding:3px;}</style></head><body><br> <table width='400' border='1' cellpadding='0' cellspacing='0' bordercolor='#666666' background='#ddd'>" sMsgHTML=sMsgHTML+"<tr> <td colspan='2'><div align='center'><img src='http://www.amazingperu.com/images/logocontact.jpg' ></div></td> </tr>" sMsgHTML=sMsgHTML+"<tr> <td colspan='2'><span>CONTACT US</span></td></tr>" 'Split("VBScriptXisXfun!", "x", -1, 1) 'FullName,Email,Country,PhoneNumber,Address,WheredidYouhearAboutus,SuscribeNewsletter,QuestionsAndRequests fmdatos=Split("FullName,Email,Country,PhoneNumber,Address,WheredidYouhearAboutus,QuestionsAndRequests",",",-1,1) for each d in fmdatos sMsgHTML = sMsgHTML+" <tr> <td class='caption'>"&d&"</td><td>"&Request.Form(d)&" </td></tr> " next sMsgHTML = sMsgHTML+" <tr> <td class='caption'>Date Contact</td><td>"&now&" </td></tr> " sMsgHTML =sMsgHTML+"</table></body></html> " objetoMail.htmlBody = sMsgHTML ' Enviamos el email objetoMail.Send ' Destruimos el objeto email end if Set objetoMail = Nothing %>
Espero que me puedan ayudar. Gracias ante todo!
Saludos DLB