' 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 $TotalItems = $Command.Mail.GetTotalItems $TID $ST
'  $TotalReceived = $MailSearch.Count
'  Init $TotalReceived = 0
'  $SetDate = $MailSearch.SetDate
'  $EndDate = $MailSearch.EndDate
'  Set $MailProfile = $Command.Mail.GetMailTop $TID
'  Set $MIndex = $Command.Mail.GetMailIndex $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
'  Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
'  $System.SetParameter "Param" "Scale$TID"
'  $Scale = $PersonalTotal.$Param
'  Sub RecordGraph $Name $Count $TotalCount
<tr><td nowrap>$Name</td>
'   Init $Count = 0
'   If $Scale
'    $Rate = $System.Rate $Count $Scale
'    $DisplayRate = $System.Rate $Count $Scale 1
'    If $Rate > 100
'     $Rate = 100
'     $DisplayRate = 100.0
'    EndIf
'   Else
'    $Rate = $System.Rate $Count $TotalCount
'    $DisplayRate = $System.Rate $Count $TotalCount 1
'   EndIf
'   Init $Rate = 0
<td width="1%" align="right" nowrap>$Count</td>
<td width="1%" align="right" nowrap>$DisplayRate%</td>
<td>
 <table border="0" width="100%" cellspacing="2" cellpadding="0" bgcolor="#ffffff"><tr>
'   If $Rate
 <td width="$Rate%"><img src="$IMG_PATH/graph_r.gif" width="100%" height="18"></td>
'   EndIf
 <td><img src="$IMG_PATH/spacer.gif"></td>
 </tr></table>
</td></tr>
'  EndSub
'  For Each $Item in $MailProfile.Items
'   $IID = $Item.ID
<table width="100%" border="0" cellspacing="0" cellpadding="2" nowrap>
<tr><td nowrap><img src="$IMG_PATH/pin.png"><b>$Item.Name</b> 項目の集計</td></tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="2" nowrap bgcolor="#ffffff">
<tr class="header"><th width="20%" nowrap>項目の値</th><th colspan="3" width="80%" nowrap>受信件数($TotalReceived件)</th></tr>
'   Set $Options = $TotalItems.$IID
'   For Each $ItemOption in $Item.Options
'    $Exist = 0
'    For Each $Option in $Options
'     If $Option.Name = $ItemOption
'      Call RecordGraph $ItemOption $Option.Count $TotalReceived
'      $Exist = 1
'      Exit
'     EndIf
'    Next
'    If ! $Exist
'     Call RecordGraph $ItemOption 0 $TotalReceived
'    EndIf
'   Next
</table><br>
'  Next
'  If ! $MailProfile.Items.Count
<p>集計対象の項目がありません。</p>
'  EndIf
' EndIf