' $System.Access Mail
' $Command.Mail.AccessModify $BS
' $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.SetMailProperty
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="PartsJSMailUser.html"-->
' $CaptionTitle = "メール情報の変更"
' Call cmHead $CaptionTitle
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' 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 $WorkSpace.Mails.$BS.Name $BackURL "メールの詳細"
' $System.CloseDatabase "mw"
' If ( $Type = "Draft" ) or ( $Type = "Sent" )
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
' Else
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
' EndIf
' $MUID = $m.ModifyUID
' Set $mu = $Users.$MUID
' If ( $Type = "Sent" ) or $mu or ( $m.Status = -2 ) or ( ! $MailProfile.StatusWarning )
<form name="PropertySet" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
' Else
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	var i = form.Status.selectedIndex;
	if( form.Status.options[i].value == -2 )
	{
		if( ! confirm( 'このメールを処理済みにします。よろしいですか？' ) )
		{
			return false;
		}
	}
	return true;
}
//-->
</script>
<form name="PropertySet" method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
' EndIf
<input type="hidden" name="Page" value="MailPropertySet">
<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 formColumn
<table class="formTable">
'' <!---------------------状況----------------------------->
<tr><th nowrap>状況</th>
<td nowrap>\\
' If $Type = "Sent"
<input type="hidden" name="Status" value="-3">
'  $STColor = $MailProfile.ColorStatusSent
'  If $STColor
<span class="label color$STColor">\\
'  Else
<span class="label color1">\\
'  EndIf
(送信済み)</span>
' ElIf $mu
<input type="hidden" name="Status" value="-10">
'   $Status = $m.Status
'   Set $s = $MailProfile.Status.$Status
'   If $Status = -1
'    $STColor = "$MailProfile.ColorStatusWorking"
'    $STName = "(処理中)"
'   Elif $Status = -2
'    $STColor = "$MailProfile.ColorStatusFinished"
'    $STName = "(処理済み)"
'   Elif $Status = -5
'    $STColor = "$MailProfile.ColorStatusWaiting"
'    $STName = "(送信待ち)"
'   Elif $s
'    $STColor = "$s.Color"
'    $STName = "$s.Name"
'   Else
'    $STColor = "$MailProfile.ColorStatusToDo"
'    $STName = "(未処理)"
'   EndIf
'   If $STColor
<span class="label color$STColor">\\
'   Else
<span class="label color1">\\
'   EndIf
$STName</span>
'  $t = $m.MTime
<span class="fontNotice">$mu.Nameさんが編集中です ($t.Month/$t.Day $t.Hour:$t.Minute00)</span>
' Else
<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 ( $Type != "Received" ) or $m.Draft
'    If $m.Status = -5
'     $Sel = "Selected"
'    Else
'     $Sel = ""
'    EndIf
<option value="-5" $Sel>(送信待ち)
'   EndIf
'   If $Type != "Draft"
'    If $m.Status = -2
'     $Sel = "Selected"
'    Else
'     $Sel = ""
'    EndIf
'    If $Sel
<option value="-2" $Sel>(処理済み)
'    EndIf
'   EndIf
</select>
' EndIf
</td></tr>
'' <!---------------------確認者----------------------------->
' If ( $Type != "Sent" )
<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>
' Call cmImage outSide16.png
<select name="NextGID" onChange="ChangeGroup( this.form, 'NextGID', 'NextUID' )">
<option value="">(グループ切替)
' Options $GID in $Groups
</select>
</td></tr>
' EndIf
'' <!---------------------緊急度----------------------------->
<tr><th nowrap>緊急度</th>
<td nowrap>\\
' If $m.Quick
'  $Checked = ""
' Else
'  $Checked = 1
' EndIf
' Call formRadio "Quick" "通常" $Checked 0 "normal"
' Call formRadio "Quick" "至急" $m.Quick.Checked_1 1 "up"
' Call formRadio "Quick" "大至急" $m.Quick.Checked_2 2 "max"
</td></tr>
'' <!---------------------担当者----------------------------->
<tr><th nowrap>担当者</th>
<td nowrap>\\
<select name="UID">
<option value="">----
' If $m.UID = $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.UID = $u.ID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$u.ID" $Sel>$u.Name
' Next
</select>
<img src="$IMG_PATH/outSide16.png">
<select name="GID" onChange="ChangeGroup( this.form, 'GID', 'UID' )">
<option value="">(グループ切替)
' Options $GID in $Groups
</select>
</td></tr>
'' <!---------------------分類----------------------------->
' Set $Items = $MailProfile.Items
' For Each $Item in $Items
'  $IID = $Item.ID
<tr><th nowrap>$Item.Name</th>
<td nowrap>\\
'  If $Item.Multiple
'   $i = 1
'   If $Item.Line
'    $l = 0
<table border="0" cellspacing="0" cellpadding="2"><tr>
'   EndIf
'   For Each $Option in $Item.Options
'    Inc $i
'    If $Item.Line
'     If $l = $Item.Line
'      $l = 0
</tr><tr>
'     EndIf
<td nowrap>\\
'     Inc $l
'    Else
<nobr>
'    EndIf
'    $Checked = $m.Items.$IID.Contains $Option
'    Call formCheckBox $IID $Option $Checked $Option "Item$IID-$i"
'    If $Item.Line
</td>
'    Else
</nobr>
'    EndIf
'   Next
'   If $Item.Line
'    $Cols = $Item.Line - $l
'    If $Cols
<td colspan="$Cols"><br></td>
'    EndIf
</tr></table>
'   EndIf
'  Else
<select name="$Item.ID">
<option value="">----
'   $Selected = $m.Items.$IID.Head
'   Options $Selected in $Item.Options
</select>
'  EndIf
</td></tr>
' Next
'' <!---------------------フォルダ----------------------------->
' If ! $MailProfile.Folder.Disable
<tr><th nowrap>フォルダ</th>
<td nowrap>\\
<select name="SFID">
'  $FolderOptions = $Command.Mail.GetFolderOptions $BS $m.FID 1
$_FolderOptions
</select>
</td></tr>
' EndIf
'' <!---------------------警告日時----------------------------->
' If $Type != "Sent"
<tr><th nowrap>警告日時</th>
<td nowrap>\\
'  Call formDate "SetDate" "PropertySet" 0 $m.WarningTime.Date
'  Call formTime "SetTime" 0 $m.WarningTime.Time
<br><span class="fontNotice">指定日時を過ぎて、状況が(処理済み)でない場合に警告をします。</span>\\
</td></tr>
' EndIf
'' <!---------------------コメント----------------------------->
<tr><th nowrap>コメント</th>
<td nowrap>\\
' Call formText "Comment" "" 50 3
' If $m.Comments.Count
<table class="commentTable">\\
'   $RowNum = 0
'   For Each $Comment in $m.Comments
'    Inc $RowNum
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'    $UID = $Comment.UID
'    $UserName = $Users.$UID.Name
'    Init $UserName = $Comment.UserName
'    $t = $Comment.TimeStamp
<tr class="commentTR $RowClass">\\
<td class="commentUserName" width="1%" nowrap>$UserName</td>\\
<td class="commentBody">\\
'   View $Comment.Data 1
</td>\\
<td class="commentTS" width="1%" align="right" nowrap>($t.Year/$t.Month00/$t.Day00 $t.Hour00:$t.Minute00)</td></tr>\\
'   Next
</table>
' EndIf
</td></tr></table>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "変更する" "" "" "location.href='$escBackURL';"
<div class="shadowBottom"></div>
' EndSub
''
' Sub mailMain
'' <!---------------------メール本文----------------------------->
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="2"><tr>
<td><table border="0" cellspacing="0" cellpadding="2"><tr>
' If $Type = "Received"
<td width="80" valign="top" nowrap>
No. $m.Code
</td>
' EndIf
' $t = $m.TimeStamp
<td valign="top" nowrap>$t.Year/$t.Month/$t.Day($t.WDay) $t.Hour:$t.Minute00
&nbsp; <b>$m.Subject</b><br></td>
</tr></table>
</td></tr></table>
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="2">
<td><table border="0" cellspacing="0" cellpadding="2"><tr>
<tr><td width="80" valign="top" nowrap>差出人</td><td nowrap>
' If $m.From
$m.From
' Elif $Type != "Received"
'  $AID = $MailProfile.Accounts.Head
'  Set $Account = $MailProfile.Accounts.$AID
'  If $Account.FromName
 &quot;$Account.FromName&quot; &lt;$Account.Address&gt;
'  Else
 $Account.Address
'  EndIf
' EndIf
<br></td></tr>
<tr><td width="80" valign="top" nowrap>宛先</td><td>$m.To</td></tr>
' If $m.CC
<tr><td width="80" valign="top" nowrap>CC</td><td colspan="2">$m.CC</td></tr>
' EndIf
' If $m.BCC
<tr><td width="80" valign="top" nowrap>BCC</td><td colspan="2">$m.BCC</td></tr>
' EndIf
</table>
</td></tr></table>
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td>
' If $Type = "Received"
'  $Source = $Command.Mail.IsMailSource $BS $MID $DBID
'  If $Source
<!--#include file="PartsMailData.html"-->
'  Else
'   If $m.HtmlData
<!--#include file="PartsRichText.html"-->
'    Call ShowRichText
'   Else
'    View $m.Data
'   EndIf
'  EndIf
' Else
'  If $m.HtmlData
<div class="re-content">
'    $Command.RichText.View $m.HtmlData
</div>
'  Else
'   View $m.Data
'  EndIf
<br>
'  View $m.Signature
'  For Each $File in $m.Files
<hr>
'   If $m.DeleteFiles
$File.FileName <font color="#888888">(削除済み)</font><br>
'   Else
'    $System.SetParameter Inline "Inline$WID"
'    $System.FileLink $File Mail $Login.$Inline 0 "&wid=$WID&bs=$BS&dbid=$DBID&MailType=Sent"
'   EndIf
'  Next
' EndIf
</td></tr>
</table>
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="2"><tr><td><br></td></tr></table>
' EndSub
''
' Sub mainColumn
<div class="desc">メール情報を入力してください。</div>
'  Call formColumn
'  Call mailMain
' EndSub
''
' Call layout_view "" "" 0 mainColumn
</form>
' Call cmFooter $BackURL "メールの詳細へ"
</body>
</html>