jueves, 1 de marzo de 2012

Enviar correo con imagenes en ASP

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