' Set $MailProfile = $Command.Mail.GetMailTop $TID
' If $Date.WDayNum
'  $SetDate = $Date.PrevWeek
' Else
'  $SetDate = $Date
' EndIf
' If $Print
' Call cmLoadStyleSheet "std"
<p>$WorkSpace.Mails.$TID.Name - 期間別レポート
'  If $MailProfile.Total.Queries.$QID
( 集計条件：$MailProfile.Total.Queries.$QID.Name )
'  EndIf
</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;
'  Call cmLink "表示の設定" "write20.png" "$Server?page=ReportPersonalSet&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&st=$ST&date=$Date"
</td>
<td align="right" nowrap>
<a href="$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&date=$SetDate.PrevWeek">&lt;&lt; 前の週へ</a> |
<a href="$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID">今日</a> |
<a href="$Server?page=ReportIndex&wid=$WID&vid=$VID&tid=$TID&type=$Type&qid=$QID&date=$SetDate.NextWeek">次の週へ &gt;&gt;</a>
 </td></tr>
</table>
' EndIf
' $TR = 0
' $TS = 0
' $CDate = $SetDate
' For $i = 1 to 7
'  $RC = $Command.Mail.GetTotalReceivedCount $TID $QID $CDate
'  Init $RC = 0
'  Inc $TR $RC
'  $System.SetParameter RC$i $RC
'  $SC = $Command.Mail.GetTotalSentCount $TID $QID $CDate
'  Init $SC = 0
'  Inc $TS $SC
'  $System.SetParameter SC$i $SC
'  $CDate = $CDate.NextDay
' Next
' If $TR > $TS
'  $Max = $TR
' Else
'  $Max = $TS
' EndIf
' Init $Max = 0
' Set $PersonalTotal = $Command.Personal.GetTotalObject $WID
' $System.SetParameter "Param" "Scale$TID"
' $Scale = $PersonalTotal.$Param
<table width="100%" border="1" cellspacing="0" cellpadding="2" nowrap bgcolor="#ffffff">
<tr class="header">\\
<th width="20%" nowrap>日付</th>\\
<th width="80%" colspan="2" nowrap>メール件数</th>\\
</tr>
' $CDate = $SetDate
' For $i = 1 to 7
'  If $CDate.IsToday
'   $WColor = "#ccffcc"
'  Else
'   $WColor = $CDate.Color
'  EndIf
<tr><td bgcolor="$WColor" nowrap>$CDate.Year/$CDate.Month/$CDate.Day ($CDate.WDay)</td>
'  $DR = $System.GetParameter RC$i
'  Init $DR = 0
'  If $Scale
'   $RRate = $System.Rate $DR $Scale
'   If $RRate > 100
'    $RRate = 100
'   EndIf
'  Else
'   $RRate = $System.Rate $DR $Max
'  EndIf
'  $DS = $System.GetParameter SC$i
'  Init $DS = 0
'  If $Scale
'   $SRate = $System.Rate $DS $Scale
'   If $SRate > 100
'    $SRate = 100
'   EndIf
'  Else
'   $SRate = $System.Rate $DS $Max
'  EndIf
<td align="right" nowrap>$DR<br>$DS</td>
<td width="80%"><table border="0" cellspacing="2" cellpadding="0" width="100%" bgcolor="#ffffff"><tr>
'  If $RRate
<td width="$RRate%"><img src="$IMG_PATH/graph_r.gif" width="100%" height="18"></td>
'  Else
<td><br></td>
'  EndIf
<td><img src="$IMG_PATH/spacer.gif"></td>
</tr></table>
<table border="0" cellspacing="2" cellpadding="0" width="100%" bgcolor="#ffffff"><tr>
'  If $SRate
<td width="$SRate%"><img src="$IMG_PATH/graph_s.gif" width="100%" height="18"></td>
'  Else
<td><br></td>
'  EndIf
<td><img src="$IMG_PATH/spacer.gif"></td>
</tr></table></td></tr>
'  $CDate = $CDate.NextDay
' Next
<tr class="header">
<th nowrap><b>合計</b></th>
<th style="text-align:right;" nowrap><b>$TR<br>$TS</b></th>
<th><br></th>
</tr>
</table>
<b><font size="-1">上段<img src="$IMG_PATH/graph_r.gif" style="height:0.8em; width:0.8em;">　…受信メールの件数　下段<img src="$IMG_PATH/graph_s.gif" style="height:0.8em; width:0.8em;">　…送信メールの件数</font></b>