このページを共有

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

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

`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` 列挙を参照してください。ワークフロー・スクリプトでは、列挙値ではなく定数を使用してください。

https://admhelp.microfocus.com ALM 8942
検索結果の改善のヒント... ALM ヘルプセンター ALM ヘルプセンター ALM ヘルプ 17.0 すべてローカル・ヘルプセンターの表示オンライン・ヘルプセンターの表示戻るブラウザ履歴で元に戻る進むブラウザ履歴で前に進む検索の強調表示を解除次のトピック次のトピックに移動前のトピック前のトピックに移動現在のトピックを印刷バージョン: