<script language="JavaScript" type="text/javascript">
<!--
function CheckAll( form )
{
	var e = form.elements;
	var l = e.length;
	var checked = false;
	for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "MID" && ! e[i].checked ) { checked = true; } }
	for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "MID" ) { e[i].checked=checked; } }
}
function onReverse( form, val )
{
	if( form.Reverse )
	{
		form.Reverse.value = val;
	}
	form.submit();
    return false;
}
//-->
</script>
''<!------------------------------------------------------------------
''  メールの一覧タイトル表示
''  構文：Call viewMailTitle <システムID> <メール情報> <選択フォルダ> <絞込なしフラグ> <絞込選択オブジェクト> <チェックボックスの表示>
''------------------------------------------------------------------->
' Sub viewMailTitle $vmiBS $vmiMailProfile $vmiFID $vmiNoSel $vmiSelected $vmiArgs $vmiCheckBox $vmiFormName
<tr class="table-header">
'' <!---------------------チェック----------------------------->
'  If ( ! $VID and $vmiCheckBox ) or ( ! $vmiMailProfile.LineNumber.Hidden )
<td width="1%" align="center">
'   If ( ! $VID ) and $vmiCheckBox
<a href="javascript:CheckAll( document.forms.$vmiFormName );">\\
'    Call cmImage "btn_check20.png" "クリックすると全てをチェックできます"
</a>
'   Else
<br>
'   EndIf
</td>
'  EndIf
'' <!---------------------警告日時----------------------------->
'  If $vmiFID = -8
<td colspan="2" align="center" nowrap>警告日時</td>
'  EndIf
'' <!---------------------日時----------------------------->
<td colspan="2" align="center" nowrap>\\
'  If $vmiNoSel
日時\\
'  Else
'   If $vmiSelected.Reverse
'     $vmiImageSort = "sortup.png"
'     $vmiReverse = 0
'   Else
'    $vmiImageSort = "sortdown.png"
'     $vmiReverse = 1
'   EndIf
<div class="clearfix" style="cursor:pointer;" onclick="onReverse( document.forms.$vmiFormName, $vmiReverse );">
<span style="float:left;">日時</span>\\
<span style="float:right;">\\
' Call cmImage "$vmiImageSort" "逆順で日時を並び替えます"
</span></div>
'  EndIf
</td>
'' <!-------------------処理状況・確認者----------------------->
'  If ( $vmiFID != -2 ) and ( $vmiFID != -3 ) and ( $vmiFID != -6 )
<td nowrap>
'   If $vmiNoSel
'    If $vmiFID != -7
状況・確認者\\
'    Else
状況\\
'    EndIf
'   Else
'    $vmiSelStatus = $vmiSelected.Status
'    Init $vmiNextUID = $vmiSelected.NextUID
<select name="Status" class="status" onChange="this.form.submit();">
'    If ( ! $vmiSelStatus ) and ( $vmiSelStatus != 0) and ( ! $vmiNextUID )
'     If $vmiFID != -7
<option value="">状況・確認者</option>
'     Else
<option value="">状況</option>
'     EndIf
'    Else
<option value="">(全て)</option>
'    EndIf
''   <!-------------------状況----------------------------->
'    If $vmiFID != -7
<option value="">▼状況 ---</option>
'    EndIf
'    If $vmiSelStatus = 0
<option value="0" Selected>(未処理)</option>
'    Else
<option value="0">(未処理)</option>
'    EndIf
'    If $vmiSelStatus = -1
<option value="-1" Selected>(処理中)</option>
'    Else
<option value="-1">(処理中)</option>
'    EndIf
'    For Each $vmiStatus in $vmiMailProfile.Status
'     If $vmiSelStatus = $vmiStatus.ID
<option value="$vmiStatus.ID" Selected>$vmiStatus.Name</option>
'     Else
<option value="$vmiStatus.ID">$vmiStatus.Name</option>
'     EndIf
'    Next
'    If $vmiSelStatus = -5
<option value="-5" Selected>(送信待ち)</option>
'    Else
<option value="-5">(送信待ち)</option>
'    EndIf
'    If ( $vmiFID != -1 ) and ( $vmiFID != -4 ) and ( $vmiFID != -7 )
'     If $vmiSelStatus = -2
<option value="-2" Selected>(処理済み)</option>
'     Else
<option value="-2">(処理済み)</option>
'     EndIf
'    EndIf
'' <!-------------------確認者------------------------------->
'    If $vmiFID != -7
<option value="">▼確認者 ---</option>
'     $nextUIDPrefix = "n"
'     $vmiAccessModify = $Command.Mail.IsAccessModify $vmiBS $Login.ID
'     If $vmiAccessModify
'      If $vmiNextUID = $Login.ID
<option value="$nextUIDPrefix$$Login.ID" Selected>$Login.Name</option>
'      Else
<option value="$nextUIDPrefix$$Login.ID">$Login.Name</option>
'      EndIf
'     EndIf
'     For Each $vmiNextUser in $Users
'      If $vmiNextUser.ID = $Login.ID
'       Continue
'      EndIf
'      $vmiAccessModify = $Command.Mail.IsAccessModify $vmiBS $vmiNextUser.ID
'      If ! $vmiAccessModify
'       Continue
'      EndIf
'      If $vmiNextUID = $vmiNextUser.ID
<option value="$nextUIDPrefix$$vmiNextUser.ID" Selected>$vmiNextUser.Name</option>
'      Else
<option value="$nextUIDPrefix$$vmiNextUser.ID">$vmiNextUser.Name</option>
'      EndIf
'     Next
'    EndIf
</select>
'   EndIf
</td>
'  EndIf
'' <!---------------------担当者----------------------------->
'  If $vmiFID != -1
<td nowrap>
'   If $vmiNoSel
担当者\\
'   Else
'    Init $vmiUID = $vmiSelected.UID
<select name="UID" class="owner" onChange="this.form.submit();">
'    If $vmiUID
<option value="">(全て)</option>
'    Else
<option value="">担当者</option>
'    EndIf
'    If $vmiUID = -1
<option value="-1" Selected>(未設定)</option>
'    Else
<option value="-1">(未設定)</option>
'    EndIf
'    $vmiAccessModify = $Command.Mail.IsAccessModify $vmiBS $Login.ID
'    If $vmiAccessModify
'     If $vmiUID = $Login.ID
<option value="$Login.ID" Selected>$Login.Name</option>
'     Else
<option value="$Login.ID">$Login.Name</option>
'     EndIf
'    EndIf
'    For Each $vmiUser in $Users
'     If $vmiUser.ID = $Login.ID
'      Continue
'     EndIf
'     $vmiAccessModify = $Command.Mail.IsAccessModify $vmiBS $vmiUser.ID
'     If ! $vmiAccessModify
'      Continue
'     EndIf
'     If $vmiUID = $vmiUser.ID
<option value="$vmiUser.ID" Selected>$vmiUser.Name</option>
'     Else
<option value="$vmiUser.ID">$vmiUser.Name</option>
'     EndIf
'    Next
</select>
'   EndIf
</td>
'  EndIf
'' <!---------------------番号----------------------------->
'  If ( ! $vmiMailProfile.Code.Hidden ) and ( $vmiFID != -2 ) and ( $vmiFID != -6 )
<td width="1%" align="center" nowrap>番号</td>
'  EndIf
'' <!-------------------返信/転送-------------------------->
'  If $vmiFID != -6
<td width="1%" nowrap><br></td>
'  EndIf
'' <!-------------------添付有無--------------------------->
<td width="1%" nowrap><br></td>
'' <!---------------------件名----------------------------->
<td nowrap>件名</td>
'' <!---------------------顧客----------------------------->
'  If ! $vmiMailProfile.Customer.Hidden
'   If $vmiMailProfile.Customer.Each
<td nowrap>宛先</td><td nowrap>差出人</td>
'   Else
'    If ( $vmiFID = -6 ) or ( $vmiFID = -2 )
<td nowrap>宛先</td>
'    Elif $vmiFID = -5
<td nowrap>差出人</td>
'    Else
<td nowrap>宛先/差出人</td>
'    EndIf
'   EndIf
'  EndIf
'' <!---------------------アカウント----------------------------->
'  $vmiAccountSize = $vmiMailProfile.Accounts.Count
'  If ( $vmiAccountSize > 1 ) and ( ! $vmiMailProfile.AccountView.Hidden )
<td nowrap>\\
'   If $vmiNoSel
アカウント\\
'   Else
'    Init $vmiACID = $vmiSelected.ACID
<select name="ACID" onChange="this.form.submit();">
'    If $vmiACID
<option value="">(全て)</option>
'    Else
<option value="">アカウント</option>
'    EndIf
'    For Each $vmiAccount in $vmiMailProfile.Accounts
'     If $vmiAccount.Alias
'      $vmiAccountName = $vmiAccount.Alias
'     Else
'      $vmiAccountName = $vmiAccount.Name
'     EndIf
'     If $vmiAccount.ID = $vmiACID
<option value="$vmiAccount.ID" Selected>$vmiAccountName</option>
'     Else
<option value="$vmiAccount.ID">$vmiAccountName</option>
'     EndIf
'    Next
</select>
'   EndIf
</td>
'  EndIf
'' <!---------------------分類----------------------------->
'  For Each $vmiItem in $vmiMailProfile.Items
'   If ! $vmiItem.Hidden
'    $vmiIID = $vmiItem.ID
'    $vmiSelValue = $vmiSelected.$vmiIID
<td nowrap>
'    If $vmiNoSel
$vmiItem.Name\\
'    Else
<select name="$vmiIID" onChange="this.form.submit();">
'     If $vmiSelValue
<option value="">(全て)</option>
'     Else
<option value="">$vmiItem.Name</option>
'     EndIf
'     If $vmiSelValue = " "
<option value=" " Selected>(未設定)</option>
'     Else
<option value=" ">(未設定)</option>
'     EndIf
'     For Each $vmiValue in $vmiItem.Options
'      If $vmiValue = $vmiSelValue
<option value="$vmiValue" Selected>$vmiValue</option>
'      Else
<option value="$vmiValue">$vmiValue</option>
'      EndIf
'     Next
</select>
'    EndIf
</td>
'   EndIf
'  Next
</tr>
' EndSub
''<!------------------------------------------------------------------
''  メールの一覧表示
''  構文：Call viewMailIndex <システムID> <メール情報> <メールリスト> <フォルダID> <CGI引数> <カレントメールID> <チェックボックスの表示> <別Windowで詳細表示> <詳細画面のページ名> <逆順> <区切り線を非表示>
''------------------------------------------------------------------->
' Sub viewMailIndex $vmiBS $vmiMailProfile $vmiRS $vmiFID $vmiArgs $vmiBMID $vmiCheckBox $vmiNewWindow $vmiPage $vmiRev $vmiHideDivider
'  If $Env.IsMac
<input type="hidden" name="Nop" value="">
'  EndIf
'  $vmiNo = 0
'  $vmiDvCols = 7
'  If $vmiCheckBox or ( ! $vmiMailProfile.LineNumber.Hidden )
'   Inc $vmiDvCols
'  EndIf
'  If ! $vmiMailProfile.Code.Hidden
'   Inc $vmiDvCols
'  EndIf
'  If ! $vmiMailProfile.Customer.Hidden
'   Inc $vmiDvCols
'   If $vmiMailProfile.Customer.Each
'    Inc $vmiDvCols
'   EndIf
'  EndIf
'  $vmiAccountSize = $vmiMailProfile.Accounts.Count
'  If ( $vmiAccountSize > 1 ) and ( ! $vmiMailProfile.AccountView.Hidden )
'   Inc $vmiDvCols
'  EndIf
'  For Each $vmiItem in $vmiMailProfile.Items
'   If ! $vmiItem.Hidden
'    Inc $vmiDvCols
'   EndIf
'  Next
'  Set $dividers = $Command.Mail.GetDividerList $vmiBS $vmiRev
'  $RowNum = 0
'  For Each $vmiMD in $vmiRS
'   Inc $RowNum
'   $vmiMID = $vmiMD.OID
'   $vmiDBID = $vmiMD.DBID
'   $vmiType = $vmiMD.Type
'   If ! $vmiMD.Init
'    Continue
'   EndIf
'   $vmiHeadCols = 2
'   $vmiPrevCols = 1
'   $vmiCols = 1
'   Inc $vmiNo
'   If $vmiBMID = $vmiMID
'    $vmiClass = "currentRow"
'   Else
'    $vmiRemainder = $Command.Math.Modulus $RowNum 2
'    If $vmiRemainder = 0
'     $vmiClass = "evenRow"
'    Else
'     $vmiClass = "oddRow"
'    EndIf
'   EndIf
'   $vmiTS = $vmiMD.TimeStamp
'   If $vmiPage
'    $System.SetParameter localDetailLink "$Server?page=$vmiPage&wid=$WID&bs=$vmiBS&vid=$VID&mid=$vmiMID&dbid=$vmiDBID&type=$vmiType$$vmiArgs"
'   Elif $vmiFID = -3
'    $System.SetParameter localDetailLink "$Server?page=MailGarbageView&wid=$WID&bs=$vmiBS&mid=$vmiMID&dbid=$vmiDBID&type=$vmiType$$vmiArgs"
'   Else
'    $System.SetParameter localDetailLink "$Server?page=MailView&wid=$WID&bs=$vmiBS&vid=$VID&mid=$vmiMID&dbid=$vmiDBID&type=$vmiType$$vmiArgs$$vmiReplyArg"
'   EndIf
'   If ( $vmiPage Or ( $vmiFID != -3 ) ) And $vmiNewWindow
'    $localNewWindow = "target='_blank'"
'   EndIf
'' <!---------------------区切り線----------------------------->
'   If ! $vmiHideDivider and ( ( $vmiFID = -1 ) or ( $vmiFID = -4 ) or ( $vmiFID = -7 ) )
'    For Each $divider in $dividers
'     If ( ! $divider.Done ) and ( $divider.Enabled ) and ( ( $vmiRev and ( $divider.TimeStamp < $vmiTS ) ) or ( ! $vmiRev and ( $divider.TimeStamp > $vmiTS ) ) )
'      If ( $RowNum > 1 ) or ( ( ! $vmiRS.Prev ) and ( ! $vmiRS.PID ) )
'       var $localDivCols = $vmiDvCols - 2
'       var $localDividerNum = $divider.Color
<tr class="divider">
 <td class="dividerBegin dividerInner$localDividerNum" nowrap><img src="$IMG_PATH/dividerBegin$localDividerNum$.png"></td>
 <td class="dividerInner$localDividerNum" colspan="$localDivCols" nowrap>$divider.Message</td>
 <td class="dividerEnd" nowrap><img src="$IMG_PATH/dividerEnd$localDividerNum$.png"></td>
</tr>
'      EndIf
'      $divider.Done = 1
'     EndIf
'    Next
'   EndIf
<tr id="hl$vmiMID" class="$vmiClass overline">
'' <!---------------------チェック----------------------------->
'   If ( ! $VID and $vmiCheckBox ) or ( ! $vmiMailProfile.LineNumber.Hidden )
'    Inc $vmiHeadCols
<td width="1%" nowrap>
'    If ( ! $VID ) and $vmiCheckBox
<!--#include file="LibraryForm.html"-->
'     Call formCheckBox "MID" "" "" "$vmiMID"
'    EndIf
'    If ! $vmiMailProfile.LineNumber.Hidden
<span class="linenumber"><a href="$localDetailLink" $localNewWindow>\\
$vmiNo$.</a></span>
'    EndIf
</td>
'   EndIf
'   $Today = $Date
'' <!---------------------警告日時----------------------------->
'   If $vmiFID = -8
'    Inc $vmiHeadCols 2
'    Call viewWarningTime $Today $vmiMD.WarningTime "fontWarning"
'   EndIf
'' <!---------------------日時----------------------------->
'   Call viewTime $Today $vmiMD.TimeStamp "" $localDetailLink $localNewWindow
'' <!---------------------処理状況----------------------------->
'   If ( $vmiFID != -2 ) and ( $vmiFID != -3 ) and ( $vmiFID != -6 )
<td nowrap>
'    $vmiSelStatus = $vmiMD.Status
'    If $vmiType = "Sent"
'     $vmiSTColor = $MailProfile.ColorStatusSent
'     $vmiSTName = "(送信済み)"
'    Elif $vmiSelStatus = -1
'     $vmiSTColor = $MailProfile.ColorStatusWorking
'     $vmiSTName = "(処理中)"
'    Elif $vmiSelStatus = -2
'     $vmiSTColor = $MailProfile.ColorStatusFinished
'     $vmiSTName = "(処理済み)"
'    Elif $vmiSelStatus = -5
'     $vmiSTColor = $MailProfile.ColorStatusWaiting
'     $vmiSTName = "(送信待ち)"
'    Else
'     Set $vmiST = $vmiMailProfile.Status.$vmiSelStatus
'     If $vmiST
'      $vmiSTColor = $vmiST.Color
'      $vmiSTName = $vmiST.Name
'     Else
'      $vmiSTColor = $MailProfile.ColorStatusToDo
'      $vmiSTName = "(未処理)"
'     EndIf
'    EndIf
'    If $vmiSTColor
<span class="label color$vmiSTColor">\\
'    Else
<span class="label color1">\\
'    EndIf
$vmiSTName</span>\\
'    If $vmiMD.ModifyUID
'     $vmiMUID = $vmiMD.ModifyUID
'     If $Users.$vmiMUID
'      If $vmiSTColor
<span class="editor color$vmiSTColor">*</span>\\
'      Else
<span class="editor color1">*</span>\\
'      EndIf
'     EndIf
'    EndIf
</td>
'   EndIf
'' <!---------------------担当者----------------------------->
'   If $vmiFID != -1
'    Inc $vmiPrevCols
'    $vmiMUID = $vmiMD.UID
'    Set $vmiUser = $Users.$vmiMUID
'    If $vmiUser
'     $vmiUserName = $vmiUser.Name
'    Else
'     $vmiUserName = $vmiMD.UserName
'    EndIf
<td nowrap>$vmiUserName<br></td>
'   EndIf
'' <!---------------------番号----------------------------->
'   If ( ! $vmiMailProfile.Code.Hidden ) and ( $vmiFID != -2 ) and ( $vmiFID != -6 )
'    Inc $vmiPrevCols
<td align="center" nowrap>$vmiMD.Code<br></td>
'   EndIf
'' <!-------------------返信/転送-------------------------->
'   If $vmiFID != -6
'    Inc $vmiPrevCols
<td width="1%" align="right" nowrap>
'    If $vmiType = "Received"
'     If $vmiMD.ReplyTime
'      Call cmImage "reply.png" "返信"
'     Elif $vmiMD.Forward
'      Call cmImage "forward.png" "転送"
'     EndIf
'    EndIf
<br></td>
'   EndIf
'' <!-------------------添付有無--------------------------->
<td width="1%" align="right" nowrap>
'   If $vmiType = "Received"
'    If $vmiFID = -2
'     If $vmiMD.IsDraftFile
'      Call cmImage "clip.png"
'     EndIf
'    Else
'     $val = $Command.String.MakeLower $vmiMD.MIME
'     If $val = "multipart/mixed"
'      Call cmImage "clip.png"
'     EndIf
'    EndIf
'   ElIf $vmiMD.Files.Count
'     Call cmImage "clip.png"
'   EndIf
<br></td>
'' <!-------------------件名--------------------------->
<td nowrap>
'   $vmiImage = ""
'   If $vmiType = "Received"
'    If $vmiFID = -2
'     $vmiImage = "mail_write20.png"
'    Else
'     $vmiImage = "mail20.png"
'    EndIf
'   ElIf $vmiType = "Draft"
'     $vmiImage = "mail_write20.png"
'   Else
'     $vmiImage = "mail_sent20.png"
'   EndIf
'   If ( $vmiType = "Received" ) and ( $vmiFID = -2 )
'    $vmiSubject = $vmiMD.DraftSubject
'    $vmiReplyArg = "&reply=1"
'   Else
'    $vmiSubject = $vmiMD.Subject
'    $vmiReplyArg = ""
'   EndIf
'   $vmiSubjectLength = $vmiMailProfile.Subject.Length
'   If $vmiSubjectLength
'    $vmiSubject = $Command.String.StrHead $vmiSubject $vmiSubjectLength
'   EndIf
<span class="icontext">\\
'   If $vmiPage
'    Call cmLink $vmiSubject $vmiImage $localDetailLink 0 $vmiNewWindow
'   Elif $vmiFID = -3
'    Call cmLink $vmiSubject $vmiImage $localDetailLink
'   Else
'    Call cmLink $vmiSubject $vmiImage $localDetailLink 0 $vmiNewWindow
'   EndIf
</span>\\
'   If $vmiType = "Draft"
<font color="#008800">(作成中)</font>
'   EndIf
</td>
'' <!---------------------顧客----------------------------->
'   If ! $vmiMailProfile.Customer.Hidden
'    If ( $vmiFID = -2 ) or ( $vmiType != "Received" ) or $vmiMailProfile.Customer.Each
'     Inc $vmiCols
<td nowrap>
'     If $vmiFID = -2
'      If $vmiType = "Received"
'       $vmiName = $vmiMD.DraftTo
'      Else
'       $vmiName = $vmiMD.To
'      EndIf
'     Elif $vmiType = "Received"
'      $vmiName = $vmiMD.To
'     Else
'      $vmiName = ""
'      For Each $vmiTo in $vmiMD.Customers
'       If $vmiName
'        $System.SetParameter vmiName "$vmiName, "
'       EndIf
'       $System.SetParameter vmiName "$vmiName$$vmiTo.CustomerName"
'      Next
'     EndIf
'     $vmiCustomerLength = $vmiMailProfile.Customer.Length
'     If $vmiCustomerLength
'      $vmiName = $Command.String.StrHead $vmiName $vmiCustomerLength
'     EndIf
$vmiName
<br></td>
'    EndIf
'    If $vmiMailProfile.Customer.Each or ( ( $vmiType = "Received" ) and ( $vmiFID != -2 ) )
'     Inc $vmiCols
<td nowrap>
'     If $vmiMD.FromName
'      $vmiName = $vmiMD.FromName
'     Else
'      $vmiName = $vmiMD.From
'     EndIf
'     $vmiCustomerLength = $vmiMailProfile.Customer.Length
'     If $vmiCustomerLength
'      $vmiName = $Command.String.StrHead $vmiName $vmiCustomerLength
'     EndIf
$vmiName
<br></td>
'    EndIf
'   EndIf
'' <!---------------------アカウント----------------------------->
'   $vmiAccountSize = $vmiMailProfile.Accounts.Count
'   If ( $vmiAccountSize > 1 ) and ( ! $vmiMailProfile.AccountView.Hidden )
'    Inc $vmiCols
<td nowrap>
'    $vmiACID = $vmiMD.ACID
'    If $vmiMailProfile.Accounts.$vmiACID
'     Set $vmiAccount = $vmiMailProfile.Accounts.$vmiACID
'     If $vmiAccount.Alias
$vmiAccount.Alias
'     Else
$vmiAccount.Name
'     EndIf
'    EndIf
<br></td>
'   EndIf
'' <!---------------------分類----------------------------->
'   For Each $vmiItem in $vmiMailProfile.Items
'    If ! $vmiItem.Hidden
'     $vmiIID = $vmiItem.ID
'     Inc $vmiCols
<td nowrap>
'     $vmiFirst = 1
'     Set $vmiValues = $vmiMD.Items.$vmiIID
'     For Each $vmiValue in $vmiValues
'      If $vmiFirst
'       $vmiFirst = 0
'      Else
,
'      EndIf
$vmiValue
'     Next
<br></td>
'    EndIf
'   Next
</tr>
'' <!---------------------2行目----------------------------->
'   If ( $vmiFID != -2 ) and ( $vmiFID != -3 ) and ( $vmiFID != -6 )
'    $vmiNUID = $vmiMD.NextUID
'   Else
'    $vmiNUID = 0
'   EndIf
'   $vmiNextUser = $Users.$vmiNUID.Name
'   If $vmiMD.Quick or $vmiMD.Comments.Count or $vmiNextUser
<tr id="ll$vmiMID" class="$vmiClass secondRow">
'    If $vmiMD.Quick
'     Inc $vmiHeadCols -1
<td valign="top"><br></td>
<td valign="top" colspan="$vmiHeadCols">\\
'     If $vmiMD.Quick = 1
<span class="label hurry">至急</span>\\
'     Elif $vmiMD.Quick = 2
<span class="label urgent">大至急</span>\\
'     EndIf
'    Else
<td valign="top" colspan="$vmiHeadCols">\\
'    EndIf
<br></td>
'' <!---------------------作業者----------------------------->
'    If ( $vmiFID != -2 ) and ( $vmiFID != -3 ) and ( $vmiFID != -6 )
<td nowrap valign="top">
'     If $vmiNextUser
'      If $vmiSTColor
<span class="nextuser color$vmiSTColor">$vmiNextUser</span>\\
'      Else
<span class="nextuser color1">$vmiNextUser</span>\\
'      EndIf
'     EndIf
</td>
'    EndIf
'' <!---------------------コメント----------------------------->
'  $localCommentCols = $vmiPrevCols + $vmiCols
<td valign="top" colspan="$localCommentCols" class="commentTd">\\
'  If $vmiMD.Comments.Count
<div class="comment">
'    For Each $vmiComment in $vmiMD.Comments
'     $vmiData = $Command.String.Trim $vmiComment.Data
'     $vmiMultiLine = $Command.String.IsMultiLine $vmiData
'     If $vmiMultiLine
'      If $vmiComment.UID == $Login.ID
<div class="mycomment-block">
'      Else
<div class="comment-block">
'      EndIf
'      View $vmiData 1
</div>
'     Else
'      If $vmiComment.UID == $Login.ID
<span class="mycomment-inline">
'      Else
<span class="comment-inline">
'      EndIf
'      View $vmiData 1 0 1
</span>
'     EndIf
'    Next
</div>\\
'  EndIf
</td></tr>
'   EndIf
'  Next
'' <!---------------------区切り線----------------------------->
'  If ! $vmiHideDivider and ( ( $vmiFID = -1 ) or ( $vmiFID = -4 ) or ( $vmiFID = -7 ) )
'   For Each $divider in $dividers
'    If ( ! $divider.Done ) and ( $divider.Enabled )
'     $valid = 0
'     If ! $vmiRS.Next
'      $valid = 1
'     ElIf ( ( $vmiRev and ( $divider.TimeStamp < $vmiRS.Next ) ) or ( ! $vmiRev and ( $divider.TimeStamp > $vmiRS.Next ) ) )
'      $valid = 1
'     EndIf
'     If $valid
'      var $localDivCols = $vmiDvCols - 2
'      var $localDividerNum = $divider.Color
<tr class="divider">
 <td class="dividerBegin dividerInner$localDividerNum" nowrap><img src="$IMG_PATH/dividerBegin$localDividerNum$.png"></td>
 <td class="dividerInner$localDividerNum" colspan="$localDivCols" nowrap>$divider.Message</td>
 <td class="dividerEnd" nowrap><img src="$IMG_PATH/dividerEnd$localDividerNum$.png"></td>
</tr>
'      $divider.Done = 1
'     EndIf
'    EndIf
'   Next
'  EndIf
' EndSub
''
' Sub viewTime $argNowTimeStamp $argTimeStamp $argClass $argDetailLink $argNewWindow
<td nowrap>\\
'  If $argClass
<span class="mailTime $argClass">\\
'  Else
<span class="mailTime">\\
'  EndIf
<a href="$argDetailLink" $argNewWindow>\\
'    If $argTimeStamp.Year != $argNowTimeStamp.Year
$argTimeStamp.Year/\\
'    EndIf
$argTimeStamp.Month00/$argTimeStamp.Day00</a></span></td>
<td nowrap>\\
'  If $argClass
<span class="mailTime fontBold $argClass">\\
'  Else
<span class="mailTime fontBold">\\
'  EndIf
<a href="$argDetailLink" $argNewWindow>\\
$argTimeStamp.Hour00:$argTimeStamp.Minute00</a></span></td>
' EndSub
''
' Sub viewWarningTime $argNowTimeStamp $argTimeStamp $argClass
<td nowrap>\\
'  If $argClass
<span class="mailTime $argClass">\\
'  Else
<span class="mailTime">\\
'  EndIf
'    If $argTimeStamp.Year != $argNowTimeStamp.Year
$argTimeStamp.Year/\\
'    EndIf
$argTimeStamp.Month00/$argTimeStamp.Day00</span></td>
<td nowrap>\\
'  If $argClass
<span class="mailTime fontBold $argClass">\\
'  Else
<span class="mailTime fontBold">\\
'  EndIf
$argTimeStamp.Hour00:$argTimeStamp.Minute00</span></td>
' EndSub