28,390
社区成员
发帖
与我相关
我的任务
分享请问用asp能否做发送HTML页面的邮件？怎么做？急！急！急！
我做的邮件只能发送文本的邮件，
请问用asp能否做发送HTML页面的邮件？怎么做？急！急！急！
请问用asp能否做发送HTML页面的邮件？怎么做？急！急！急！
...全文
请发表友善的回复…
发表回复
jaffgao 2004-03-26
- 打赏
- 举报
aa
wolftomb 2003-10-21
- 打赏
- 举报
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "malekith@163.com"
myMail.cc = "customerservice@163.com"
myMail.Cc = "sally@163.com"
myMail.to = email
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Subject = "Shipment is ok! "
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "Dear Malekith,<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Sorry for my late reply.<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "<STRONG>We just launched our latest referral programs and we are giving away rebate and discount to you and your friends.</STRONG><BR>"
HTML = HTML & "<FONT color=#ff0000><STRONG>Share a gift of US$20 with your friends.</STRONG></FONT><A href=""http://www.csdn.net/""><STRONG><FONT color=#ff0000>Click here for details</FONT></STRONG></A><BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Happy viewing and thank you for shopping at <a href=""http://www.csdn.net"">www.csdn.net</a>. Looking forward to serving you again. Have a nice day!<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Best regards,<BR>"
HTML = HTML & "malekith Zhu<BR>"
HTML = HTML & "Customer Service Team<BR>"
HTML = HTML & "<a href=""http://www.csdn.net"">www.csdn.net</a><BR>"
HTNL = HTML & "</body>"
HTML = HTML & "</html>"
myMail.Body = HTML
myMail.Send
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "malekith@163.com"
myMail.cc = "customerservice@163.com"
myMail.Cc = "sally@163.com"
myMail.to = email
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Subject = "Shipment is ok! "
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "Dear Malekith,<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Sorry for my late reply.<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "<STRONG>We just launched our latest referral programs and we are giving away rebate and discount to you and your friends.</STRONG><BR>"
HTML = HTML & "<FONT color=#ff0000><STRONG>Share a gift of US$20 with your friends.</STRONG></FONT><A href=""http://www.csdn.net/""><STRONG><FONT color=#ff0000>Click here for details</FONT></STRONG></A><BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Happy viewing and thank you for shopping at <a href=""http://www.csdn.net"">www.csdn.net</a>. Looking forward to serving you again. Have a nice day!<BR>"
HTML = HTML & "<BR>"
HTML = HTML & "Best regards,<BR>"
HTML = HTML & "malekith Zhu<BR>"
HTML = HTML & "Customer Service Team<BR>"
HTML = HTML & "<a href=""http://www.csdn.net"">www.csdn.net</a><BR>"
HTNL = HTML & "</body>"
HTML = HTML & "</html>"
myMail.Body = HTML
myMail.Send
qdubit 2003-10-21
- 打赏
- 举报
需要借助特定的组件才可以实现。
