' $System.Access Login
' $WorkSpace.AccessManage
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryMailConditionView.html"-->
' $CaptionTitle = "項目値の自動設定"
' Call cmHead $CaptionTitle 1
</head>
<body>
' If $BP
'  $System.SetParameter BackURL "$Server?page=ManageMailItem&wid=$WID&id=$ID"
'  Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "メール項目の設定"
' Else
'  $System.SetParameter BackURL "$Server?page=ManageAdmin&wid=$WID&id=$ID"
'  Call cmHeaderView 1 $CaptionTitle $BackURL "運用管理"
' EndIf
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
' Set $Items = $MailProfile.Items
' If $Items.Count
'  If ! $IID
'   $IID = $Items.Head
'  EndIf
<form method="get" action="$Server">
<input type="hidden" name="Page" value="ManageMailItemAuto">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="BP" value="$BP">
'  Set $Item = $MailProfile.Items.$IID
<p>受信時に「<b>$Item.Name</b>」項目の値を自動設定するルールを設定してください。</p>
<p>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr><td width="10%" align="center" valign="top" nowrap class="active">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr><td nowrap>メール項目</td></tr>
'  For Each $CItem in $Items
'   If $CItem.ID = $IID
<tr class="selected"><td nowrap>
'    Call cmImage "item16.png"
$CItem.Name</td></tr>
'   Else
<tr><td nowrap>
'    Call cmLink $CItem.Name "item16.png" "$Server?page=$Page&wid=$WID&id=$ID&iid=$CItem.ID&bp=$BP"
</td></tr>
'   EndIf
'  Next
</tr></table>
</td><td width="90%" valign="top" nowrap>
'  Call cmLink "追加する" "write20.png" "$Server?page=ManageMailItemAutoAdd&wid=$WID&id=$ID&iid=$IID&bp=$BP"
'  $Count = $Item.Rules.Count
'  If $Count > 1
'   $NoOrder = 0
'  Else
'   $NoOrder = 1
'  EndIf
'  Call cmLink "順番変更" "order20.png" "$Server?page=ManageMailItemAutoOrder&wid=$WID&id=$ID&iid=$IID&bp=$BP" $NoOrder
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="150" nowrap>条件名</th><th width="300" nowrap>条件内容</th><th width="150" nowrap>設定値</th><th width="200" nowrap>操作</th></tr>
'  For Each $Rule in $Item.Rules
<tr><td valign="top" nowrap>$Rule.Name<br></td>
<td valign="top" nowrap>
'   Call viewMailCondition $MailProfile $Rule
</td>
<td valign="top" nowrap>$Rule.Value<br></td>
<td valign="top" nowrap>
'   Call cmLink "変更する" "write20.png" "$Server?page=ManageMailItemAutoModify&wid=$WID&id=$ID&iid=$IID&rid=$Rule.ID&bp=$BP"
'   Call cmLink "削除する" "delete20.png" "$Server?page=ManageMailItemAutoDelete&wid=$WID&id=$ID&iid=$IID&rid=$Rule.ID&bp=$BP"
</td></tr>
'  Next
</table>
</td></tr></table>
</p>
</form>
' Else
<p>メール項目が設定されていません。</p>
' EndIf
' If $BP
'  Call cmChildFooter $BackURL "メール項目の設定へ"
' Else
'  Call cmChildFooter $BackURL "運用管理へ"
' EndIf
</body>
</html>