<!--#include file="LibraryForm.html"-->
<!--#include file="PartsMailCondition.html"-->
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "条件名を入力してください。" );
		return false;
	}
	return true;
}
-->
</script>
' Sub viewCondition $Caption $CondName $CondValue
<tr><td class="title" nowrap>$Caption</td><td nowrap>
行の先頭が
'  Call formtext $CondName $CondValue 20 1
である場合、その後ろから行末までの文字列を抽出する
</td></tr>
' EndSub
' Sub setCustomerRule $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
<input type="hidden" name="CC" value="$Conditions.Count">
'  Else
<input type="hidden" name="CC" value="1">
'  EndIf
<p>
<table border="0" cellspacing="1" cellpadding="2">
<tr><td valign="top" nowrap>条件名
'  Call formNecessaryMark
</td><td nowrap>
'  Call formtext "Name" $Name 20 1
<br><font size="-1" color="#008800">条件の名前を自由に指定してください。</font>
</td></tr>
<tr><td colspan="2"><br></td></tr>
<tr><td colspan="2" nowrap>
'  Call cmImage "pin.png"
顧客データを抽出する対象になるメールの条件
</td></tr>
<tr><td colspan="2" nowrap>
<!--#include file="LibrarySearchCondition.html"-->
' Call searchCondition
</td></tr>
<tr><td colspan="2" valign="top" nowrap>
<table border="0" cellspacing="0" cellpadding="0">
' 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
'   $Value = $System.GetParameter Value$i
'   Call QueryConditionRow $MailProfile $i $IID $Text $Expr $Value $Num "CustomerRule"
'  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
'   $Value = $Cond.Value
'   Call QueryConditionRow $MailProfile $CC $IID $Text $Cond.Expr $Value $Num "CustomerRule"
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow $MailProfile 0 $IID $Text $Expr $Value 0 "CustomerRule"
' EndIf
</table>
</td></tr>
<tr><td colspan="2">
' Call cmButton "条件を追加する" "Mode.value='add';this.form.submit();"
</td></tr>
<tr><td colspan="2"><br></td></tr>
</td></tr>
<tr><td colspan="2" nowrap>
'  Call cmImage "pin.png"
メール本文から顧客データを抽出する条件
</td></tr>
'  If $Customer.Person.Code.Manual
'   Call viewCondition "顧客コード" "Code" $Rule.Items.Code
'  EndIf
'  Call viewCondition "名前" "PersonName" $Rule.Items.Name
'  Call viewCondition "よみ" "Yomi" $Rule.Items.Yomi
'  Call viewCondition "電話番号" "Tel" $Rule.Items.Tel
'  For Each $Item in $Customer.Person.Items
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $IID = $Item.ID
'   Call viewCondition $Item.Name "Item$IID" $Rule.Items.$IID
'  Next
</table>
</p>
' EndSub