求助，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

...全文

78 5 打赏收藏转发到动态举报

写回复

用AI写文章

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&"条"

xiwangzhiguang88608 2010-07-22