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

来源：百度知道 编辑：UC知道 时间：2024/06/22 02:42:45
......(前面就省了)

'发信
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,你能给个完整的答案吗?如果是对的,分就给你了

On Error Resume Next
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
if Err.number<>0
这里写错误处理代码，如reponse.redirect(url)
end if
,如果不为0则出现了错误,执行错误处理代码,明白了吗？

dim main_msg,issended
Set main_msg=Server.CreateObject("Jmail.Message")
main_msg.silent=true
main_msg.Logging = true
main_msg.Charset = "gb2312"
main_msg.MailServerUserName = "1111" '邮箱用户名
main_msg.MailServerPassword = "00000" '邮箱的用户密码
main_msg.From = "发送者邮箱地址"
main_msg.FromName = "发送者称呼"
main_msg.AddRecipient "email地址"
main_msg.Subject = "主题!"
main_msg.