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> </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
Últimos mensajes - Powered by IBM
Palabras claves
Hacer una pregunta
Siga el debate
Tengo una respuesta
Busqueda sugerida
Sábado 07 de junio - 07:13
Registrar
Leer las respuestas