分享此页面

# 测试计划模块字段值更改时发送邮件

下面的示例演示在“测试计划”模块中更改状态字段的值时的邮件通知。

代码将添加到 `Test_FieldChange` 事件过程。它构造电子邮件的主题和注释，调用用户定义的函数 `SendTest`。SendTest 从“测试计划”模块发送邮件。可以同样将 `SendTest` 编码到 `SendDefect` 子例程，如提交缺陷时发送邮件中所示。

    Sub Test_FieldChange(FieldName)
            On Error Resume Next
            Dim strSubject, strComment
            If FieldName = "TS_STATUS" Then
                strSubject = "Test Change Notification" & _
                    " for project " & TDConnection.ProjectName & _
                    " in domain " & TDConnection.DomainName
                strComment = "The user " & User.FullName & _
                    " changed the status of the test " & _
                    Test_Fields("TS_NAME").Value & _
                    " to " & Test_Fields("TS_STATUS").Value
                SendTest Test_Fields("TS_TEST_ID").Value, _
                    Test_Fields("TS_RESPONSIBLE").Value, "[QA Testers]", _
                    strSubject, StrComment
            End If
    End Sub

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