Embedded image in Email
How to send a email with an embedded image with cdo ?
This is how it can be done in asp / vbscript
Set iMsg=Server.CreateObject("CDO.Message")
strHTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
strHTML = strHTML & "<HTML>"
strHTML = strHTML & " <HEAD>"
strHTML = strHTML & " <TITLE>Sample GIF</TITLE>"
strHTML = strHTML & " </HEAD>"
strHTML = strHTML & " <BODY><P>"
strHTML = strHTML & " <IMG src=""cid:XYZ.gif""></p><p>Embedded Graphic</P>"
strHTML = strHTML & " </BODY>"
strHTML = strHTML & "</HTML>"
iMsg.HTMLBody = strHTML
iMsg.AddRelatedBodyPart "c:\images\logo.jpg",
"XYZ.gif", cdoRefTypeId
iMsg.to="His@email.nl
iMsg.from="Your@email.com
iMsg.Send
|