CDO email an image

[colinod]

HI i am trying to add a company logo to a cdo email sent from our website.

the code i am using at the moment is

<%
'Sends an email
Dim mail
Set mail=Server.CreateObject("CDO.Message")
mail.To=Request.Form("To")
mail.From="[e-mail]"
mail.Bcc=Request.Form("Bcc1")
mail.Subject=Request.Form("Subject")
mail.HTMLBody=Request.form("body2") & Request.Form("Body") & vbNewline & "<img src=http://www.yaketyyak.co.uk/images/makeup/letterheadsmall.jpg>" & vbNewline & Request.Form("Bodyfooter")
mail.Send()
Response.Write("")
'Destroy the mail object!
Set mail = nothing
%>

this sends the email perfectly but the image comes up with a red cross and no image, this i think is down to the missing " in the img src

The image source line in the email reads as follows

<img src=http://www.yaketyyak.co.uk/images/makeup/letterheadsmall.jpg>

I have tried various ways to code this line but cant get the inverted commas to appear

[jhardman]

try this

'...
dim q
q = chr(34)
mail.HTMLBody=Request.form("body2") & Request.Form("Body") & vbNewline & "<img src=" & q & "http://www.yaketyyak.co.uk/images/makeup/letterheadsmall.jpg" & q & ">" & vbNewline & Request.Form("Bodyfooter")
'...

that should solve the quote mark issue, I'm not sure it will resolve the issue of the img showing up.

Jared

[colinod]

Hi Jared

I just added some inverted commas as the following and it worked

mail.HTMLBody=Request.form("body2") & Request.Form("Body") & vbNewline & "<img src=""http://www.yaketyyak.co.uk/images/makeup/letterheadsmall.jpg"">" & vbNewline & Request.Form("Bodyfooter")