' $System.Access Admin
' If $System.IsPost
'  $Continue = $Command.Mail.DeleteAll
'  If $Continue
'   $System.Redirect $Server?page=SystemMailDeleteAll&wid=$WID&id=$ID&mode=$Mode&fid=$FID&sf=$SF&setdate=$SetDate&enddate=$EndDate&continue=1
'  Else
'   $System.Redirect $Server?page=SystemAdmin&wid=$WID
'  EndIf
'  Exit
' EndIf
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $System.SetParameter CaptionTitle "$AppliNameのデータ一括削除"
' If $Exec
'  $Continue = $Command.Mail.DeleteAll
' EndIf
' If $Continue
<meta http-equiv="Refresh" content="0;URL=$Server?page=SystemMailDeleteAll&wid=$WID&id=$ID&mode=$Mode&fid=$FID&sf=$SF&setdate=$SetDate&enddate=$EndDate&exec=1&rw=customer">
' Elif $Exec
<meta http-equiv="Refresh" content="0;URL=$Server?page=SystemAdmin&wid=$WID">
' Else
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	return confirm( "メールデータを削除します。よろしいですか？" );
}
//-->
</script>
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
'' <!---------------------削除実行中----------------------------->
' If $Continue or $Exec
'  Call cmHeaderView
<b>$CaptionTitle</b><br>
<p>メールデータを削除しています。</p>
<p>※ ブラウザをそのままにしてお待ち下さい。<br>
　 ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。<br>
　 (データベース破損などの原因になる場合があります)<br>
</p>
'  Call cmFooter
' Else
'' <!---------------------削除画面----------------------------->
'  $System.SetParameter BackURL "$Server?page=SystemAdmin&wid=$WID"
'  Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
'  Set $MailProfile = $Command.Mail.GetMailTop $ID
'  Set $MailIndex = $Command.Mail.GetMailIndex $ID
'  $RCount = $MailIndex.Received.Count
'  Init $RCount = 0
'  $SCount = $MailIndex.Sent.Count
'  Init $SCount = 0
'  $DCount = $MailIndex.Drafts.Count
<form name="MailDeleteAll" method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemMailDeleteAll">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$AppliNameのメールデータを一括削除します。</p>
<p>
'  Call formRadio "Mode" "全てのメールデータを削除する" $Mode.RChecked 0 "All"
<blockquote>
受信メール:<b>$RCount</b> 件 , 送信メール:<b>$SCount</b> 件
'  If $DCount
 , 作成中のメール:<b>$DCount</b> 件
'  EndIf
</blockquote>
</p>
'  If ! $MailProfile.Folder.Disable
<p>
'   Call formRadio "Mode" "フォルダ内の全てのメールデータを削除する" $Mode.Checked_1 1 "Folder"
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td>フォルダ</td>
<td nowrap><select name="FID" onChange="Mode[1].checked=true;">
'   $FolderOptions = $Command.Mail.GetFolderOptions $ID $FID 1
$_FolderOptions</select>&nbsp;
'   Call formCheckBox "SF" "サブフォルダも対象とする" 1 1 "SF"
</td></tr>
</table>
</blockquote>
</p>
'  EndIf
<p>
'  Call formRadio "Mode" "指定した期間のメールデータを削除する" $Mode.Checked_2 2 "Span"
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td>期間</td>
<td style="white-space:nowrap;">
'  Call formDateSpan "SetDate" "EndDate" "MailDeleteAll" 0 "" "" "Mode[2].checked=true;"
</td></tr>
</table>
</blockquote>
</p>
<p><font color="#ff0000">ごみ箱のメールも全て削除されます。削除したメールを復旧することはできません。</font></p>
'  Call formCommit "削除する"
</form>
'  Call cmChildFooter $BackURL "システム設定へ"
' EndIf
</body>
</html>