为什么我用CDONTS.NewMail时会出错？
一到Send那就会出错。不知道为什么？
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="webmaster@csdn.net"
objCDOMail.To ="webmaster@csdn.net"
objCDOMail.Subject ="送你一个礼物。"
body="测试信"
objCDOMail.Body =body
objCDOMail.BodyFormat=1 '设置为HTML格式
objCDOMail.Send
Set objCDOMail = Nothing
'判断EMAIL是否成功
on error resume next
if err then
Response.Write "错误："&Err.Description
else
Response.Write "发送成功！"
end if
一到Send那就会出错。不知道为什么？
问题点数：0、回复次数：4Top
1 楼dreamfly8848（找浙江江山老乡->未开巧的指针）回复于 2003-06-03 12:55:16 得分 0
程序放哪里会出错 啊???Top
2 楼tigerwen01（小虎）回复于 2003-06-03 13:04:37 得分 0
是不是不能创建对象？Top
3 楼lsrzm（Michale Lee）回复于 2003-06-03 13:08:34 得分 0
set objMail = createobject("CDONTS.Newmail")
objMail.To ="getaddr"
if sendaddr = "" then
sendaddr = "lsrzm2001@163.com"
end if
objMail.From = "sendaddr"
objMail.Subject = "sendtitle"
if fujian <> "" and Instr(fujian,":")>0 then
objMail.AttachFile(fujian)
end if
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = "sendcontent"
objMail.Send
set objMail = nothingTop
4 楼303（吴志坤）回复于 2003-06-04 00:25:06 得分 0
到Send那就会出错。不知道为什么？
我在MSDN里查了也是这样写的呀！（&^％^％￥^％￥（××&）（（Top
