' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailFromRule&wid=$WID&id=$ID
'  $Command.Mail.AddFromRule
'  Exit
' EndIf
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="PartsMailFromRuleSet.html"-->
' $CaptionTitle = "変換条件の追加"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailFromRule&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?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailFromRuleAdd">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>
追加する変換条件の情報を設定してください。<br>
<font size="-1" color="#008800">受信メールの差出人情報を、本文の記述から変換します。</font><br>
'  Call formNote 1
</p>
' Call setFromRule
<p>
' Call formCommit "追加する"
</p>
</form>
' Call cmChildFooter $BackURL "差出人情報の変換へ"
</body>
</html>