关于ASP程序中用到JMAIL程序的问题

显示全部楼层 · 2008-8-2 22:00:34

......(前面就省了)
'发信
Set OWENmail=Server.CreateObject("JMail.SMTPMail")
OWENmail.Charset = "gb2312"
OWENmail.Sender = frommail
OWENmail.Subject = mailsubject
OWENmail.AddRecipient(""&tomail&"")
OWENmail.htmlBody = mailbody
OWENmail.Execute
OWENmail.Close
Set OWENmail = Nothing
首先申明JMAIL组件是装了,所以对方邮件正确发送就没问题!
现在问题是在发送时如果接收方的EMAIL是错误的或不存在,处理页面就会返回一个出错页面,错误指示行指的就是Set OWENmail=Server.CreateObject("JMail.SMTPMail")这一行
我现在希望如果对方EMAIL是错误的或不存在,发送后不要出现页面报错,最好是程序上自行定义显示"对方EMAIL是错误的或不存"
请问这样的程序要怎么改才行?
neestream,你能给个完整的答案吗?如果是对的,分就给你了

千问 · 2008-8-2 22:00:34

On Error Resume NextSet OWENmail=Server.CreateObject("JMail.SMTPMail") OWENmail.Charset = "gb2312" OWENmail.Sender = frommail OWENmail.Subject = mailsubject OWENmail.AddRecipient(""&tomail&"") OWENmail.htmlBody = mailbody OWENmail.Execute OWENmail.Close Set OWENmail = Nothing if Err.number0这里写错误处理代码，如repo

千问 · 2008-8-2 22:00:34

dim main_msg,issendedSet main_msg=Server.CreateObject("Jmail.Message") main_msg.silent=true main_msg.Logging = true main_msg.Charset = "gb2312" main_msg.MailServerUserNam