' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailAlertConfig&wid=$WID&id=$ID
'  $Command.Mail.SetAlert
'  Exit
' EndIf
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "警告表示の変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailAlertConfig&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "警告表示の設定"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailAlertSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$AppliNameの警告表示の情報を設定してください。</p>
<p>
<div style="text-indent:20;">
' Call formCheckBox "DLWarning" "受信メールの添付ファイルを開く時に警告を表示する" $MailProfile.DLWarning 1 "DLWarning"
</div><div style="text-indent:20;">
<font size="-1" color="#008800">添付ファイル(text/htmlまたはtext/plain形式)が対象となります。</font>
</div>
</p>
<p>
<div style="text-indent:20;">
' Call formCheckBox "StatusWarning" "メールを処理済みにする時に警告を表示する" $MailProfile.StatusWarning 1 "StatusWarning"
</div>
</p>
<p>
<div style="text-indent:20;">
' Call formCheckBox "DeleteWarning" "メールを削除する時に警告を表示する" $MailProfile.DeleteWarning 1 "DeleteWarning"
</div>
</p>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "警告表示の設定へ"
</body>
</html>