用来发送带有html文件的email程序.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 17 行

<% 
Dim objCDO 
Set objCDO = Server.CreateObject("CDONTS.NewMail") 
%> 
<% 
objCDO.To = "[e-mail]" 
objCDO.From = "[e-mail]" 
objCDO.cc = "[e-mail],[e-mail]" 
Dim txtSubject 
txtSubject = "<br>Hello Scott! We were wanting your advice on some programming issues. Please come to Redmond at your earliest convenience for a very fat check!" 
objCDO.Subject = "Attn: Scott, we need you!!" 
objCDO.Body = txtSubject 
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDO.Send 
%>