In order to get a better handle on errors coming from applications for which I'm responsible, I built a script library with a function that sends an email to a specific mail database with the error information that I can categorize by database. I have the mail sent to a different mail database in production and development, so that it doesn't have to cross servers in development , so as to not bog down the production mail server if something is seriously wrong with an agent in development).
The address to the production mail database is "Agent Errors" and to production is "Development Errors" -- but these names can be changed to whatever you like. If five errors occur in one agent, it aborts the agent so that you don't send an unlimited amount of mail -- in case of infinite loops with errors. To use, include the Script Library and onError, and you can call the emailError function.
Code: 'Error_Handling'
Option Public
Dim errorCount As Integer
Const errMsg="5 errors have already occurred from <
name of Database> Database... Aborting"
Const ERR_TOO_MANY_ERRORS_ABORT=1000
Sub Initialize
errorCount=0
End Sub
Sub emailError(strMethod As String, strErrorMsg
As String, strLineNumber As String, refDoc
As NotesDocument) %REM Sends out an
email to the Agent Errors mailbox
(Development Errors in development) in regards
to an agent generated error.
This should be called on Error in all lotusscript agents.
Parameters
String strMethod - Lotusscript Method that
generated the error String strErrorMsg -
The error message (pass error$)
String strLineNumber -
The line the error was generated on
(pass Cstr(Erl))
NotesDocument refdoc -
If there is a document that was
being processed
when the error is being generated.
Pass that document here so
it can be investigated for troubleshooting.
%ENDREM
Dim session As New NotesSession
Dim db As notesDatabase
Dim doc As notesDocument
Dim rtItem As NotesRichTextItem
Set db = session.currentdatabase
Set doc = db.createdocument
doc.Form = "Memo"
If Instr(Lcase(db.Server),"put name of
development server here")>0 Then
doc.SendTo = "Development Errors"
Else
doc.SendTo = "Agent Errors"
End If
doc.Subject = "Error occured in "
& strMethod & " on line " & strLineNumber
doc.Principal = db.Title
doc.OrigDatabase= db.Server & "" & db.Filepath
doc.Method= strMethod
Set rtItem=doc.CreateRichTextItem("Body")
Call rtItem.AppendText(strErrorMsg)
If Not(refDoc Is Nothing) Then
Call rtItem.AddNewLine(2)
Call rtItem.AppendText("Referring document: ")
Call rtItem.AppendDocLink
(refDoc,"Document that caused the error")
End If
Call doc.Send(False)
errorCount=errorCount+1
If errorCount=5 Then
Error ERR_TOO_MANY_ERRORS_ABORT, errMsg
End If
End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Yonit David. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.
