Envoi par e-mail lorsqu’une anomalie est soumise

Cet exemple envoie un courrier lorsqu’un défaut est soumis.

Ajoutez un appel à la procédure SendDefect dans la procédure de l’événement Bug_AfterPost.

Note : Si la procédure SendDefect est appelée avant que le défaut ne soit soumis, les valeurs qui ont été modifiées dans la modification en cours ne seront pas incluses. La base de données n’est mise à jour avec les nouvelles valeurs qu’après l’enregistrement du défaut.

Sub SendDefect (iObjectId, strTo, strCc, strSubject, strComment)
        On Error Resume Next
        Dim objBugFactory, objBug
        Set objBugFactory = TDConnection.BugFactory
        Set objBug = objBugFactory.Item(iObjectId)
        objBug.Mail strTo, strCc, 2, strSubject, strComment
        Set objBug = Nothing
        Set objBugFactory = Nothing
        PrintError "SendDefect"
        On Error GoTo 0
End Sub

La constante 2 dans l’appel à objBug.Mail indique que l’historique doit être inclus dans le courrier. Pour obtenir une liste des constantes qui peuvent être utilisées pour personnaliser le courrier électronique, reportez-vous à l’énumération tagTDMAIL_FLAGS dans la référence API de l’Open Test Architecture ALM. Dans les scripts de workflow, utilisez des constantes numériques et non les valeurs de l’énumération.