Envoi par e-mail lorsqu’une valeur de champ du module Plan de test change

L’exemple ci-dessous montre une notification par courrier électronique lorsque la valeur du champ d’état est modifiée dans le module Plan de test.

Le code est ajouté à la procédure de l’événement Test_FieldChange. Il construit un objet et un commentaire pour l’e-mail, et appelle une fonction définie par l’utilisateur, SendTest. SendTest envoie du courrier à partir du module Plan de test. Vous pouvez coder SendTest de manière similaire à la sous-routine SendDefect présentée sur Envoi par e-mail lorsqu’une anomalie est soumise.

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