SendEmail メソッドの呼び出し
Email アドレスや必要なメッセージを送信する SendEmail メソッドを、新規に呼び出します。
では、Utils クラスで定義されている、このメソッドについて学習しましょう。
—TicketConfirm.OnPage—
TicketConfirm.OnPage
ClassMethod OnPage() As %Status
{
&html<<html>
<head>
</head>
<body>>
If ($D(%session.Data("Order"))) {
Do ..CompleteOrder()
Write "Thank you for using Caché Cinema!<br>",!
If ($G(%request.Data("OrderEmail",1)) '= "") {
Do ..SendEmail(%request.Data("OrderEmail",1),
"Your tickets have been ordered")
}
}
Else {
Write "Your order expired before it was completed."
}
&html<</body>
</html>>
Quit $$$OK
}