' If $Confirm
<!--#include file="LibraryReportSetSpan.html"-->
<!--#include file="LibraryForm.html"-->
<p>
メール担当者の集計をおこないます。<br>
メールの件数が多いため、集計には時間がかかる可能性がありますが、よろしいですか？
</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="4">
'  Set $MailProfile = $Command.Mail.GetMailTop $TID
'  If $MailProfile.Total.Queries.Count
<tr><td nowrap>集計条件</td><td nowrap>
<select name="QID">
<option value="">----
'   Options $QID in $MailProfile.Total.Queries
</select>
</td></tr>
'  EndIf
<tr><td valign="top" nowrap>期間</td><td nowrap>
'  Call SetTotalSpan "Report"
</td></tr>
</table>
</blockquote>
<p>
'  Call formSubmit "Submit" "集計を実行する"
</p>
' Else
'  Set $TotalUsers = $Command.Mail.GetTotalUsers $TID $SIT
'  $TotalLeft = $MailSearch.Count
'  Init $TotalLeft = 0
'  For Each $u in $Users
'   $UID = $u.ID
'   $LC = $TotalUsers.$UID.Count
'   $System.SetParameter "LC$UID" $LC
'  Next
'  Set $TotalUsers = $Command.Mail.GetTotalUsers $TID $ST
'  $TotalSent = $MailSearch.Count
'  Init $TotalSent = 0
'  $SetDate = $MailSearch.SetDate
'  $EndDate = $MailSearch.EndDate
'  For Each $u in $Users
'   $UID = $u.ID
'   $SC = $TotalUsers.$UID.Count
'   $System.SetParameter "SC$UID" $SC
'  Next
'  Set $MailProfile = $Command.Mail.GetMailTop $TID
'  Sub ViewSpan
'   If $SetDate or $EndDate
'    If $SetDate
$SetDate.Year/$SetDate.Month/$SetDate.Day
'    EndIf
～
'    If $EndDate
$EndDate.Year/$EndDate.Month/$EndDate.Day
'    EndIf
'   Else
(全て)
'   EndIf
'  EndSub
'  If $Print
' Call cmLoadStyleSheet "std"
<p>$WorkSpace.Mails.$TID.Name - 担当者別の件数 (
'   If $MailProfile.Total.Queries.$QID
集計条件：$MailProfile.Total.Queries.$QID.Name ,
'   EndIf
期間：
'   Call ViewSpan
)</p>
'  Else
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="4">
<tr><td nowrap>集計条件
<select name="QID" onChange="this.form.submit();">
<option value="">----
'   Options $QID in $MailProfile.Total.Queries
</select>
&nbsp;
期間 <b>
'   Call ViewSpan
</b>
&nbsp;
'   Call cmLink "集計の設定" "write20.png" "$Server?page=ReportPersonalSet&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST"
</td></tr>
</table>
'  EndIf
<table width="100%" border="1" cellspacing="0" cellpadding="2" nowrap bgcolor="#ffffff">
<tr class="header" width="20%"><th nowrap>名前</th>
'  If $VID
<th width="80%" colspan="2" nowrap>送信件数($TotalSent件)</th>
'  Else
<th width="40%" colspan="2" nowrap>処理残件($TotalLeft件)</th>
<th width="40%" colspan="2" nowrap>送信件数($TotalSent件)</th>
'  EndIf
</tr>
'  Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
'  $System.SetParameter "Param" "Scale$TID"
'  $Scale = $PersonalTotal.$Param
'  For Each $u in $Users
'   $UID = $u.ID
'   $AccessUser = $Command.Mail.IsAccessModify $TID $UID
'   If ! $AccessUser
'    Continue
'   EndIf
'   $LC = $System.GetParameter "LC$UID"
'   If ! $LC
'    $LC = 0
'   EndIf
'   If $Scale
'    $LRate = $System.Rate $LC $Scale
'    If $LRate > 100
'     $LRate = 100
'    EndIf
'   Else
'    $LRate = $System.Rate $LC $TotalLeft
'   EndIf
'   $SC = $System.GetParameter "SC$UID"
'   If ! $SC
'    $SC = 0
'   EndIf
'   If $Scale
'    $SRate = $System.Rate $SC $Scale
'    If $SRate > 100
'     $SRate = 100
'    EndIf
'   Else
'    $SRate = $System.Rate $SC $TotalSent
'   EndIf
<tr><td nowrap>$u.Name</td>
'   If ! $VID
<td width="1%" align="right" nowrap>$LC</td>
<td>
<table border="0" width="100%" cellspacing="2" cellpadding="0" bgcolor="#ffffff"><tr>
'    If $LRate
<td width="$LRate%"><img src="$IMG_PATH/graph_r.gif" width="100%" height="18"></td>
'    EndIf
<td><img src="$IMG_PATH/spacer.gif"></td>
</tr></table>
</td>
'   EndIf
<td width="1%" align="right" nowrap>$SC</td>
<td>
<table border="0" width="100%" cellspacing="2" cellpadding="0" bgcolor="#ffffff"><tr>
'   If $SRate
<td width="$SRate%"><img src="$IMG_PATH/graph_s.gif" width="100%" height="18"></td>
'   EndIf
<td><img src="$IMG_PATH/spacer.gif"></td>
</tr></table>
</td></tr>
'  Next
</table>
' EndIf