<!--#include file="PartsMailRule.html"-->
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "条件名を入力してください。" );
		return;
	}
	form.submit();
}
-->
</script>
' Sub SetAutoReplyRule $MailProfile $Rule
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If $CC
<input type="hidden" name="CC" value="$CC">
' Elif $Rule
'  Set $Conditions = $Rule.Conditions
'  $Name = $Rule.Name
'  $OR = $Rule.OR
'  $Fuzzy = $Rule.Fuzzy
'  $UID = $Rule.UID
'  $Subject = $Rule.Subject
'  $Data = $Rule.Data
<input type="hidden" name="CC" value="$Conditions.Count">
' Else
<input type="hidden" name="CC" value="1">
' EndIf
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>条件名
' Call formNecessaryMark
</td><td colspan="3">
' Call formText "Name" $Name 20 1
<br><font size="-1" color="#008800">条件の名前を自由に指定してください。</font>
</td></tr>
<tr><td colspan="4"><br></td></tr>
<tr><td valign="top" nowrap style="width:100px;">条件内容</td><td colspan="3">
<select name="OR">
<option value="0">以下の全ての条件を満たす
' If $OR
<option value="1" selected>以下のいずれかの条件を満たす
' Else
<option value="1">以下のいずれかの条件を満たす
' EndIf
</select>&nbsp;
' Call formCheckBox "Fuzzy" "あいまい検索をする" $Fuzzy 1 "Fuzzy"
</td></tr>
' If $CC
'  $Num = $CC - 1
'  For $i = 0 to $Num
'   $IID = $System.GetParameter IID$i
'   $Text = $System.GetParameter Text$i
'   $Expr = $System.GetParameter Expr$i
'   Call RuleConditionRow $MailProfile $i $IID $Text $Expr $Num "AutoReply"
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   $IID = $Cond.IID
'   $Text = $Cond.Text
'   Call RuleConditionRow $MailProfile $CC $IID $Text $Cond.Expr $Num "AutoReply"
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call RuleConditionRow $MailProfile 0 $IID $Text $Expr 0 "AutoReply"
' EndIf
<tr><td><br></td><td colspan="3">
<input type="button" value="条件を追加する" onClick="Mode.value='add';this.form.submit();">
</td></tr>
</table>
<br>
<table>
<tr>
 <td valign="top" nowrap style="width:100px;">件名</td>
 <td><input type="text" maxlength="100" size="40" value="$Subject" name="Subject"></td>
</tr>
<tr>
 <td valign="top" nowrap>本文</td>
 <td>
' $System.SetParameter Param "Cols$WID"
' $DataCols = $Login.$Param
' Init $DataCols = 70
' $System.SetParameter Param "Rows$WID"
' $DataRows = $Login.$Param
' Init $DataRows = 20
<textarea id="mailsend_data" name="Data" cols="$DataCols" rows="$DataRows" wrap="virtual">$Data</textarea>
</td></tr>
''
</table>
' EndSub