pb 中调用aspemail.dll 中的函数,不知如果获取返回出错的error值

[FrankLiang]

最近公司要转用SSL来发邮件，故用aspemail来发，启用了SSL之后，发不出。
想获取aspemail这个对象返回的error值，不知如何获得？

oleobject mail
long rt1
mail = create oleobject
rt1 = mail.connecttonewobject("Persits.MailSender")
if rt1 <> 0 then
messagebox("error","Sorry, 系統沒安裝郵件發送功能，請稍候再試")
return 0
end if

mail.reset()
mail.FromName = "test"
mail.from="[e-mail]"
mail.SSL=True
mail.port=465
mail.Host = "smtp.exmail.qq.com"
mail.username = "[e-mail]"
mail.password = "xxx"
mail.subject="test from IT dept!"
mail.body="test"
mail.Charset = "GB2312"
//我要获取以下mail.send()失败的话，返回的值
if mail.send()=true then
end if

之前用vb，用句叫：on error goto :error，不知pb 是否有类似的语法，谢谢！

[FrankLiang]

用try和catch可以麼？

[eclat2299]

我使用 JMail 也是使用 Try Catch //附件 if len(f_str(att_file_name))>0 then try oJMail.AddAttachment(att_file_name) catch(runtimeerror er1) end try end if

[FrankLiang]

谢谢eclat！

引用 2 楼 eclat2299 的回复:

我使用 JMail 也是使用 Try Catch //附件 if len(f_str(att_file_name))>0 then try oJMail.AddAttachment(att_file_name) catch(runtimeerror er1) end try end if