提交缺陷时发送邮件

此示例在提交缺陷时发送邮件。

在 Bug_AfterPost 事件过程中添加对 SendDefect 过程的调用。

备注: 如果在提交缺陷之前调用 SendDefect 过程，不会包括当前修改中更改的值。只有在发布缺陷之后才用新值更新数据库。

Sub SendDefect (iObjectId, strTo, strCc, strSubject, strComment)
        On Error Resume Next
        Dim objBugFactory, objBug
        Set objBugFactory = TDConnection.BugFactory
        Set objBug = objBugFactory.Item(iObjectId)
        objBug.Mail strTo, strCc, 2, strSubject, strComment
        Set objBug = Nothing
        Set objBugFactory = Nothing
        PrintError "SendDefect"
        On Error GoTo 0
End Sub

调用 objBug.Mail 中的常量 2 表示邮件应附带历史记录。有关可用于自定义电子邮件的常量列表，请参考《ALM Open Test Architecture API Reference》中的 tagTDMAIL_FLAGS 枚举。在工作流脚本中，使用数字常量而非枚举值。