' $System.Access Mail
' If $System.IsPost
'  $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID
'  $Command.Mail.DeleteFromServer
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "受信できないメールの詳細"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Mails.$BS.Name
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $MIndex = $Command.Mail.GetMailIndex $BS
''
' Sub mainColumn
' $Limit = $MailProfile.ReceiveMax
' If $Limit = 512
'  $LimitString = "512KB (524,288byte)"
' Elif $Limit = 1024
'  $LimitString = "1MB (1,048,576byte)"
' Elif $Limit = 3072
'  $LimitString = "3MB (3,145,728byte)"
' Elif $Limit = 5120
'  $LimitString = "5MB (5,242,880byte)"
' Elif $Limit = 10240
'  $LimitString = "10MB (10,485,760byte)"
' EndIf
<div class="desc">メールサイズの制限
' If $LimitString
($LimitString まで)
' EndIf
などにより、以下のメールが受信できませんでした。</p>
<ul>
' If ! $MailProfile.Leave
<li>受信できなかったメールは、この場でメールサーバーから削除することができます。</li>
' EndIf
<li>メールサイズの制限は、<a href="$Server?page=SystemMailServer">[システム設定]</a>において解除することができます。</li>
</ul>
</div>
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailSizeOver">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="FID" value="$FID">
'  Call operation "Head"
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call titleRow
' $Index = 1
' For Each $m in $MIndex.ErrorMails
<tr><td>\\
'  If ! $MailProfile.Leave
'   Call formCheckBox "MID" "$Index$." 0 $m.ID "Del$m.ID"
'  Else
$Index$.
'  EndIf
</td>
<td>$m.Subject<br></td>
<td>$m.From<br></td>
'  $t = $m.TimeStamp
<td>$t.Year/$t.Month/$t.Day $t.Hour:$t.Minute00</td>
<td align="right">$m.Size.Number</td>
</tr>
'  Inc $Index
' Next
'  Call titleRow
</table>
'  Call operation "Tail"
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 0
</form>
' Call cmFooter $BackURL "メールの一覧へ"
</body>
</html>
''
'  Sub titleRow
<tr class="table-header"><td>番号</td><td>件名</td><td>差出人</td><td>日付</td><td>サイズ(byte)</td></tr>
'  EndSub
''
' Sub operation $argPos
'   If $MailProfile.Leave
'    Exit
'   EndIf
   <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr class="active">
     <td nowrap>
      <table border="0" cellspacing="0" cellpadding="2">
       <tr>
'  Call operationCheckedInner $argPos
       </tr>
      </table>
     </td>
    </tr>
   </table>
' EndSub
''
' Sub captionChecked $argPos
'  If ! $captionSet
<td nowrap>
<span class="pointing">
'   If $argPos = "Head"
'    Call cmImage pointing_t.png
'   Else
'    Call cmImage pointing_b.png
'   EndIf
</span></td>
'   $captionSet = 1
'  EndIf
' EndSub
''
' Sub operationCheckedInner $argPos
'  $captionSet = 0
'  Call captionChecked $argPos
<td nowrap>
'  Call formSubmit "Delete" "削除する"
</td>
' EndSub