' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailFolder&wid=$WID&id=$ID
'  $Command.Mail.DeleteFolder
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.html"-->
' $CaptionTitle = "フォルダの削除"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailFolder&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "フォルダの設定"
' $System.CloseDatabase "mw"
' $Contains = $Command.Mail.IsMailInFolder $ID $FID
' If $Contains
<p>
フォルダ内、またはサブフォルダ内にメールが残っています。<br>
フォルダを削除することができません。<br>
フォルダ内のメールの一括削除は、
'  Call cmLink "システム設定" "" "$Server?page=SystemMailDeleteAll&wid=$WID&id=$ID&fid=$FID&mode=1"
から実行することができます。
</p>
' Else
'  Set $Folder = $Command.Mail.GetFolder $ID $FID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailFolderDelete">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="FID" value="$FID">
'  Call delConfirm "フォルダ" $Folder.Name
</form>
' EndIf
' Call cmChildFooter $BackURL "フォルダの設定へ"
</body>
</html>