Para enviar imagenes embebidas en un correo electrónico sin problemas desde ASP hay que añadirlas de una forma específica para que estén adjuntas al mensaje y no requieran descargarlas remotamente desde nuestro servidor. Para ello debemos de utilizar el siguiente fragmento de código:
Const CdoReferenceTypeName = 1
Dim objCDO, objBP
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.MimeFormatted = True
objCDO.To = "you@yourdomain.com"
objCDO.From = "you@yourdomain.com"
objCDO.Subject = "Embedded image demo"
objCDO.HTMLBody = "<html>Mi imagen: <img src=""cid:myimage.gif""></html>"
Set objBP = objCDO.AddRelatedBodyPart(Server.MapPath("/images/myimage.gif"), "myimage.gif", CdoReferenceTypeName)
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<myimage.gif>"
objBP.Fields.Update
objCDO.Send
No hay comentarios:
Publicar un comentario