Partager cette page

# 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.

https://admhelp.microfocus.com ALM 8942
Conseils pour améliorer vos résultats de recherche... ALM Help Center ALM Help Center Aide ALM 17.0 Tout Afficher le centre d’aide local Afficher le centre d’aide en ligne arrière Revenir en arrière dans l’historique de navigation avant Avancer dans l’historique de navigation Désactiver la mise en surbrillance dans les résultats de recherche rubrique suivante Atteindre la rubrique suivante rubrique précédente Atteindre la rubrique précédente Imprimer la rubrique actuelle Version :