' $System.Access Mail
' $Command.Mail.AccessComment $BS $MID $DBID $CMID $Type $System.IsPost
' $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT"
' If $System.IsPost
'  $System.Redirect $BackURL
'  $Command.Mail.DeleteComment
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.html"-->
' $CaptionTitle = "コメントの削除"
' Call cmHead $CaptionTitle
</head>
<body>
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS$$BP.Param"
' Call cmHeader $CaptionTitle $URLMailIndex $WorkSpace.Mails.$BS.Name $BackURL "メールの詳細"
' $System.CloseDatabase "mw"
' If ( $Type = "Draft" ) or ( $Type = "Sent" )
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
' Else
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
' EndIf
' Set $Comment = $m.Comments.$CMID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailCommentDelete">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="CMID" value="$CMID">
' Call delConfirm "コメント" $Comment.Data
</form>
' Call cmFooter $BackURL "メールの詳細へ"
</body>
</html>