' $System.Access Mail
' If $WMI
'  Set $BP = $Command.Personal.SetBackPage $WMI "MailIndex"
'  $BP.Args.st = $ST
'  $BP.Args.sts = $STS
'  $BP.Args.fid = $FID
'  $BP.Args.view = $View
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryNavigation.html"-->
' Call cmHtmlHead
' $CaptionTitle = "警告メールの一覧"
' Call cmHead $CaptionTitle
' Set $MailProfile = $Command.Mail.GetMailTop $BS
</head>
<body>
' $CaptionMailIndex = $WorkSpace.Mails.$BS.Name
' $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID$$BP.Param"
' Call cmHeader $CaptionTitle $BackURL $CaptionMailIndex
' $System.CloseDatabase "mw"
' Set $MWIndex = $Command.Mail.GetWorkIndexTop $BS
' $Count = $MWIndex.Warning.GetOverCount
''
' Sub mainColumn
<div class="desc">警告日時になったメールが $Count 件あります。</div>
<!--#include file="PartsMailIndex.html"-->
' $ViewIndex.WID = $WID
' $Rows = $MailProfile.Rows
' Init $Rows = 100
' Set $rs = $MWIndex.Warning.RowSet
' $rs.Rows = $Rows
' $rs.Warning = 1
' If $Head
'  $rs.Head = $Head
'  $rs.HID = $HID
' Else
'  $rs.Head = $TimeStamp
' EndIf
' For Each $m in $rs
'  Set $v = $ViewIndex.Add
'  $v.AID = $BS
'  $v.OID = $m.MID
'  $v.DBID = $m.DBID
'  $v.Type = $m.Type
' Next
' $ViewIndex.Prev = $rs.Prev
' $ViewIndex.PID = $rs.PID
' $ViewIndex.Next = $rs.Next
' $ViewIndex.NID = $rs.NID
'  Call operation
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Call viewMailTitle $BS $MailProfile -8 1
' $Command.Mail.CloseIndexDatabase $BS
' Call viewMailIndex $BS $MailProfile $ViewIndex -8 "&head=$Head&hid=$HID&bpt=$BPT&wmw=$Login.ID" $MID
' Call viewMailTitle $BS $MailProfile -8 1
</table>
'  Call operation
' EndSub
</form>
' Call layout_list "" "" 0 mainColumn "" "" 0
' Call cmFooter $BackURL "メールの一覧へ"
</body>
</html>
''
' Sub operation
   <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr class="active">
' Call Navigation $ViewIndex "&bs=$BS" $Rows
    </tr>
   </table>
' EndSub