Sub SendDefect (iObjectId, strTo, strCc, strSubject, strComment)
On error Resume Next
Dim objBugFactory, objBug
Set objBugFacotry=TDConnection.BugFactory
Set objBug=objBugFactory.Item(iObjectId)
objBug.Mail strTo, strCc,2,strSubject,strComment
Set objBug=Nothing
Set objBugFacotry=Nothing
...
On error Goto 0
End Sub