' $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
<div class="desc">メールの処理状況を設定してください。</div>
<br>
<div>標準の処理状況</div>
<table border="1" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="300" nowrap>処理状況</th><th width="300" nowrap>操作</th><th width="300" nowrap>プレビュー</th></tr>
<tr><td nowrap>(未処理)</td><td nowrap>\\
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailFixedStatus&wid=$WID&id=$ID&sid=0"
</td><td nowrap>\\
'  $STColor = $MailProfile.ColorStatusToDo
<span class="label color$STColor">(未処理)</span>\\
</td></tr>
<tr><td nowrap>(処理中)</td><td nowrap>\\
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailFixedStatus&wid=$WID&id=$ID&sid=-1"
</td><td nowrap>\\
'  $STColor = $MailProfile.ColorStatusWorking
<span class="label color$STColor">(処理中)</span>\\
</td></tr>
<tr><td nowrap>(送信待ち)</td><td nowrap>\\
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailFixedStatus&wid=$WID&id=$ID&sid=-5"
</td><td nowrap>\\
'  $STColor = $MailProfile.ColorStatusWaiting
<span class="label color$STColor">(送信待ち)</span>\\
</td></tr>
<tr><td nowrap>(処理済み)</td><td nowrap>\\
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailFixedStatus&wid=$WID&id=$ID&sid=-2"
</td><td nowrap>\\
'  $STColor = $MailProfile.ColorStatusFinished
<span class="label color$STColor">(処理済み)</span>\\
</td></tr>
<tr><td nowrap>(送信済み)</td><td nowrap>\\
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailFixedStatus&wid=$WID&id=$ID&sid=-3"
</td><td nowrap>\\
'  $STColor = $MailProfile.ColorStatusSent
<span class="label color$STColor">(送信済み)</span>\\
</td></tr>
</table>
<br>
<div>カスタマイズ可能な処理状況</div>
<div>
' Call cmLink "追加する" "write20.png" "$Server?page=ManageMailStatusAdd&wid=$WID&id=$ID"
' If $MailProfile.Status.Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' Call cmLink "順番変更" "order20.png" "$Server?page=ManageMailStatusOrder&wid=$WID&id=$ID" $NoOrder
</div>
<table border="1" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="300" nowrap>処理状況</th><th width="300" nowrap>操作</th><th width="300" nowrap>プレビュー</th></tr>
' For Each $Status in $MailProfile.Status
'  $STColor = $Status.Color
'  $STName  = $Status.Name
<tr><td nowrap>$STName</td><td nowrap>\\
'  Call cmLink "変更する" "write20.png" "$Server?page=ManageMailStatusModify&wid=$WID&id=$ID&sid=$Status.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=ManageMailStatusDelete&wid=$WID&id=$ID&sid=$Status.ID"
</td><td nowrap>\\
<span class="label color$STColor">$STName</span>\\
</td></tr>
' Next
</table>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>