The example below demonstrates mail notification when the value of the status field is changed in the Test Plan module.
The code is added to the
Test_FieldChange event procedure. It constructs a subject and comment for the email, and calls a user-defined function,
SendTest. SendTest sends mail from the Test Plan module. You can code
SendTest similarly to the
SendDefect subroutine shown in Sending Mail when a Defect is Submitted.
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