' $System.Access Mail
' $Command.Mail.AccessDelete $BS
' If $System.IsPost
'  $Continue = $Command.Mail.DeleteAllGarbages
'  If $Continue
'   $System.Redirect $Server?page=MailDeleteAllGarbages&wid=$WID&bs=$BS&continue=1
'  Else
'   $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Exec
'  $Continue = $Command.Mail.DeleteAllGarbages
' EndIf
' If $Continue
<meta http-equiv="Refresh" content="0;URL=$Server?page=MailDeleteAllGarbages&wid=$WID&bs=$BS&exec=1">
' Elif $Exec
<meta http-equiv="Refresh" content="0;URL=$Server?page=MailIndex&wid=$WID&bs=$BS">
' EndIf
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "ごみ箱を空にする"
' Call cmHead $CaptionTitle
</head>
<body>
'' <!---------------------削除実行中----------------------------->
' If $Continue or $Exec
'  Call cmHeaderBasic
'  Sub mainColumn1
<div><b>$CaptionTitle</b></div>
<div>ごみ箱の中のメールを削除しています。</div>
<div>※ ブラウザをそのままにしてお待ち下さい。<br>
　 ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。<br>
　 (データベース破損などの原因になる場合があります)<br>
</div>
'  EndSub
'  Call layout_msg "" "" 0 mainColumn1
'  Call cmFooter
' Else
'' <!---------------------確認画面----------------------------->
'  $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-3"
'  Call cmHeader $CaptionTitle $BackURL $WorkSpace.Mails.$BS.Name
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailDeleteAllGarbages">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
'  Sub mainColumn2
<div>ごみ箱のメールを全て削除します。よろしいですか？<br>
削除したメールは復旧できませんので、ご注意ください。</div>
'  EndSub
'  Sub commitColumn
'   Call formCommit "はい" "いいえ"
'  EndSub
'  Call layout_msg "" "" 0 mainColumn2 "" commitColumn
</form>
'  Call cmFooter $BackURL "メールの一覧へ"
' EndIf
</body>
</html>