Category: ASP
How to embed image in HTML email
<% Dim objNewMail, strHTML 'Creates HTML body strHTML ="
Hello Zarqawi,
”
strHTML = strHTML + ”
Long time no see. I can’t believe you are stealing copier sheets from Pentagon”
strHTML = strHTML + ”
V. Subhash
http://www.vsubhash.com
"
'Refers to an embedded image
strHTML = strHTML + "src="subhash.jpg" "
strHTML = strHTML + "
"
'Creates CDONTS NewMail object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
'Makes it an HTML e-mail
objNewMail.BodyFormat = CdoBodyFormatHTML
objNewMail.MailFormat = CdoMailFormatMime
'Specifies sender's e-mail address
objNewMail.From = "V. Subhash - GML <moralvolcano@yahoo.com>"
'Specifies recipient's e-mail address
objNewMail.To = "Al Zarqawi <zarqawi@basement.pentagon.mil>"
'Specifies subject line
objNewMail.Subject = "Re: Cheap office supplies"
'Embeds image subhash_pps.jpg as subhash.jpg
objNewMail.AttachURL Server.MapPath(".") & "subhash_pps.jpg", "subhash.jpg"
'Specifies e-mail body
objNewMail.Body = strHTML
'Sends the e-mail
objNewMail.Send
Set objNewMail = Nothing
%>
Tags:
ASP