不具合送信時のメール送信

この例では、不具合送信時にメールを送信します。

Bug_AfterPost イベント・プロシージャに SendDefect プロシージャの呼び出しを追加します。

注: 不具合送信前に SendDefect プロシージャが呼び出されると、現在の変更で変更された値は含まれません。データベースは、不具合の送信後にのみ新しい値で更新されます。

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

objBug.Mail の呼び出しに含まれる定数 2 は、メールに含めるべき履歴を示します。電子メールのカスタマイズに使用できる定数のリストについては、『ALM Open Test Architecture API Reference』の tagTDMAIL_FLAGS 列挙を参照してください。ワークフロー・スクリプトでは、列挙値ではなく定数を使用してください。