分享此页面

# 提交缺陷时发送邮件

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

在 `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` 枚举。在工作流脚本中，使用数字常量而非枚举值。

https://admhelp.microfocus.com ALM 8942
改进搜索结果的提示... ALM 帮助中心 ALM 帮助中心 ALM 帮助 15.5-15.5.1 全部查看本地帮助中心查看联机帮助中心后退在浏览器历史记录中后退前进在浏览器历史记录中前进删除突出显示的搜索项下一个主题转到下一个主题上一个主题转到上一个主题打印当前主题版本: