您的位置：首页 > Web前端 > HTML

用HTML格式发送邮件

2014-04-21 15:53 351 查看

用HTML格式发送邮件
文章出处：联动天下作者：联动天下发布时间：2005-12-21
你可以通过SMTP服务或者MS Exchange发送HTML格式的邮件，但是，你需要注意的是，并不是所有的clients都可以正常显示。在通常的情况下，CDONTS发送邮件是使用plain-text格式。在使用HTML方式的时候我们可以进行更多的设置，例如不同的字体，颜色，插入图片等等。下面是一个例子
<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

'//these are all the images that are in this message.
'//you must include them like this.
'//please note that you DO NOT have TO write the
'//entire file path in the <IMG> tag in the body after this.
'//make sure you see the image name after the path separated by a comma

objMail.AttachURL "D:\images\myImage.gif", "myImage.gif"
objMail.AttachURL "D:\images\myImage2.gif", "myImage2.gif"

HTML = HTML & "<HTML>"

HTML = HTML & "<HEAD>"

HTML = HTML & "<TITLE>Send Mail with HTML</TITLE>"

HTML = HTML & "</HEAD>"

HTML = HTML & "<BODY bgcolor=""lightyellow"">"

HTML = HTML & "<TABLE cellpadding=""4"">"

HTML = HTML & "<TR><TH><FONT color=""darkblue"" SIZE=""4"">"

HTML = HTML & now() & " - "

HTML = HTML & "These are all great ASP Sites</FONT></TH></TR>"

HTML = HTML & "<TR><TD>"

HTML = HTML & "<A HREF=""http://www.4guysfromrolla.com"">"

HTML = HTML & "<IMG SRC=""myImage.gif""></A><BR><BR>"

HTML = HTML & "<A HREF=""http://www.4guysfromrolla.com"">"

HTML = HTML & "<IMG SRC=""myImage2.gif""></A><BR><BR>"

HTML = HTML & "</FONT></TD></TR></TABLE><BR><BR>"

HTML = HTML & "</BODY>"

HTML = HTML & "</HTML>"

objMail.From = "rob@tconsult.com"

objMail.Subject = "Your daily HTML Mail"

'you need TO add these lines FOR the mail

'to be sent in HTML format

objMail.BodyFormat = 0

objMail.MailFormat = 0
objMail.To = "you@yourhouse.com

objMail.Body = HTML

objMail.Send

Response.write("Mail was Sent")

set objMail = nothing

%>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航