请问哪位大虾能有Jmail发邮件检测方法
我做一个自动发邮件的Jmail程序,不知为什么,有时会发个邮件服务器会执行很久才发出去,但其实已经收不到邮件了,我都是照着很多Jmail的程序做的,都没有办法解决这问题。不知是不是我邮件服务器的问题,所以想问有没办法让邮件程序知道邮件没发出去,再重新发。确认100%的邮件成功发出去?程序如下:
'发送邮件(JMail)
'-----------------------------------
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = "aa@bb.net" '邮件发送者的邮件地址
jmail.MailServerUserName = "aa" '登录邮件服务器所需的用户名
jmail.MailServerPassWord = "bb.net" '登录邮件服务器所需的密码
jmail.FromName = "aa"
jmail.ReplyTo = "aa@bb.net"
jmail.Subject = "公司"
jmail.AddRecipient StrEmail '邮件收件人的地址
jmail.Body = StrBody
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Send(smtpserver) '执行邮件发送(通过邮件服务器地址)
jmail.Close
set jmail = nothing