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

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

代码将添加到 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