我做了一个自动发HTML格式邮件不显示图片?
代码如下:
<%
Dim objMail,HTML,sendto,sendfrom,sendsubject
sendto="yh5530@163.com"
sendfrom= "yh5530@163.com"
sendsubject= "自动发送HTML邮件主题"
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""ec0000"">"
HTML = HTML & "<table width=100% border=1 bgcolor=""EC0000"">"
HTML = HTML & "<tr><td height='900' background='images.gif'>"
HTML = HTML & "<img src='images.gif'></table></td></tr>"
HTML = HTML & "</table>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
Set objMail = CreateObject("CDONTS.Newmail")
objMail.AttachURL "E:\images.gif", "images.gif"
objMail.TO = sendto '收件人邮箱地址
objMail.From = sendfrom
objmail.Subject = sendsubject '主题
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = HTML '文本
objMail.send
set objMail = Nothing
response.write"发送成功"
%>
用这种方式发送邮件时,在163邮箱接收时不显示图片,在OUtLOOK里是可以看到图片的?
我曾经试过用图片用地址连接,在163邮箱接收可以显示图片,在OUtLOOK里不显示图片,后来发现在OUtLOOK本身禁止加载图片的。
听说用<img src="cid:IMG1" >这种方法可以解决HTML格式带图片邮件的,我都不懂!
请高手帮忙,谢谢!