' If ! $System.IsCloud
'  Exit
' EndIf
' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $Command.Mail.ChangeAutoForwardStatus $Enable
'  $System.Redirect $Server?page=$Page&wid=$WID&id=$ID
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.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>
''
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="$Page">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
' If $MailProfile.AutoForward.Enable
'  $CurStatus = "有効"
'  $ChgStatus = "無効"
<input type="hidden" name="Enable" value="0">
' Else
'  $CurStatus = "無効"
'  $ChgStatus = "有効"
<input type="hidden" name="Enable" value="1">
' EndIf
<p>現在、自動転送の設定は <b>$CurStatus</b> です。\\
' Call formSubmit "Submit" "$ChgStatusにする"
</form>
</p>
''
<p>基本設定
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailAutoForwardSet&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.AutoForward.SaveAutoSentMail
残す
' Else
残さない
' EndIf
 </td>
</tr>
</table>
</p>
''
<p>自動転送条件
' Call cmLink "追加する" "write20.png" "$Server?page=ManageMailAutoForwardRuleAdd&wid=$WID&id=$ID"
' $Count = $MailProfile.AutoForward.Rules.Count
' If $Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' Call cmLink "順番変更" "order20.png" "$Server?page=ManageMailAutoForwardRuleOrder&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.AutoForward.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>
<td valign="top" nowrap>
'  For Each $localUID in $Rule.UIDs
'   $localMail = $Users.$localUID.Mail
'   $localName = $Users.$localUID.Name
'   If $localMail
$localName($localMail)<br>
'   EndIf
'  Next
'  For Each $localMail in $Rule.Mails
$localMail<br>
'  Next
</td>
<td valign="top" nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=ManageMailAutoForwardRuleModify&wid=$WID&id=$ID&rid=$Rule.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=ManageMailAutoForwardRuleDelete&wid=$WID&id=$ID&rid=$Rule.ID"
</td></tr>
' Next
</table>
</p>

※自動転送メールの特徴は次のとおりです。
<ul style="margin-top:0;">
<li>受信メールに対して複数の条件が合致する場合、各条件のすべての宛先にメールが転送されます。<br>
ただし、次の宛先には転送されません。
 <ul>
 <li>重複するメールアドレス</li>
 <li>受信メールの差出人</li>
 </ul>
</li>
<li>受信メールの添付ファイルは転送されません。</li>
<li>受信メールがHTMLメールの場合、HTMLメールが転送されます。</li>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>