| Server IP : 133.18.244.157 / Your IP : 216.73.217.20 Web Server : Apache System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : main2 ( 81069) PHP Version : 5.6.34 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /install/page/ |
Upload File : |
' $System.Access Mail
''
' If $System.IsPost
' If $Mode = "Restore"
' $Command.Mail.AccessModify $BS
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View
' $Command.Mail.RestoreMail
' Elif $Mode = "Receive"
' $Left = $Command.Mail.ReceiveMail
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=-4&received=1&left=$Left
' Elif $Mode = "Send"
' $Command.Mail.AccessSend $BS
' $System.SetParameter BURL "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View"
' $BackPage = "メールの一覧へ"
' $Left = $Command.Mail.SendEachMails
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View&sent=1&left=$Left
' Elif $Mode = "Remove"
' $Command.Mail.AccessDelete $BS
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View
' $Command.Mail.RemoveSelectedMail
' Elif $Mode = "Delete"
' $Command.Mail.AccessDelete $BS
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View
' $Command.Mail.DeleteSelectedMail
' Elif $Mode = "Setting"
' $Command.Mail.AccessModify $BS
' $System.Redirect $Server?page=MailPropertySetEach&wid=$WID&bs=$BS&fid=$FID&view=$View&sts=$STS
' $Command.Mail.SetCheckedMails
' Elif $Mode = "Move"
' $Command.Mail.AccessModify $BS
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View
' $Command.Mail.MoveMailToFolder
' Else
' $STS = $Command.Mail.SetPersonalSelected
' $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&STS=$STS&fid=$FID&view=$View&SetView=$SetView
' EndIf
' Exit
' EndIf
' If $System.IsCloud
' If ! $System.ProductID
' $System.InitProductID
' If ! $mw.URL
' $Command.System.SetURL
' EndIf
' EndIf
' EndIf
' If $Reset
' $ST = ""
' EndIf
' If $OpenFID
' $Command.Mail.OpenFolder $BS $OpenFID
' Elif $CloseFID
' $Command.Mail.CloseFolder $BS $CloseFID
' EndIf
' $System.SetParameter FirstFID "FirstFID$BS"
' Init $FID = $Login.$FirstFID
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If $MailProfile.Folder.Disable
' If $FID = -1
'' 担当メールの場合の初期値を設定
' $FID = -4
' $UID = $Login.ID
' $STS = $Command.Mail.SetPersonalSelected
' ElIf $FID = -7
'' 確認メールの場合の初期値を設定
' $FID = -4
' $System.SetParameter StatusID "n$Login.ID"
' $Status = $StatusID
' $STS = $Command.Mail.SetPersonalSelected
' EndIf
' EndIf
' Set $MailSystem = $WorkSpace.Mails.$BS
'' BUG:58 2009/06/10 T.Umeda
'' 編集権限がない場合は担当メール・確認メール表示ができなくなる。
' If ! $MailSystem.IsAccessModify
' If ( $FID = -1 ) or ( $FID = -7 )
' $FID = -4
' EndIf
' EndIf
' If ( ! $FID ) and ( $FID != 0 )
' $FID = -4
' Elif $FID >= 0
' Set $Folder = $Command.Mail.GetFolder $BS $FID
' If ( ! $Folder ) or $MailProfile.Folder.Disable
' $FID = -4
' EndIf
' EndIf
' If $FID = -4
' $System.SetParameter FirstAID "FirstAID$BS"
' $ACID = $Login.$FirstAID
' If $ACID and $MailProfile.Accounts.$ACID and ( ! $STS ) and ( ! $MailProfile.AccountView.Hidden ) and ( $MailProfile.Accounts.Count > 1 )
' $STS = $Command.Mail.SetPersonalSelected
' EndIf
' EndIf
' If $STS
' Set $Selected = $Command.Mail.GetPersonalSelected $BS
' If $STS != $Selected.TimeStamp
' $STS =""
' Else
' Set $Search = $Command.Mail.GetPersonalSearch $BS $ST
' If ! $Search
' $ST = $Command.Mail.MakeSearchSelected $BS
' EndIf
' EndIf
' EndIf
' If $ST
' Set $ps = $Command.Mail.GetPersonalSearch $BS $ST
' If $ps
' $Progress = $Command.Mail.SearchIndex $BS $ST $FID $View $Head $HID
' Set $MWIndex = $Command.Mail.GetWorkIndexTop $BS
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $Selected = $Command.Mail.GetPersonalSelected $BS
' Else
' $ST = ""
' EndIf
' EndIf
' $LID = $Login.ID
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryMailIndex.html"-->
' Call cmHtmlHead
' If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&ST=$ST&fid=$FID&view=$View&head=$Head&hid=$HID&sts=$STS">
' EndIf
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = $MailSystem.Name
' Call cmHead $CaptionTitle
' $IsAdministrator = 0
' If $System.IsLoginAdmin
' $IsAdministrator = 1
' EndIf
' $Available = $Command.Mail.IsAvailableSystem $BS
' $HideSetup = $Workspace.Mails.$BS.HideSetup
' If ! $Available And $IsAdministrator And ! $HideSetup
' Set $Session.SetupAccount = null
<script>
mw.setupaccount = {};
mw.setupaccount.WID = $WID;
mw.setupaccount.BS = $BS;
</script>
' Call cmLoadJavaScript "component/setup_account"
' EndIf
</head>
<body>
' Call cmHeader $CaptionTitle
''
' If $Progress
' Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
' EndSub
' Call layout_msg "" "" 0 progressColumn
' Call cmFooter
</body>
</html>
' Exit
' EndIf
''
' Set $MIndex = $Command.Mail.GetMailIndex $BS
' Set $MWIndex = $Command.Mail.GetWorkIndexTop $BS
' Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
' If $OpenFolder
' $PersonalMail.HideFolder = ""
' Elif $CloseFolder
' $PersonalMail.HideFolder = 1
' EndIf
''
' If ( $FID = -1 ) or ( $FID = -7 )
' If $BFID or ( $BFID = 0 )
' $PersonalMail.BFID = $BFID
' Else
' $BFID = $PersonalMail.BFID
' EndIf
' EndIf
' If $SetView = $Login.ID
' $PersonalMail.View = $View
' Elif ( $FID > 0 ) or ( ! $FID )
' Init $View = $PersonalMail.View
' EndIf
''
' If ! $VID
'' for Notification
' Set $Notifications = $Session.Notification
' If ! $Notifications
' Set $Notifications = $System.CreateObject DWordMap Session
' Set $Session.Notification = $Notifications
' EndIf
' Set $Notification = $Notifications.$BS
' If ! $Notification
' Set $Notification = $System.CreateObject Object Session
' $Notifications.Put $BS $Notification
' EndIf
' If $FID = -1
' $UnreadAssigned = $MWIndex.Users.$LID.UnreadAssigned
' $Notification.Assigned = $UnreadAssigned
' ElIf $FID = -7
' $UnreadToDos = $MWIndex.Users.$LID.UnreadToDos
' $Notification.ToDos = $UnreadToDos
' EndIf
' EndIf
''
'' <!--------------------- 一覧 ----------------------------->
<script language="JavaScript" type="text/javascript">
<!--
' If $FID = -2
window.onload = function()
{
CheckAll( document.forms.MailIndex );
}
' EndIf
function IsChecked( form )
{
var e = form.elements;
var l = e.length;
for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "MID" && e[i].checked ) { return true; } }
alert( 'メールをチェックしてください。' );
return false;
}
function onReceive( form )
{
form.Mode.value = 'Receive';
form.submit();
}
function onSetting( form )
{
if( IsChecked( form ) )
{
form.Mode.value = 'Setting';
form.submit();
}
return false;
}
function onRemove( form )
{
if( IsChecked( form ) )
{
' If $MailProfile.DeleteWarning
if( confirm( 'チェックしたメールを全て削除します。よろしいですか？' ) )
{
form.Mode.value = 'Remove';
form.submit();
}
' Else
form.Mode.value = 'Remove';
form.submit();
' EndIf
}
return false;
}
function onMove( form, val )
{
if( IsChecked( form ) )
{
form.Mode.value = 'Move';
form.SFID.value = val;
form.submit();
}
return false;
}
function onSend( form )
{
if( IsChecked( form ) )
{
if( confirm( 'チェックしたメールを送信します。よろしいですか？' ) )
{
form.Mode.value = 'Send';
form.submit();
}
}
return false;
}
function onRestore( form )
{
if( IsChecked( form ) )
{
form.Mode.value = 'Restore';
form.submit();
}
return false;
}
function onDelete( form )
{
if( IsChecked( form ) )
{
if( confirm( 'チェックしたメールを完全に削除します。\n完全に削除したメールは復旧できませんが、よろしいですか？' ) )
{
form.Mode.value = 'Delete';
form.submit();
}
}
return false;
}
//-->
</script>
' If $MailProfile.Folder.Disable
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn "" tabColumn
' ElIf $PersonalMail.HideFolder
' Call layout_list "" "90%" 0 mainColumn "displayNone" "10%" 1 sideColumn commonColumn
' Else
' Call layout_list "" "90%" 0 mainColumn "" "10%" 1 sideColumn commonColumn
' EndIf
''
' If $VID
' Call cmChildFooter
' Else
' If $PersonalMail.HideFolder and ( ( $FID = -1 ) or ($FID = -7 ) )
' Call SetFolderName $BFID "BackPage"
' EndIf
' If $BackPage
' Call cmFooter "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=$BFID&view=$View" "$BackPageの一覧へ"
' Else
' Call cmFooter
' EndIf
' EndIf
</body>
</html>
''
' Sub SetFolderName $argFID $argReturn
' If $argFID = 0
' $System.SetParameter $argReturn $MailProfile.Folder.Default.Name
' Elif $argFID = -1
' $System.SetParameter $argReturn "担当メール"
' Elif $argFID = -2
' $System.SetParameter $argReturn "送信待ちメール"
' Elif $argFID = -3
' $System.SetParameter $argReturn "ごみ箱"
' Elif $argFID = -4
' $System.SetParameter $argReturn "処理メール"
' Elif $argFID = -5
' $System.SetParameter $argReturn "受信メール"
' Elif $argFID = -6
' $System.SetParameter $argReturn "送信メール"
' Elif $argFID = -7
' $System.SetParameter $argReturn "確認メール"
' Elif $argFID
' $System.SetParameter $argReturn $MailProfile.Folder.FolderSet.$argFID.Name
' EndIf
' EndSub
''
'' <!---------------------チェックしたメールへの操作を表示----------------------------->
' Sub captionChecked $argPos
' If ! $captionSet
<span class="pointing">\\
' If $argPos = "Head"
' Call cmImage pointing_t.png
' Else
' Call cmImage pointing_b.png
' EndIf
</span>\\
' $captionSet = 1
' EndIf
' EndSub
''
' Sub operation $argPos
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr class="active">
' Call operationCheckedInner $argPos
' Call showBackNavigation
' Call showNavigation
</tr>
</table>
' EndSub
''
' Sub showNavigation
' Call Navigation $ViewIndex "&bs=$BS&fid=$FID&view=$View&sts=$STS&st=$ST" $Rows
' EndSub
''
' Sub showBackNavigation
' If $MailSystem.StorageCount and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<td width="1%" nowrap>\\
' Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
</td>
<td width="1%" nowrap>\\
' Call mailStorageNavigation $WID $BS ""
</td>
' EndIf
' EndSub
''
' Sub operationCheckedInner $argPos
' If $VID
' Exit
' EndIf
<td width="1%" nowrap>\\
<div>
' $captionSet = 0
' If $FID = -3
' If $MailSystem.IsAccessModify
' Call captionChecked $argPos
' Call cmButton "復旧する" "onRestore( this.form );" "btn_restore13.png"
' EndIf
' If $MailSystem.IsAccessDelete
' Call captionChecked $argPos
' Call cmButton "完全に削除する" "onDelete( this.form );" "btn_delete13.png"
' EndIf
' Elif ( $MailProfile.Folder.Disable and ( $Selected.Status = -5 ) ) or ( $FID = -2 )
' If $MailSystem.IsAccessSend
' Call captionChecked $argPos
' Call cmButton "一括送信する" "onSend( this.form );" "btn_mail13.png"
' EndIf
' Else
' If $MailSystem.IsAccessDelete
' Call captionChecked $argPos
' Call cmButton "削除する" "onRemove( this.form );" "btn_delete13.png"
' EndIf
' If $MailSystem.IsAccessModify
' Call captionChecked $argPos
' Call cmButton "一括設定する" "onSetting( this.form );" "btn_setting13.png"
' If $FID >= 0
' $FolderOptions = $Command.Mail.GetFolderOptions $BS $FID 1
<span class="icontext">\\
' Call cmImage "folder20.png"
<select name="SF$argPos">$_FolderOptions</select>へ\\
' Call cmButton "移動する" "var i = SF$argPos$.selectedIndex; onMove( this.form, SF$argPos$.options[i].value );" "btn_move13.png"
</span>\\
' EndIf
' EndIf
' EndIf
</div></td>
' EndSub
''
' Sub optionView $View $ViewValue $CaptionView
<option value="$ViewValue"\\
' If $View = $ViewValue
style="background-color:#ccffcc" Selected\\
' EndIf
>$CaptionView</option>
' EndSub
''
' Sub tabColumn
' If ! $MailProfile.Folder.Disable
' Exit
' EndIf
<!--#include file="LibraryTabSheet.html"-->
' Call tsBegin
' Call ViewProcessMailTab
' Call ViewReceiveMailTab
' Call ViewSentMailTab
' Call ViewTrashTab
' Call tsEnd $Page
''
' Sub ViewProcessMailTab
' var $localActive = 0
' If $FID = -4
' $localActive = 1
' EndIf
' var $localCount = $MWIndex.Inbox.Count
' Init $localCount = 0
' Call tsTab "処理メール" "mail_write20.png" "$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&fid=-4" $localActive "" "" $localCount
' EndSub
' Sub ViewReceiveMailTab
' var $localActive = 0
' If $FID = -5
' $localActive = 1
' EndIf
' Call tsTab "受信メール" "mail20.png" "$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&fid=-5" $localActive
' EndSub
' Sub ViewSentMailTab
' var $localActive = 0
' If $FID = -6
' $localActive = 1
' EndIf
' Call tsTab "送信メール" "mail_sent20.png" "$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&fid=-6" $localActive
' EndSub
' Sub ViewTrashTab
' If $VID
' Exit
' EndIf
' var $localActive = 0
' If $FID = -3
' $localActive = 1
' EndIf
' var $localCount = $MIndex.Garbages.Count
' Init $localCount = 0
' Call tsTab "ごみ箱" "trash20.png" "$Server?page=$Page&wid=$WID&bs=$BS&vid=$VID&fid=-3" $localActive "" "" $localCount
' EndSub
' EndSub
''
' Sub folderFunction
' If $MailProfile.Folder.Disable
' Exit
' EndIf
' If $folderfunc
' Exit
' EndIf
' $folderfunc = 1
<script>
<!--
jQuery(function($) {
var isFolderPaneVisible = null;
var ajaxRequest = null;
var updateMessageArea = function(isVisible) {
isFolderPaneVisible = isVisible;
if (ajaxRequest) {
return;
}
var done = function() {
ajaxRequest = null;
if (isFolderPaneVisible != isVisible)
{
updateMessageArea(isFolderPaneVisible);
}
};
ajaxRequest = $.post(mw.SERVER, {
CSRFTicket: encodeURIComponent(mw.FORM_KEY),
page: 'AjaxSetFolderState',
wid: '$WID',
bs: '$BS',
vid: '$VID',
fid: '$FID',
view: '$View',
sts: '$STS',
st: '$ST',
open: (isVisible ? 1 : 0)
}).then(function(responseText, textStatus, xhr) {
if (!mw.isErrorResponse(xhr)) {
'' //TODO：めちゃくちゃ乱暴なので直すべき
'' //フォルダ開閉に合わせてナビゲーションを再配置させたい
'' //@see LibraryNavigation.html
$(window).trigger('resize');
if(responseText)
{
$('#message-wrapper').empty().append(responseText);
}
}
done();
}, done);
};
$('#openFolder,#closeFolder').click(function() {
var side = $('#sideColumn');
var isVisible = side.is(':visible');
side.toggle(!isVisible);
$('#message-wrapper > div.notice-for-hidden-folder-pane').toggle(isVisible);
$('#openFolder').toggle(isVisible);
$('#closeFolder').toggle(!isVisible);
updateMessageArea(!isVisible);
});
});
//-->
</script>
' If $PersonalMail.HideFolder
' $OpenFolder = ""
' $CloseFolder = " style='display:none;'"
' Else
' $OpenFolder = " style='display:none;'"
' $CloseFolder = ""
' EndIf
<span class="folder-function">\\
<span id="openFolder"$_OpenFolder>\\
' Call cmImage "folder_on.png" "フォルダを開く"
</span>\\
<span id="closeFolder"$_CloseFolder>\\
' Call cmImage "folder_off.png" "フォルダを閉じる"
</span>\\
</span>\\
</span>\\
' EndSub
''
' Sub mailNavigation
' If $mailnavi
' Exit
' EndIf
' $mailnavi = 1
' $Rows = $MailProfile.Rows
' Init $Rows = 50
' If $ST
' Set $rs = $Command.Mail.GetSearchResult $BS $ST $Rows $Head $HID
' Else
' Set $Mails = $Command.Mail.GetIndexMails $BS $FID $View
' If $Selected.Reverse
' $Mails.Reverse = 0
' EndIf
' Set $rs = $Mails.RowSet
' $rs.Rows = $Rows
' If $Head
' $rs.Head = $Head
' $rs.HID = $HID
' EndIf
' EndIf
' $ViewIndex.WID = $WID
' For Each $m in $rs
' Set $v = $ViewIndex.Add
' $v.AID = $BS
' If $ST
' $v.OID = $m.OID
' Elif ( $FID = -3 ) or ( $FID = -5 ) or ( $FID = -6 )
' $v.OID = $m.ID
' Else
' $v.OID = $m.MID
' EndIf
' $v.DBID = $m.DBID
' $v.Type = $m.Type
' Next
' $ViewIndex.Prev = $rs.Prev
' $ViewIndex.PID = $rs.PID
' $ViewIndex.Next = $rs.Next
' $ViewIndex.NID = $rs.NID
' $Command.Mail.CloseIndexDatabase $BS
' $Command.Mail.CloseWorkDatabase $BS
' EndSub
''
' Sub sideColumn
<table class="category">
<tr><td><br></td></tr>
<tr><td nowrap>\\
' If $FID = -4
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmLink "処理メール" "mail_write20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&fid=-4" "" "" "" "" "" "icontext"
' $Count = $MWIndex.Inbox.Count
' Init $Count = 0
' If $Count
<span class="label subtext">$Count</span>\\
' EndIf
</div></td></tr>
' If ! $VID
' If $MailSystem.IsAccessModify
<tr><td nowrap>\\
' If $FID = -1
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "担当メール" "mymail20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-1" "" "" "" "" "" "icontext"
' $Count = $MWIndex.Users.$LID.Inbox.Count
' Init $Count = 0
' If $Count
<span class="label subtext">$Count</span>\\
' EndIf
</div></td></tr>
<tr><td nowrap>\\
' If $FID = -7
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "確認メール" "taskmail20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-7" "" "" "" "" "" "icontext"
' $Count = $MWIndex.Users.$LID.ToDo.Count
' Init $Count = 0
' If $Count
<span class="label subtext">$Count</span>\\
' EndIf
</div></td></tr>
' EndIf
<tr><td nowrap>\\
' If $FID = -2
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "送信待ちメール" "mail_all20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-2" "" "" "" "" "" "icontext"
' $Count = $MWIndex.Waiting.Count
' Init $Count = 0
' If $Count
<span class="label subtext">$Count</span>\\
' EndIf
</div></td></tr>
' EndIf
<tr><td nowrap>\\
' If $FID = -5
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmLink "受信メール" "mail20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&fid=-5" "" "" "" "" "" "icontext"
</div></td></tr>
<tr><td nowrap>\\
' If $FID = -6
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmLink "送信メール" "mail_sent20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID&fid=-6" "" "" "" "" "" "icontext"
</div></td></tr>
<tr><td><hr></td></tr>
' $FolderView = $Command.Mail.GetFolderView $WID $BS $FID "&vid=$VID&view=$View"
$_FolderView
<tr><td><hr></td></tr>
' If ! $VID
<tr><td nowrap>\\
' If $FID = -3
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmLink "ごみ箱" "trash20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-3" "" "" "" "" "" "icontext"
' $Count = $MIndex.Garbages.Count
' If $Count
<span class="label subtext">$Count</span>\\
' EndIf
</div></td></tr>
' EndIf
<tr><td><br></td></tr>
</table>
' Call categoryJS
' EndSub
''
' Sub titleColumn
'' <!---------------------タイトル表示----------------------------->
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailIndex">
<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="FID" value="$FID">
<input type="hidden" name="STS" value="$STS">
<input type="hidden" name="Reverse" value="$Selected.Reverse">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="SFID" value="">
<input type="hidden" name="SetView" value="">
''
<div class="folder-function-container">
' Call folderFunction
<span class="folder-title">\\
' Call SetFolderName $FID "FolderName"
$FolderName\\
</span>
' If $FID >= 0
<select name="View" onChange="SetView.value='$Login.ID';this.form.submit();">
<option value="">(全て)</option>
' Call optionView $View "Inbox" "処理メール"
' Call optionView $View "Received" "受信メール"
' Call optionView $View "Sent" "送信メール"
</select>
' EndIf
</div>
</form>
' EndSub
''
' Sub mainColumn
' Call mailNavigation
' If ! $MailProfile.Folder.Disable
' Call titleColumn
' EndIf
<!--#include file="PartsMailIndex.html"-->
<form name="MailIndex" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailIndex">
<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="FID" value="$FID">
<input type="hidden" name="STS" value="$STS">
<input type="hidden" name="Reverse" value="$Selected.Reverse">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="SFID" value="">
<input type="hidden" name="SetView" value="">
' Call operation "Head"
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' $VFID = $FID
' If ( $FID > 0 ) or ( ! $FID )
' If $View = "Inbox"
' $VFID = -4
' Elif $View = "Received"
' $VFID = -5
' Elif $View = "Sent"
' $VFID = -6
' EndIf
' EndIf
' If ( $FID = -2 ) or ( $FID = -3 )
' $NoSel = 1
' Else
' $NoSel = 0
' EndIf
' Call viewMailTitle $BS $MailProfile $VFID $NoSel $Selected "&sts=$STS&st=$ST" $captionSet "MailIndex"
' If $ViewIndex.Count == 0
</table>
<div class="mailindex-separator">
' If ! $Head
メールはありません。
' EndIf
</div>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Else
' Call viewMailIndex $BS $MailProfile $ViewIndex $VFID "&fid=$FID&view=$View&sts=$STS&st=$ST&head=$Head&hid=$HID&wmi=$Login.ID" $MID $captionSet "" "" $Selected.Reverse
' EndIf
' Call viewMailTitle $BS $MailProfile $VFID $NoSel $Selected "&sts=$STS&st=$ST" $captionSet "MailIndex"
</table>
' Call operation "Tail"
</form>
' EndSub
''
' Sub commonColumn
'' お知らせ
<!--#include file="LibraryInfomation.html"-->
' Set $Info = $Command.Mail.GetPersonalInfo $BS
' Call InfomationBar "Mail" $MWIndex $Info
'' メッセージ
<div id="message-wrapper">
' Call SystemInfomation
' Call Notice
</div>
'' メニュー
' Call menuColumn
' EndSub
''
' Sub menuColumn
<table class="menuColumn">
<tr>
' If ! $VID
<td width="1%" nowrap>
<form name="Receive" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailIndex">
<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="FID" value="$FID">
<input type="hidden" name="STS" value="$STS">
<input type="hidden" name="Reverse" value="$Selected.Reverse">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="SFID" value="">
<input type="hidden" name="SetView" value="">
' Call cmLinkButton "メール受信" "btn_receive20.png" "" 0 0 0 "" "onReceive( document.forms.Receive );" "receive"
</form>
</td>
' $t = $MIndex.ReceivedTime
' If $t
<td width="1%" nowrap>\\
<div class="receiveTime">最終受信：<br>\\
' If ( $Date.Year != $t.Year ) or ( $Date.Month != $t.Month ) or ( $Date.Day != $t.Day )
$t.Month00/$t.Day00 \\
' EndIf
<span class="fontBold">$t.Hour:$t.Minute00</span>\\
</div></td>
' EndIf
' EndIf
<td width="1%" nowrap>
' If $MailSystem.IsAccessModify
' Call cmLinkButton "メールを作成する" "btn_write20.png" "$Server?page=MailSend&wid=$WID&bs=$BS&fid=$FID&view=$View&st=$ST&sts=$STS&head=$Head&hid=$HID&wmi=$Login.ID"
' EndIf
' Call cmLinkButton "メールを検索する" "btn_search20.png" "$Server?page=MailSearch&wid=$WID&bs=$BS&vid=$VID&fid=$FID&view=$View&wmi=$Login.ID"
' If $MailSystem.IsAccessFile
' Call cmLinkButton "ファイル出力" "btn_file20.png" "$Server?page=MailExport&wid=$WID&bs=$BS&vid=$VID"
' EndIf
' If $FID = -3
' If $MailSystem.IsAccessDelete
' Call cmLinkButton "ごみ箱を空にする" "btn_stop20.png" "$Server?page=MailDeleteAllGarbages&wid=$WID&bs=$BS"
' EndIf
' EndIf
</td>
<td><br></td>
<td align="right" valign="middle" nowrap>
<form method="post" action="$Server?" onSubmit="if( ! Text.value ){ return false; }">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSearchIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
' Call tbSearchCustomer
</form>
</td>
</tr>
</table>
' EndSub