' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemMailAccount&wid=$WID&id=$ID
'  $Command.Mail.SetAutoReceive
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "自動受信の設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemMailAccount&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin&wid=$WID" "システム設定" $BackURL "メールアカウントの設定"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemMailAutoReceive">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>メールの自動受信の情報を設定してください。</p>
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>自動受信</td>
<td nowrap>
' $Receive = $WorkSpace.Mails.$ID.Receive
<select name="Receive">
<option value="">自動受信をしない
<option value="3" $Receive.Selected_3>3分毎に受信する
<option value="5" $Receive.Selected_5>5分毎に受信する
<option value="10" $Receive.Selected_10>10分毎に受信する
<option value="15" $Receive.Selected_15>15分毎に受信する
<option value="20" $Receive.Selected_20>20分毎に受信する
<option value="30" $Receive.Selected_30>30分毎に受信する
<option value="60" $Receive.Selected_60>60分毎に受信する
</select>
</td></tr>
</table>
</p>
' Call formCommit "設定する"
</form>
' Call cmChildFooter $BackURL "メールアカウントの設定へ"
</body>
</html>