Enviar HTML con imagenes incrustadas con ASP.NET?

14/07/2004 - 13:10 por XusQ | Informe spam

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 & "</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> </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'> </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