Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Enviar HTML con imagenes incrustadas con ASP.NET?

14/07/2004 - 13:10 por XusQ | Informe spam
Ayuda Hacer una pregunta
Buenas! Estoy intentando mandar imagenes "embebidas" dentro de un HTML que
mando por e-mail.

.Net permite hacer esto? imagino que si.. pues el CDONTS de ASP "clasico" lo
hacía...

No obstante, si adjunto las imagenes como atatchments no me las muestra en
su sitio, sino que como atattchments :P

A ver si álguien sabe algo

Gracias!





Dim CuerpoMail As String

CuerpoMail = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN'
'http://www.w3.org/TR/xhtml1/DTD/xht...tional.dtd'>"

CuerpoMail = CuerpoMail & "<html
xmlns='http://www.w3.org/1999/xhtml'><head><title>Recordatorio Clave de
Acceso LaClinica.Net</title>"

CuerpoMail = CuerpoMail & "<style type='text/css'>"

CuerpoMail = CuerpoMail & "<!--"

CuerpoMail = CuerpoMail & "body { margin-left: 0px; margin-top: 0px;
margin-right: 0px; margin-bottom: 0px;}"

CuerpoMail = CuerpoMail & ".Estilo1 { font-family: Verdana, Arial,
Helvetica, sans-serif; font-size: 12px;}"

CuerpoMail = CuerpoMail & ".Estilo2 { color: #337BC3; font-weight: bold;}"

CuerpoMail = CuerpoMail & "-->"

CuerpoMail = CuerpoMail & "</style></head><body><table width='100%'> <tr>
<td align='center' valign='middle'> <br />"

CuerpoMail = CuerpoMail & "<table width='616' border='0' cellspacing='0'
cellpadding='0'><tr><td colspan='2' align='left'><img src='logo.jpg'
width='228' height='41' /></td>"

CuerpoMail = CuerpoMail & "</tr><tr><td colspan='2'><img src='barrasup.jpg'
width='616' height='21' /></td>"

CuerpoMail = CuerpoMail & "</tr><tr><td width='42' height='172'
bgcolor='#E8F0F2'><div align='left'><p>&nbsp;</p>"

CuerpoMail = CuerpoMail & "</div></td><td width='574' valign='top'
bgcolor='#E8F0F2' class='Estilo1'><div align='left'><br />"

CuerpoMail = CuerpoMail & "<br /><u><span class='Estilo2'>Recordatorio clave
de acceso LaClinica.Net</span></u><br />"

CuerpoMail = CuerpoMail & "<br /><br />Alguna persona, que podría ser usted,
ha solicitado que se le recuerde su contraseña de LaClinica.Net<br /><br
/>Su clave de acceso es:<br /><br /><strong>" & clau & "</strong> <br />"

CuerpoMail = CuerpoMail & "<br /><br /><em>LaClinica.Net</em></div></td>
</tr><tr><td height='58' bgcolor='#E8F0F2'>&nbsp;</td>"

CuerpoMail = CuerpoMail & "<td bgcolor='#E8F0F2'><div align='left'><a
href='http://www.laclinica.net' target='_blank'><img src='ir.jpg' alt='Ir a
www.laclinica.net' width='106' height='22' border='0' /></a></div></td>"

CuerpoMail = CuerpoMail & "</tr><tr><td colspan='2'><img src='barrainf.jpg'
width='616' height='19' /></td></tr></table></td>"

CuerpoMail = CuerpoMail & "</tr></table></body></html>"

' Preparem objecte mail

Dim MiCorreo As Mail.MailMessage

MiCorreo = New MailMessage()

' Carreguem els adjunts

MiCorreo.Attachments.Add(New MailAttachment(MapPath("logo.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("barrainf.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("barrainf.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("ir.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("spacer.gif")))

MiCorreo.BodyFormat = MailFormat.Html

MiCorreo.From = "info@prueba.net"

MiCorreo.To = txtOlvido.Text

'MiCorreo.Cc
MiCorreo.Subject = "prova"

MiCorreo.Body = CuerpoMail

SmtpMail.SmtpServer = Application("dnsSmtpServer")

SmtpMail.Send(MiCorreo)

MiCorreo = Nothing
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sashka
14/07/2004 - 17:01 | Informe spam
http://www.eggheadcafe.com/articles/20040527.asp

Sashka

"XusQ" escribió en el mensaje
news:
Buenas! Estoy intentando mandar imagenes "embebidas" dentro de un HTML que
mando por e-mail.

.Net permite hacer esto? imagino que si.. pues el CDONTS de ASP "clasico"


lo
hacía...

No obstante, si adjunto las imagenes como atatchments no me las muestra en
su sitio, sino que como atattchments :P

A ver si álguien sabe algo

Gracias!





Dim CuerpoMail As String

CuerpoMail = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0


Transitional//EN'
'http://www.w3.org/TR/xhtml1/DTD/xht...tional.dtd'>"

CuerpoMail = CuerpoMail & "<html
xmlns='http://www.w3.org/1999/xhtml'><head><title>Recordatorio Clave de
Acceso LaClinica.Net</title>"

CuerpoMail = CuerpoMail & "<style type='text/css'>"

CuerpoMail = CuerpoMail & "<!--"

CuerpoMail = CuerpoMail & "body { margin-left: 0px; margin-top: 0px;
margin-right: 0px; margin-bottom: 0px;}"

CuerpoMail = CuerpoMail & ".Estilo1 { font-family: Verdana, Arial,
Helvetica, sans-serif; font-size: 12px;}"

CuerpoMail = CuerpoMail & ".Estilo2 { color: #337BC3; font-weight: bold;}"

CuerpoMail = CuerpoMail & "-->"

CuerpoMail = CuerpoMail & "</style></head><body><table width='100%'> <tr>
<td align='center' valign='middle'> <br />"

CuerpoMail = CuerpoMail & "<table width='616' border='0' cellspacing='0'
cellpadding='0'><tr><td colspan='2' align='left'><img src='logo.jpg'
width='228' height='41' /></td>"

CuerpoMail = CuerpoMail & "</tr><tr><td colspan='2'><img


src='barrasup.jpg'
width='616' height='21' /></td>"

CuerpoMail = CuerpoMail & "</tr><tr><td width='42' height='172'
bgcolor='#E8F0F2'><div align='left'><p>&nbsp;</p>"

CuerpoMail = CuerpoMail & "</div></td><td width='574' valign='top'
bgcolor='#E8F0F2' class='Estilo1'><div align='left'><br />"

CuerpoMail = CuerpoMail & "<br /><u><span class='Estilo2'>Recordatorio


clave
de acceso LaClinica.Net</span></u><br />"

CuerpoMail = CuerpoMail & "<br /><br />Alguna persona, que podría ser


usted,
ha solicitado que se le recuerde su contraseña de LaClinica.Net<br /><br
/>Su clave de acceso es:<br /><br /><strong>" & clau & "</strong> <br />"

CuerpoMail = CuerpoMail & "<br /><br /><em>LaClinica.Net</em></div></td>
</tr><tr><td height='58' bgcolor='#E8F0F2'>&nbsp;</td>"

CuerpoMail = CuerpoMail & "<td bgcolor='#E8F0F2'><div align='left'><a
href='http://www.laclinica.net' target='_blank'><img src='ir.jpg' alt='Ir


a
www.laclinica.net' width='106' height='22' border='0' /></a></div></td>"

CuerpoMail = CuerpoMail & "</tr><tr><td colspan='2'><img


src='barrainf.jpg'
width='616' height='19' /></td></tr></table></td>"

CuerpoMail = CuerpoMail & "</tr></table></body></html>"

' Preparem objecte mail

Dim MiCorreo As Mail.MailMessage

MiCorreo = New MailMessage()

' Carreguem els adjunts

MiCorreo.Attachments.Add(New MailAttachment(MapPath("logo.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("barrainf.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("barrainf.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("ir.jpg")))

MiCorreo.Attachments.Add(New MailAttachment(MapPath("spacer.gif")))

MiCorreo.BodyFormat = MailFormat.Html

MiCorreo.From = ""

MiCorreo.To = txtOlvido.Text

'MiCorreo.Cc >
MiCorreo.Subject = "prova"

MiCorreo.Body = CuerpoMail

SmtpMail.SmtpServer = Application("dnsSmtpServer")

SmtpMail.Send(MiCorreo)

MiCorreo = Nothing


Preguntas similares

 

Busqueda sugerida :