如何在LotusScript中捕获错误消息

debugcn 发表于 Dev

用户名

我想在错误处理程序中捕获错误消息，并在if条件下使用它：

errorhandler:
Print "Error in function TriggerMail -- " & Cstr(Error) &  " -- occured at line - " & Cstr(Erl())   
MsgBox CStr(Error)

    If CStr(Error) = "Unable to send mail, no match found in Name & Address Book(s)" Then
        curdoc.Flag = " Invalid Short name"
                Call curdoc.Save(False, True)
             end if

我正在使用cstr（Error）获得并验证...尽管我的'If'条件为true，但它正在跳过条件。

请纠正我，并告诉我其他方法。

尝试使用错误号仍无法进入if循环

Call doc.Send(False, False)

    If Str(Err) = "4294" Then
        curdoc.Flag = " Invalid Short name"
        curdoc.defaulterSLACount = CInt(defaultCount)
        Call curdoc.Save(False, True)
    Else
''---------------------------------------------------------------------------------------------------------------   
' Flags set in the week doc of the defaulter for reference  
    'curdoc.Flag = "Mail Sent Successfully"
    curdoc.SentTo = doc.sendTo
    curdoc.CopiedTo = doc.CopyTo
    curdoc.SentOn = Cstr(Now)
    curdoc.defaulterSLACount = Cint(defaultCount)

    Call curdoc.Save(False, True)
    End If

Else

    curdoc.Flag = "Mail Not Sent"
    curdoc.defaulterSLACount = Cint(defaultCount)
    Call curdoc.Save(False, True)

End If  ' --------------------  DefaulterCount If Check ends here

Exit Function

errorhandler:
Print "Error in function TriggerMail -- " & Cstr(Error) &  " -- occured at line - " & Cstr(Erl())   
MsgBox Str(Err)

Resume Next

纳文

与其使用Error我不建议您使用Err语句来获取错误号，并根据错误号执行操作。

更新：

您需要If Str(Err) = "4294" Then在错误处理程序中编写条件。

errorhandler:

    If Str(Err) = "4294" Then
        curdoc.Flag = " Invalid Short name"
        curdoc.defaulterSLACount = CInt(defaultCount)
        Call curdoc.Save(False, True)
    Else

或者您可以编写代码来专门处理错误 4294

... 
... 
... 
On Error 4294 goto AmbiguousError doc.send(True) 
... 
... 
... 
Exit sub 

AmbiguousError: 
Set namesdb= session.getdatabase(db.server, "names.nsf") 
Set Persondoc= namesdb.getview("($Users)").getdocumentbykey(docmail.SendTo(0)) 
docMail.SendTo = Persondoc.fullname(0) & "@" & Persondoc.MailDomain(0) 
Call docMail.Send(True) 
Resume next 
End sub

上面的代码段来自此TechNote。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。