Sende CDO emails med embedded images
Jeg vil sende html nyhedsbreve ud og vil have det således at modtageren ikke behøver at klikke på 'download images' for at se dem. De skal bare komme med det samme.Denne her kode virker faktisk, MEN ikke når jeg sender til hotmail brugere. Kan nogen hjælpe mig med at sig hvad jeg gør galt eller hvad jeg bør prøve?
Const CdoReferenceTypeName = 1
Dim objCDO, objBP
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.MimeFormatted = True
objCDO.To = "paulazoe@hotmail.com"
objCDO.From = "info@zapin.net"
objCDO.Subject = "Embedded image demo"
objCDO.HTMLBody = "<html>Check this out: <img src=""cid:topbar.gif""></html>"
Set objBP = objCDO.AddRelatedBodyPart(Server.MapPath("/pics/topbar.gif"), "topbar.gif", CdoReferenceTypeName)
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<topbar.gif>"
objBP.Fields.Update
objCDO.Send
