怎么用ASP发邮件啊？
怎么用ASP发邮件？大家帮忙啊。 问题点数：100、回复次数：5Top
1 楼mrfinger（ff）回复于 2003-11-02 00:26:27 得分 0
http://www.51base.com/article/search.asp?page=1&action=search&search=asp+%D3%CA%BC%FE&typeid=0Top
2 楼Jaron（WWW.JARON.CN）回复于 2003-11-02 00:30:15 得分 0
http://www.jaron.cn/chs_scripts/8/2003-06/20030602142702-101028.html
或浏览ASP版的FAQ专区。Top
3 楼Jaron（WWW.JARON.CN）回复于 2003-11-02 00:30:32 得分 0
http://expert.csdn.net/Expert/FAQ/List_Room_FAQ_Index.asp?Roomid=301Top
4 楼hozi（）回复于 2003-11-02 00:34:25 得分 80
用CDONTS组件
Dim myMail
att_file="D:\test.txt"
f_name="test.txt"
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "aa@sohu.com"
myMail.To = "bb@sina.com"
myMail.AttachFile att_file,f_name
myMail.Subject = "主题"
myMail.Body = "正文"
myMail.BodyFormat=0
myMail.MailFormat = 0
myMail.Send
Set myMail = NothingTop
5 楼carrotbill（萝卜）回复于 2003-11-02 01:01:47 得分 20
邮件发送组件：
a) 功能：可使用ASP程序发送邮件
b) 使用例程：
Set objMail = Server.CreateObject("CDONTS.NewMail") '!!!!!!!!!!!!!!!!!!!!! objMail.To = mymail 'set To address
objMail.From ="xujian@chinadns.com" 'set 'From' address
objMail.Subject ="Hi" 'set the subject line
objMail.Body = CardAdd 'set the message content
objMail.Send 'and send the message
if err.number<>0 then Response.Write "Error:"+cstr(err.number)+err.description+chr(10)+"对不起，本服务器正在调试，无法发送"
Set objMail = Nothing 'then de
Top
