' $System.Access Mail
''
' If $WCH
'  Set $BP = $Command.Personal.SetBackPage $WCH "CustomerHistory"
'  $BP.Args.cid = $BCID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.aid = $AID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WCV
'  Set $BP = $Command.Personal.SetBackPage $WCV "CustomerView"
'  $BP.Args.cid = $CID
'  $BP.Args.dbid = $DBID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WMC
'  Set $BP = $Command.Personal.SetBackPage $WMC "MailCustomerHistory"
'  $BP.Args.aid = $AID
'  $BP.Args.ctid = $CTID
'  $BP.Args.tdbid = $TDBID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WMS
'  Set $BP = $Command.Personal.SetBackPage $WMS "MailSearch"
'  $BP.Args.st = $ST
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' Elif $WMW
'  Set $BP = $Command.Personal.SetBackPage $WMW "MailWarningIndex"
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $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
' Elif $WMV
'  Set $BP = $Command.Personal.SetBackPage $WMV "MailView"
'  $BP.Args.BS = $BID
'  $BP.Args.mid = $BMID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.type = $BType
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
'' <!---------------------バックページ設定開始----------------------------->
' $BPage = $BP.Page
' $BParam = $BP.Param
' $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&mid=$MID"
' If $BPage = "CustomerView"
'  $CaptionBackPage = "顧客の詳細へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&vid=$VID$$BParam"
' Elif $BPage = "CustomerHistory"
'  $CaptionBackPage = "顧客の履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&vid=$VID$$BParam&CAID=$BS&COID=$MID"
' Elif ( $BPage = "MailCustomerHistory" ) and $bbs
'' BUG:57 2009/06/09 T.Umeda
'' メール詳細から別のページに遷移後戻ってきた時に$bbsの値が取得できない場合がある。
'' 取得できない場合は「メールの一覧へ」のリンクを表示する。
'  $CaptionBackPage = "メールの履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&bs=$bbs&vid=$VID$$BParam&CAID=$BS&COID=$MID"
' Elif $BPage = "MailSearch"
'  $CaptionBackPage = "メールの検索へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&bs=$BS&vid=$VID&mid=$MID$$BParam"
'  $ST = $BP.Args.st
' Elif $BPage = "MailWarningIndex"
'  $CaptionBackPage = "警告メールの一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&bs=$BS&vid=$VID&mid=$MID$$BParam"
'  $FID = -8
' Elif $BPage = "MailView"
'  $CaptionBackPage = "メールの詳細へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&vid=$VID$$BParam"
' Else
'  $CaptionBackPage = "メールの一覧へ"
'  $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&mid=$MID$$BParam"
'  $URLMailIndex = $BackURL
'  $ST = $BP.Args.st
'  $FID = $BP.Args.fid
'  $View = $BP.Args.view
' EndIf
'' <!---------------------バックページ設定終了----------------------------->
' Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
' If $System.IsPost
'  If $Mode = "Delete"
'   $Command.Mail.AccessDelete $BS
'   If $BPage = "MailCustomerHistory"
'    $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS
'   Else
'    $System.Redirect $BackURL&reset=1
'   EndIf
'   $Command.Mail.RemoveMail
'   Exit
'  EndIf
'  If $Mode = "Write"
'   $System.Redirect $Server?page=MailSend&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT
'   If $Handle
'    $Command.Mail.SetHandle $Reset
'   EndIf
'   Exit
'  EndIf
'  If $Mode = "Release"
'   $WorkSpace.AccessManage
'   $Command.Mail.ReleaseHandle
'  Elif $Mode = "Finish"
'   $Command.Mail.AccessModify $BS
'   $Command.Mail.MakeStatusFinished
'   $BP.Args.st = ""
'  Elif $Mode = "DeleteSource"
'   $Command.Mail.AccessDelete $BS
'   $Command.Mail.DeleteSource
'  Elif $Mode = "Detail"
'   If $Detail
'    $PersonalMail.HideDetail = ""
'   Else
'    $PersonalMail.HideDetail = 1
'   EndIf
'  Elif $Mode = "TreeView"
'   $PersonalMail.TreeView = $TreeView
'  Elif $Mode = "CustomerView"
'   If $CustomerView
'    $PersonalMail.HideCustomer = ""
'   Else
'    $PersonalMail.HideCustomer = 1
'   EndIf
'  Elif $Mode = "Header"
'   If $Header
'    $PersonalMail.HideHeader = ""
'   Else
'    $PersonalMail.HideHeader = 1
'   EndIf
'  Else
'   $Command.Mail.AddComment
'  EndIf
'  $System.Redirect $Server?page=MailView&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT&reply=$Reply
'  Exit
' EndIf
' Set $m = $Command.Mail.GetMail $BS $MID
' If ( ! $m ) or $m.DeleteTime
'  $Error = 22223
<!--#include file="MWError.html"-->
'  Exit
' EndIf
' $MTS = $m.TimeStamp
' $DBID = $m.DBID
' $Type = $m.Type
' If $ST
'  Set $ps = $Command.Mail.GetPersonalSearch $BS $ST
'  If $ps
'   If $FID or ( $FID = 0 )
'    $Progress = $Command.Mail.SearchIndex $BS $ST $FID $View $MTS $MID
'   Else
'    $Progress = $Command.Mail.Search $BS $ST $MTS $MID
'   EndIf
'  Else
'   $System.RemoveParameter ST
'  EndIf
' EndIf
' If ! $Progress
'  If $ST or $FID or ( $FID = 0 )
'   If $ST
'    Set $rs = $Command.Mail.GetSearchResult $BS $ST 1 $MTS $MID
'    $PID = $rs.PID
'    $NID = $rs.NID
'   Else
'    $PID = $Command.Mail.GetIndexPrevID $BS $FID $View $MTS $MID
'    $NID = $Command.Mail.GetIndexNextID $BS $FID $View $MTS $MID
'   EndIf
'   If $NID
'    Set $nm = $Command.Mail.GetMail $BS $NID
'    $NDB = $nm.DBID
'    $NType = $nm.Type
'   EndIf
'   If $PID
'    Set $pm = $Command.Mail.GetMail $BS $PID
'    $PDB = $pm.DBID
'    $PType = $pm.Type
'   EndIf
'  EndIf
'  If $m.Ref or $m.Reply.Count
'   $TV = 1
'   If $PersonalMail.TreeView
'    $TreeView = $Command.Mail.GetTreeView $WID $BS $MID "&vid=$VID&bid=$BS&bmid=$MID&bdbid=$DBID&btype=$Type&bpt=$BPT&wmv=$Login.ID"
'   EndIf
'  EndIf
'  $Command.Mail.CloseIndexDatabase $BS
'  $Command.Mail.CloseWorkDatabase $BS
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT">
' EndIf
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryTabSheet.html"-->
<!--#include file="LibraryMailView.html"-->
<!--#include file="LibraryCustomerView.html"-->
' $CaptionTitle = "メールの詳細"
' $BrowserTitle = $CaptionTitle
' If ! $Progress
'  If $Type = "Received"
'   Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID $CharSet
'  Else
'   Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
'  EndIf
'  If $m.Subject
'   $BrowserTitle = $m.Subject
'  EndIf
' EndIf
' Set $MailSystem = $WorkSpace.Mails.$BS
' $SystemName = $MailSystem.Name
' $Command.System.OnBrowse $SystemName $MID $WID
' Call cmHead $BrowserTitle
' If ! $Progress
'  Set $MailProfile = $Command.Mail.GetMailTop $BS
'  Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
<script language="JavaScript" type="text/javascript"><!--
function onWrite( handle, reset, forward )
{
  var form = document.forms['MailView'];
  if( handle )
  {
    form.Handle.value = 1;
  }
  else
  {
    form.Handle.value = "";
  }
  if( reset )
  {
    form.Reset.value = 1;
  }
  else
  {
    form.Reset.value = "";
  }
  if( forward )
  {
    form.Type.value = 'Forward';
  }
  else
  {
    form.Type.value = '$Type';
  }
  form.Mode.value='Write';
  form.submit();
}
function onRelease()
{
  if( confirm( '編集状態を強制解除します。よろしいですか？' ) )
  {
    var form = document.forms['MailView'];
    form.Mode.value='Release';
    form.submit();
  }
}
function onFinish()
{
' If $MailProfile.StatusWarning
  if( confirm( 'このメールを処理済みにします。よろしいですか？' ) )
  {
' EndIf
    var form = document.forms['MailView'];
    form.Mode.value='Finish';
    form.submit();
' If $MailProfile.StatusWarning
  }
' EndIf
}
function onDelete()
{
' If $MailProfile.DeleteWarning
  if( confirm( 'このメールを削除します。よろしいですか？' ) )
  {
' EndIf
    var form = document.forms['MailView'];
    form.Mode.value='Delete';
    form.submit();
' If $MailProfile.DeleteWarning
  }
' EndIf
}
function onDeleteFile()
{
' If $MailProfile.DeleteWarning
  if( confirm( '全ての添付ファイルを削除します。よろしいですか？\n\\
添付ファイルを削除すると、次の操作ができなくなります。\n\\
\t* メールソースの表示\\
 ' ) )
  {
' EndIf
    var form = document.forms['MailView'];
    form.Mode.value='DeleteSource';
    form.submit();
' If $MailProfile.DeleteWarning
  }
' EndIf
}
function onClear()
{
  location.href='$Server?page=MailDeleteReply&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT';
}
function onNotify()
{
  location.href='$Server?page=MailNotify&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT';
}
function onChangeCustomer()
{
  window.open( '$Server?page=MailSelectCustomer&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type', 'ChangeCustomer', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
function onMove()
{
  location.href='$Server?page=MailMove&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT';
}
function onModifyThread()
{
  window.open( '$Server?page=MailRefSelect&wid=$WID&bs=$BS&rmid=$MID', 'ModifyThread', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
function onPrint()
{
  window.open( '$Server?page=MailPrint&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type', 'PrintMail', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
function onSelectMenu( selmenu )
{
  var form = document.forms['MailView'];
  var i = selmenu.selectedIndex;
  var cmd = selmenu.options[i].value;
  if( cmd == 'Delete' )
  {
    onDelete();
  }
  else if( cmd == 'DeleteFile' )
  {
    onDeleteFile();
  }
  else if( cmd == 'Clear' )
  {
    onClear();
  }
  else if( cmd == 'Notify' )
  {
    onNotify();
  }
  else if( cmd == 'Customer' )
  {
    onChangeCustomer();
  }
  else if( cmd == 'Move' )
  {
    onMove();
  }
  else if( cmd == 'Thread' )
  {
    onModifyThread();
  }
  else if( cmd == 'Print' )
  {
    onPrint();
  }
}
function onViewChange( form, value )
{
  form.Mode.value = value;
  form.submit();
}
function onAddPerson( url )
{
  window.open( url, 'AddPerson', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
jQuery(function($) {
    var form = document.forms['MailView'];
    if (form && form.elements.Refresh.value == '1') {
        postComment(form, '$Server?page=AjaxComments&app=Mail', null);
    }
});
//-->
</script>
' EndIf
</head>
<body>
' Call cmHeader $CaptionTitle $URLMailIndex $SystemName
''
' If $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
''
<form name="MailView" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
' $System.CloseDatabase "mw"
' $AccessModify = $MailSystem.IsAccessModify
' $AccessDelete = $Command.Mail.IsAccessDelete $BS $MID $Type "" $DBID
' $AccessSend = $MailSystem.IsAccessSend
<input type="hidden" name="Page" value="MailView">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="ST" value="$ST">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Handle" value="">
<input type="hidden" name="Reset" value="">
<input type="hidden" name="Reply" value="$Reply">
<input type="hidden" name="RMID" value="">
<input type="hidden" name="Refresh" value="">
' Sub commonColumn
'  Init $menuNum = 1
'  Call operationMail $menuNum
'  Inc $menuNum
' EndSub
''
' Sub mainColumn
'  Call operationMailInfomation
'  Call mailInfomation
'  Call mailMain
' EndSub
''
' Call layout_view "" "" 0 mainColumn commonColumn commonColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL $CaptionBackPage
' Else
'  Call cmFooter $BackURL $CaptionBackPage
' EndIf
</body>
</html>
''
' Sub operationMail $argMenuNum
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td nowrap>
<table class="menuColumn"><tr>
' $UID = $m.ModifyUID
' Set $u = $Users.$UID
' If $u
'  $t = $m.MTime
<td nowrap><span class="mailview-editing"><font color="#008800">$u.Nameさんが編集中です ($t.Month/$t.Day $t.Hour:$t.Minute00)</font></span></td>
'  If $Login.ID = $UID
<td nowrap>
'   Call cmLinkButton "編集を再開する" "btn_write20.png" "" 0 0 0 "" "onWrite( 0, 0, 0 );"
</td>
'  EndIf
'  If $WorkSpace.IsAccessManage
<td nowrap>
'   Call cmLinkButton "解除する" "btn_stop20.png" "" 0 0 0 "" "onRelease();"
</td>
'  EndIf
' Else
'  If ( $Type != "Sent" ) and $AccessModify
'   If $Type = "Draft"
'    $CaptionOperation = "内容を編集する"
'    $Image = "btn_write20.png"
'   Elif $m.Draft
'    $CaptionOperation = "返信内容を編集する"
'    $Image = "btn_write20.png"
'   Else
'    $CaptionOperation = "返信する"
'    $Image = "btn_reply20.png"
'   EndIf
'   If $m.Status != -2
<td nowrap>
'    Call cmLinkButton "$CaptionOperation" $Image "" 0 0 0 "" "onWrite( 1, 0, 0 );"
</td>
'    If $Type = "Received"
<td nowrap>
'     Call cmLinkButton "処理済みにする" "btn_finish20.png" "" 0 0 0 "" "onFinish();"
</td>
'    EndIf
'   EndIf
'  EndIf
'  If $Type = "Received"
'   If ( $m.Status = -2 ) and $AccessModify
<td nowrap>
'    Call cmLinkButton "再返信する" "btn_replyagain20.png" "" 0 0 0 "" "onWrite( 1, 1, 0 );"
</td>
'   EndIf
'   If $AccessModify and $AccessSend
<td nowrap>
'    Call cmLinkButton "転送する" "btn_forward20.png" "" 0 0 0 "" "onWrite( 0, 0, 1 );"
</td>
'   EndIf
'  Elif ( $Type = "Sent" ) and $AccessModify
<td nowrap>
'    Call cmLinkButton "再送信する" "btn_resend20.png" "" 0 0 0 "" "onWrite( 0, 0, 0 );"
</td>
'  EndIf
' EndIf
<td nowrap>
'  $System.SetParameter submenuID "optionMenu$argMenuNum"
'  $System.SetParameter buttonID "button-$submenuID"
<script>
$(function(){
    $(document).click(function(event){
        $('#$submenuID').hide();
    });
    $('#$buttonID').click(function(event){
        $('#$submenuID').toggle();
        event.stopPropagation();
    });
});
</script>
'  Call cmLinkButton "その他の操作" "btn_operation13.png" "javascript:void(0);" 0 0 1 "" "" "" "$buttonID"
<div id="$submenuID" class="submenu" style="display:none;">
' If $Type = "Received"
'  $Source = $Command.Mail.IsMailSource $BS $MID $DBID
' EndIf
' If ( ! $u ) and $AccessDelete
'  Call MenuItem "削除する" "javascript:onDelete();" "delete20.png" "Delete"
'  $val = $Command.String.MakeLower $m.MIME
'  If ( $Source and ( $val = "multipart/mixed" ) ) or ( ( $Type = "Sent" ) and $m.Files.Count and ( ! $m.DeleteFiles ) )
'   Call MenuItem "添付ファイルの削除" "javascript:onDeleteFile();" "delete20.png" "DeleteFile"
'  EndIf
' EndIf
' If ( $Type = "Received" ) and $m.Draft and ( ! $u ) and $AccessModify
'  Call MenuItem "編集中の内容を削除する" "javascript:onClear();" "delete20.png" "Clear"
' EndIf
' If ( ! $VID ) and ( ! $mw.DisableNotify )
'  Call MenuItem "他のユーザーに通知する" "javascript:onNotify();" "notice20.png" "Notify"
' EndIf
' If $AccessModify and ( ! $WorkSpace.Customer.Disable )
'  If ( $Type = "Received" ) or $m.Customers.Count
'   Call MenuItem "顧客を変更する" "javascript:onChangeCustomer();" "person20.png" "Customer"
'  EndIf
' EndIf
' If $AccessModify and $Source and ( $WorkSpace.Mails.Count > 1 )
'  Call MenuItem "メールを移動する" "javascript:onMove();" "move20.png" "Move"
' EndIf
' If $AccessModify and ( $Type != "Draft" )
'  Call MenuItem "スレッドを修正する" "javascript:onModifyThread();" "thread20.png" "Thread"
' EndIf
' Call MenuItem "印刷用画面" "javascript:onPrint();" "print20.png" "Print"
 </div>
</td></tr></table>
</td>
' Call mailviewNavigation
</tr></table>
' EndSub
''
'' <!-- その他の操作 -->
' Sub MenuItem $miCaption $miRef $miImage $miValue
 <div class="submenu-item">\\
'  Call cmLink $miCaption $miImage $miRef 0 0 "" "" "" "submenu-item-label"
</div>
' EndSub
''
' Sub operationMailInfomation
<div class="active">
<table border="0" cellspacing="0" cellpadding="2">
<tr>
<td nowrap><span class="mailview-mailinfo-label">メール情報</span></td>
' If $AccessModify
<td nowrap>\\
'  Call cmLinkButton "変更する" "btn_edit13.png" "$Server?page=MailPropertySet&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT"
</td>
' EndIf
<td valign="middle" nowrap>\\
<div class="toggleview">\\
<span class="toggleview-desc">表示：</span>\\
' If $PersonalMail.HideDetail
'  $Detail = 0
' Else
'  $Detail = 1
' EndIf
<span class="toggleview-detail">\\
' Call formCheckBox "Detail" "メール情報詳細" $Detail 1 "Detail" "onViewChange( this.form, 'Detail' );"
</span>\\
' Sub SetCustomerView $v $mc
'  If $mc.CID
'   $v.OID = $mc.CID
'   $v.DBID = $mc.CDBID
'   $CV = 1
'  Else
'   $v.OID = $mc.CTID
'   $v.DBID = $mc.TDBID
'   $v.Type = "Temp"
'   $v.Init = 1
'  EndIf
' EndSub
' $ViewIndex.WID = $WID
' $ViewIndex.InitCompany = 1
' If $Type = "Received"
'  Set $v = $ViewIndex.Add
'  $v.Key = $m.From
'  Call SetCustomerView $v $m
' Else
'  For Each $mc in $m.Customers
'   Set $v = $ViewIndex.Add
'   $v.MCID = $mc.ID
'   $v.Key = $System.GetAddressString $mc.Mail $mc.Name
'   Call SetCustomerView $v $mc
'  Next
' EndIf
' If $MailProfile.CustomerView and $CV and ( ! $WorkSpace.Customer.Disable )
'  If $PersonalMail.HideCustomer
'   $CustomerView = 0
'  Else
'   $CustomerView = 1
'  EndIf
<span class="toggleview-customer">\\
'  Call formCheckBox "CustomerView" "顧客詳細" $CustomerView 1 "CustomerView" "onViewChange( this.form, 'CustomerView' );"
</span>\\
' EndIf
' If $TV
<span class="toggleview-thread">\\
'  Call formCheckBox "TreeView" "スレッド" $PersonalMail.TreeView 1 "TreeView" "onViewChange( this.form, 'TreeView' );"
</span>
'  $TV = $PersonalMail.TreeView
' EndIf
' If $PersonalMail.HideHeader
'  $Header = 0
' Else
'  $Header = 1
' EndIf
<span class="toggleview-mailheader">\\
' Call formCheckBox "Header" "メールヘッダ" $Header 1 "Header" "onViewChange( this.form, 'Header' );"
</span></div>
</td></tr></table>
</div>
' EndSub
''
' Sub mailInfomation
<table class="dataView" width="100%">
' Call mvProperty $MailProfile $m $BS $MID $DBID $Type $PersonalMail.HideDetail "&bpt=$BPT"
'' <!-- 顧客情報 -->
' $Command.Mail.CloseDatabase $BS $Type $DBID
<tr><th nowrap>顧客情報</th><td colspan="5">\\
' $AccessCreate = $WorkSpace.Customer.IsAccessCreate
' $FC = 1
' For Each $v in $ViewIndex
'  If $FC
'   $FC = 0
'  Else
<tr><th nowrap>顧客情報</th><td colspan="5">\\
'  EndIf
'  If ( ! $v.Type ) and $v.Init
<span class="mailview-customer-item">\\
'   If $v.Company
'    Call cmImage "company20.png"
$v.Company.Name\\
'   EndIf
'   If $WorkSpace.Customer.Disable
'    Call cmImage "person20.png"
$v.Name\\
'   Else
'    Call cmLink $v.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$v.OID&dbid=$v.DBID&bid=$BS&bmid=$MID&bdbid=$DBID&btype=$Type&wmv=$Login.ID&bpt=$BPT&wmv=$Login.ID"
'   EndIf
</span>\\
'   If $MailProfile.ViewHistory
'    $HC = $Command.Customer.GetHistoryCount $WID 0 $v.OID $v.DBID
'    $System.SetParameter CaptionHistory "履歴($HC 件)"
'   Else
'    $CaptionHistory = "履歴を見る"
'   EndIf
<span class="mailview-customer-item">\\
'   Call cmLink $CaptionHistory "history20.png" "$Server?page=CustomerHistory&wid=$WID&vid=$VID&cid=$v.OID&bid=$BS&bmid=$MID&bdbid=$DBID&btype=$Type&CAID=$BS&COID=$MID&bpt=$BPT&wmv=$Login.ID"
</span>\\
<br></td></tr>
'   If ( ! $PersonalMail.HideCustomer ) and $MailProfile.CustomerView and ( ! $WorkSpace.Customer.Disable )
'    If $v.Company
'     Call viewData $v.Company $MailProfile.Company 5
'    EndIf
'    Call viewData $v $MailProfile.Person 5
'   EndIf
'  Else
<span class="mailview-customer-item"><font color="#888888">$v.Key</font></span>
'   If $AccessModify and $AccessCreate
<span class="mailview-customer-item">\\
'    Call cmLink "顧客を登録する" "write20.png" "javascript:void(0);" 0 0 "" "" "onAddPerson( '$Server?page=CustomerSetAddPerson&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type.JSEscape&tid=$v.MCID' );"
</span>\\
'   EndIf
'   If $v.OID and ( $v.Type = "Temp" )
'    If $MailProfile.ViewHistory
'     $HC = $Command.Customer.GetTempHistoryCount $WID $BS $v.OID $v.DBID
'     $System.SetParameter CaptionHistory "履歴($HC 件)"
'    Else
'     $CaptionHistory = "履歴を見る"
'    EndIf
<span class="mailview-customer-item">\\
'    Call cmLink $CaptionHistory "history20.png" "$Server?page=MailCustomerHistory&wid=$WID&vid=$VID&bs=$BS&ctid=$v.OID&tdbid=$v.DBID&bmid=$MID&bdbid=$DBID&btype=$Type&CAID=$BS&COID=$MID&bpt=$BPT&wmv=$Login.ID"
</span>\\
'   EndIf
<br></td></tr>
'  EndIf
' Next
' If $FC
<br></td></tr>
' EndIf
''
' $Command.Customer.CloseDatabase
'' <!-- スレッド -->
' If $TV
<tr><th nowrap>スレッド</th><td colspan="5">\\
<table border="0" cellspacing="0" cellpadding="2">$_TreeView</table></td></tr>
' EndIf
</table><br>
<div class="shadowBottom"></div>
' EndSub
''
' Sub mailMain
'  If $Type = "Received"
'   Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID $CharSet
'  Else
'   Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
'  EndIf
''
' If ( $Type = "Received" ) and $m.Draft
'  Call tsBegin
'  If $Reply
'   Call tsTab "メール本文" "" "$Server?page=MailView&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT"
'   Call tsTab "編集中の返信内容" "" "$Server?page=MailView&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT&reply=1" 1
'  Else
'   Call tsTab "メール本文" "" "$Server?page=MailView&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT" 1
'   Call tsTab "編集中の返信内容" "" "$Server?page=MailView&wid=$WID&bs=$BS&vid=$VID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT&reply=1"
'  EndIf
'  Call tsEnd $Page
' EndIf
''
'  Call mailContent $m $Header $Reply
' EndSub
''
'' <!-- 前後移動ナビ -->
' Sub mailviewNavigation
' If $ST or $FID or ( $FID = 0 )
'  If $PID
'   var $localBackDisable = 0
'  Else
'   var $localBackDisable = 1
'  EndIf
'  $System.SetParameter NavigationBack "$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&mid=$PID&dbid=$PDB&type=$PType&bpt=$BPT"
'  If ( $FID = -2 ) and ( $PType = "Received" )
'   $System.SetParameter NavigationBack "$NavigationBack$&reply=1"
'  EndIf
'  If $NID
'   var $localNextDisable = 0
'  Else
'   var $localNextDisable = 1
'  EndIf
'  $System.SetParameter NavigationNext "$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&mid=$NID&dbid=$NDB&type=$NType&bpt=$BPT"
'  If ( $FID = -2 ) and ( $NType = "Received" )
'   $System.SetParameter NavigationNext "$NavigationNext$&reply=1"
'  EndIf
<td style="height:30px;"><br></td>
<td align="right" class="naviColumn" nowrap>\\
<div class="navigation">\\
'  Call cmLinkButton "" "arrow_back_single.png" "$NavigationBack" $localBackDisable 0 0 "前へ"
'  Call cmLinkButton "" "arrow_next_single.png" "$NavigationNext" $localNextDisable 0 0 "次へ"
</div></td>
' EndIf
' EndSub