newmail 可以群发信件吗?
例如我想给一个数据库里的所有人发邮件,可不可以用newmail现实?
如果能,请告诉我相关的语句.
如果不能,有相关的组件吗?
问题点数：20、回复次数：1Top
1 楼yonge（）回复于 2001-03-24 08:53:00 得分 20
假设rsmail保存了取出来的邮件地址信息，
rsmail.movefirst
Do While not rsmail.eof
set theMail=CreateObject("CDONTS.NewMail")
theMail.From="asld@xxx.xx"
theMail.To= rsmail("emailaddr")
theMail.Subject="......This is a test....."
theMail.Body="........"
theMail.AttachFile "C:\inetpub\wwwroot\.....\a.doc","a.doc" '加附件
theMail.Send
response.write rsmail("emailaddr") & "<br>"
rsmail.movenext
if rsmial.eof then exit do
set theMail=nothing
Loop
rsmail.close
set rsmai = Nothing
.... '关闭数据库链接的说Top
