' $System.Access Login
' $WorkSpace.AccessManage
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "担当者の自動設定"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageAdmin&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle $BackURL "運用管理"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<p>受信時に担当者を自動で設定する条件を設定してください。</p>
<p>基本設定
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailAutoAssignSet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
<tr><td width="150" class="title" nowrap>前回の担当者</td>
<td width="150" nowrap>
' If $MailProfile.AutoAssign.Prev
自動設定する
' Else
自動設定しない
' EndIf
</td></tr>
</table>
</p>
<p>自動設定条件
' Call cmLink "追加する" "write20.png" "$Server?page=ManageMailAutoAssignAdd&wid=$WID&id=$ID"
' $Count = $MailProfile.AutoAssign.Rules.Count
' If $Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' Call cmLink "順番変更" "order20.png" "$Server?page=ManageMailAutoAssignOrder&wid=$WID&id=$ID" $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 $MailProfile.AutoAssign.Rules
<tr><td valign="top" nowrap>$Rule.Name<br></td>
<td valign="top" nowrap>
'  $First = 1
'  For Each $Cond in $Rule.Conditions
'   If $First
'    $First = 0
'   Else
'    If $Rule.OR
または、\\
'    Else
かつ、\\
'    EndIf
<br>
'   EndIf
'   If $Cond.IID = "ACID"
アカウント\\
'   Elif $Cond.IID = "Subject"
件名\\
'   Elif $Cond.IID = "From"
差出人\\
'   Elif $Cond.IID = "To"
宛先\\
'   Elif $Cond.IID = "CC"
CC\\
'   Elif $Cond.IID = "Data"
本文\\
'   EndIf
'   If $Cond.IID = "ACID"
'    $ACID = $Cond.Text
'    Set $Account = $MailProfile.Accounts.$ACID
'    $Text = $Account.Name
'   Else
'    $Text = $Cond.Text
'   EndIf
が「$Text」\\
'   If $Cond.Expr = 1
を含む。\\
'   Elif $Cond.Expr = 2
を含まない。\\
'   Elif $Cond.Expr = 3
と同じ。\\
'   Elif $Cond.Expr = 4
と異なる。\\
'   EndIf
'  Next
</td>
'  $UID = $Rule.UID
'  $UserName = $Users.$UID.Name
<td valign="top" nowrap>$UserName<br></td>
<td valign="top" nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=ManageMailAutoAssignModify&wid=$WID&id=$ID&rid=$Rule.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=ManageMailAutoAssignDelete&wid=$WID&id=$ID&rid=$Rule.ID"
</td></tr>
' Next
</table>
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>