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

Expand|Select|Wrap|Line Numbers

 <%

'Sends an email

Dim mail

Set mail=Server.CreateObject("CDO.Message")

mail.To=Request.Form("To")

mail.From="jake@yaketyyak.co.uk"

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

Expand|Select|Wrap|Line Numbers

<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

Expand|Select|Wrap|Line Numbers

 '...

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

Expand|Select|Wrap|Line Numbers

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

CDO email an image

re: CDO email an image

re: CDO email an image

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about