テスト計画モジュール・フィールド値の変更時のメール送信

次の例では、テスト計画モジュールでステータス・フィールドの値が変更されたときのメール通知を例示します。

Test_FieldChange イベント・プロシージャにコードを追加します。これにより、電子メールの件名とコメントが作成され、ユーザ定義関数 SendTest が呼び出されます。SendTest により、テスト計画モジュールからメールが送信されます。「不具合送信時のメール送信」にある SendDefect サブルーチンと同じように SendTest を記述できます。

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