求助,JMail发送邮件统计发送次数

xiwangzhiguang88608 2010-07-22 10:05:36
下面是我的一个asp页面用jmail的邮件发送代码,代码没有问题。这个邮件发送对象是动态的从数据库读取出来的。现在想邮件发送成功后统计显示发送成功邮件多少条,失败的多少条。总共发送了多少条。或者发送状态做成动态的 进度条形式 10...20...30....50...

Server.ScriptTimeOut=1000000

Dim JMail
Set JMail = Server.CreateObject("JMail.Message")

smtpserver = "mail.aaa.cn" '支持外发的邮件服务器
smtpuser = "aaa@aaa.cn" '你的邮箱用户名
smtppwd = "11111" '你的邮箱密码

Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3

JMail.From = "aaa@aaa.cn"
JMail.FromName = "多多臭臭的"
Jmail.ReplyTo ="qq@qq.com"

JMail.AddRecipient(rs("p_email"))//动态发送对象

JMail.Subject = "啊啊"& vbcrlf & vbcrlf & tbody
JMail.Body = "祝贺你成功!"

Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd

isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE(" 提交成功!谢谢你的支持。")
RESPONSE.WRITE("<pre>"&JMail.log&"</pre>")
else
RESPONSE.WRITE("<pre><font color=#ff0000 face=arial>"&JMail.log&"</font></pre>")
end if

JMail.Close()
Set JMail = Nothing

rs.close
set rs=nothing

...全文
43 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
qq43695548 2010-07-22
//省略代码若干

dim all,send
all=0
send=0
if not rs.eof then
do while not rs.eof
all=all+1
if Jmail.Send(smtpserver) then send=send+1

rs.movenext
loop
end if
rs.close
//省略代码若干

response.write "总共发送邮件"&all&&条,成功"&send&"条"
回复
没人吗?。。。。。
回复
老大 你把我的问题看清楚在说好不 给些可行性建议好不
回复
lzp4881 2010-07-22
发送一次就加1啊
回复
求救高手 上边功能怎样实现 谢谢!
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告