' $System.Access Mail
' $Command.Mail.AccessModify $BS
' If $BPage = "MailSearch"
'  $CaptionBackPage = "メールの検索へ"
'  $System.SetParameter BackURL "$Server?page=MailSearch&wid=$WID&bs=$BS&st=$ST&bpt=$BPT&head=$Head&hid=$HID"
' Else
'  $CaptionBackPage = "メールの一覧へ"
'  $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View&sts=$STS&head=$Head&hid=$HID"
' EndIf
' If $System.IsPost
'  $System.Redirect $BackURL
'  $Command.Mail.SetEachMailProperty
'  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
<script language="JavaScript" type="text/javascript"><!--
function onCheckWarning( form )
{
	var e = document.getElementById( 'SETWARNING' );
	if( e && e.style )
	{
		if( form.WarningTime.checked == true )
		{
			e.style.display="";
		}
		else
		{
			e.style.display="none";
		}
	}
}
function onSubmit( form )
{
' If $MailProfile.StatusWarning
	var i = form.Status.selectedIndex;
	if( form.Status.options[i].value == -2 )
	{
		if( ! confirm( 'メールの状況を処理済みにします。よろしいですか？' ) )
		{
			return false;
		}
	}
' EndIf
	return true;
}
function initializeWarning()
{
	var form = document.forms["PropertySet"];
	onCheckWarning( form );
}
//-->
</script>
' Call onChangeGroup $BS 1
</head>
<body onLoad="initializeWarning()">
' $CaptionMailIndex = $WorkSpace.Mails.$BS.Name
' If $BPage = "MailSearch"
'  $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS"
'  Call cmHeader $CaptionTitle $URLMailIndex $CaptionMailIndex $BackURL "メールの検索"
' Else
'  Call cmHeader $CaptionTitle $BackURL $CaptionMailIndex
' EndIf
' $System.CloseDatabase "mw"
''
<form name="PropertySet" method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailPropertySetEach">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="FID" value="$FID">
<input type="hidden" name="View" value="$View">
<input type="hidden" name="STS" value="$STS">
<input type="hidden" name="ST" value="$ST">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Head" value="$Head">
<input type="hidden" name="HID" value="$HID">
<input type="hidden" name="BPage" value="$BPage">
''
' Sub formColumn
<table class="formTable">
'' <!---------------------状況----------------------------->
<tr><th nowrap>状況</th>
<td nowrap>\\
<select name="Status">
<option value="">--
<option value="0">(未処理)
<option value="-1">(処理中)
'  Options $s in $MailProfile.Status
<option value="-5">(送信待ち)
<option value="-2">(処理済み)
</select>
</td></tr>
'' <!---------------------確認者----------------------------->
<tr><th nowrap>確認者</th>
<td nowrap>\\
<select name="NextUID">
<option value="">--
<option value="0">(値なし)
<option value="$Login.ID">$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
<option value="$u.ID">$u.Name
' Next
</select>
' Call cmImage outSide16.png
<select name="NextGID" onChange="ChangeGroup( this.form, 'NextGID', 'NextUID' )">
<option value="">(グループ切替)
' Options $NextGID in $Groups
</select>
</td></tr>
'' <!---------------------緊急度----------------------------->
<tr><th nowrap>緊急度</th>
<td nowrap>\\
<select name="Quick">
<option value="">--
<option value="0">通常
<option value="1">至急
<option value="2">大至急
</select>
</td></tr>
'' <!---------------------担当者----------------------------->
<tr><th nowrap>担当者</th>
<td nowrap>\\
<select name="UID">
<option value="">--
<option value="0">(値なし)
<option value="$Login.ID">$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
<option value="$u.ID">$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
'   If $Item.Line
'    $l = 0
<table border="0" cellspacing="0" cellpadding="2"><tr>
'   EndIf
'   For Each $Option in $Item.Options
'    If $Item.Line
'     If $l = $Item.Line
'      $l = 0
</tr><tr>
'     EndIf
<td nowrap>\\
'     Inc $l
'    Else
<nobr>
'    EndIf
$Option<select name="$Item.ID">
<option value="">--
<option value="+$Option">ON
<option value="-$Option">OFF
</select>
'    If $Item.Line
</td>
'    Else
</nobr>
&nbsp;
'    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="">--
<option value="-">(値なし)
'   For Each $Option in $Item.Options
<option value="+$Option">$Option
'   Next
</select>
'  EndIf
</td></tr>
' Next
'' <!---------------------フォルダ----------------------------->
' If ! $MailProfile.Folder.Disable
<tr><th nowrap>フォルダ</th>
<td nowrap>\\
<select name="SFID">
<option value="">--
'  $FolderOptions = $Command.Mail.GetFolderOptions $BS -1 1
$_FolderOptions</select>
</td></tr>
' EndIf
'' <!---------------------警告日時----------------------------->
<tr><th nowrap>警告日時</th>
<td nowrap>\\
<table border="0" cellspacing="0" cellpadding="5" width="100%">
<tr><td>
' Call formCheckBox "WarningTime" "一括設定する" 0 1 "WarningTime" "onCheckWarning( this.form );"
</td></tr>
<tr id="SETWARNING" style="display:none;">\\
<td nowrap>\\
' Call formDate "SetDate" "PropertySet"
' Call formTime "SetTime"
</td></tr>
</table>
</td></tr>
</table>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "設定する" "" "" "location.href='$escBackURL';"
<div class="shadowBottom"></div>
' EndSub
''
' Sub mainColumn
<div class="desc">以下のメールのメール情報を一括で設定します。メール情報を入力してください。<br>\\
<span class="fontNotice">「--」が選択された場合、値を変更しません。</span>\\
</div>
'  Call formColumn
'  Set $Mails = $Command.Mail.GetCheckedMails $BS
<!--#include file="PartsMailIndex.html"-->
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active"><td nowrap>設定対象のメール一覧</td></tr>
</table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' $ViewIndex.WID = $WID
' For Each $m in $Mails
'  Set $v = $ViewIndex.Add
'  $v.AID = $BS
'  $v.OID = $m.OID
'  $v.DBID = $m.DBID
'  $v.Type = $m.Type
' Next
' $Command.Mail.CloseIndexDatabase $BS
' Call viewMailTitle $BS $MailProfile -4 1
' Call viewMailIndex $BS $MailProfile $ViewIndex -4 "" "" 0 1 "" "" 1
' Call viewMailTitle $BS $MailProfile -4 1
</table>
' EndSub
''
' Call layout_view "" "" 0 mainColumn
</form>
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>