' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailStatus&wid=$WID&id=$ID
'  $Command.Mail.SetFixedStatus
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryViewSet.html"-->
' $CaptionTitle = "標準の処理状況の変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailStatus&wid=$WID&id=$ID&sid=$SID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "処理状況の設定"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
' If $SID = -1
'  $Name = "(処理中)"
'  $Color = $MailProfile.ColorStatusWorking
' Elif $SID = -5
'  $Name = "(送信待ち)"
'  $Color = $MailProfile.ColorStatusWaiting
' Elif $SID = -2
'  $Name = "(処理済み)"
'  $Color = $MailProfile.ColorStatusFinished
' Elif $SID = -3
'  $Name = "(送信済み)"
'  $Color = $MailProfile.ColorStatusSent
' Else
'  $Name = "(未処理)"
'  $Color = $MailProfile.ColorStatusToDo
' EndIf
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailFixedStatus">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="SID" value="$SID">
<p>変更する処理状況の情報を設定してください。</p>
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>処理状況</td><td nowrap><b>$Name</b></td></tr>
<tr><td nowrap>表示色</td><td nowrap>
' Call SelectColor "Color" $Color
</td></tr>
</table>
</p>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "処理状況の設定へ"
</body>
</html>