' $System.Access Mail
' $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT"
' If $System.IsPost
'  $System.Redirect $BackURL
'  $Command.Mail.DeleteReplyDraft
'  Exit
' EndIf
' Set $ms = $WorkSpace.Mails.$BS
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="PartsJSMailUser.html"-->
' $CaptionTitle = "編集中のメールの削除"
' Call cmHead $CaptionTitle
' Call onChangeGroup $BS
</head>
<body>
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS$$BP.Param"
' Call cmHeader $CaptionTitle $URLMailIndex $ms.Name $BackURL "メールの詳細"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
''
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailDeleteReply">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="BPT" value="$BPT">
''
' Sub mainColumn
<div class="desc">編集中の内容を削除します。よろしいですか？</div>
<table class="formTable">
<tr><th nowrap>削除後の処理状況</th>
<td nowrap>\\
<select name="Status">
' If $m.Status = 0
'  $Sel = "Selected"
' Else
'  $Sel = ""
' EndIf
<option value="0" $Sel>(未処理)
' If $m.Status = -1
'  $Sel = "Selected"
' Else
'  $Sel = ""
' EndIf
<option value="-1" $Sel>(処理中)
' Options $m.Status in $MailProfile.Status
' If $m.Status = -2
'  $Sel = "Selected"
' Else
'  $Sel = ""
' EndIf
<option value="-2" $Sel>(処理済み)
</select>
</td></tr>
<tr><th nowrap>削除後の確認者</th>
<td nowrap>\\
<select name="NextUID">
<option value="">----
' If $m.NextUID = $Login.ID
'  $Sel = "Selected"
' Else
'  $Sel = ""
' EndIf
<option value="$Login.ID" $Sel>$Login.Name
' For Each $u in $Users
'  If $u.ID = $Login.ID
'   Continue
'  EndIf
'  $AccessUser = $Command.Mail.IsAccessModify $BS $u.ID
'  If ! $AccessUser
'   Continue
'  EndIf
'  If $m.NextUID = $u.ID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$u.ID" $Sel>$u.Name
' Next
</select>
<img src="$IMG_PATH/outSide16.png">
<select name="NextGID" onChange="ChangeGroup( this.form, 'NextGID', 'NextUID' )">
<option value="">(グループ切替)
' Options $NextGID in $Groups
</select>
</td></tr></table>
' EndSub
''
' Sub commitColumn
' Call formCommit "はい" "いいえ"
' EndSub
''
' Call layout_view "" "" 0 mainColumn "" "" commitColumn
</form>
' Call cmFooter $BackURL "メールの詳細へ"
</body>
</html>