' If ! $incLibraryMainIndex
'  $incLibraryMainIndex = 1
''
' Sub Notice
'' 退避環境では表示しない
'  If $VID
'   Exit
'  EndIf
''
'  var Set $localMWIndex = $Command.Mail.GetWorkIndexTop $BS
'  var Set $localMailSystem = $WorkSpace.Mails.$BS
'  var Set $localMailProfile = $Command.Mail.GetMailTop $BS
'  var Set $localPersonalMail = $Command.Mail.GetPersonalMail $BS
'  var $LID = $Login.ID
''
'' 警告日時になったメール
'  var $localCount = $localMWIndex.Warning.GetOverCount
'  If $localCount
<div class="notice">
'   Call cmLink "警告日時になったメールが $localCount 件あります。" "alert20.png" "$Server?page=MailWarningIndex&wid=$WID&bs=$BS&fid=$FID&view=$View&wmi=$Login.ID" "" "" "" "#FF0000"
</div>
'  EndIf
'' 編集権限がなければここまで
'  If ! $localMailSystem.IsAccessModify
'   Exit
'  EndIf
'' フォルダが出てればここから先は出さない
'  var $localDisplayStyleByFolderSettings = ""
'  If ! $localMailProfile.Folder.Disable and ! $localPersonalMail.HideFolder
'   $localDisplayStyleByFolderSettings = "display:none;"
'  EndIf
'' 担当メール
'  var $localCount = $localMWIndex.Users.$LID.Inbox.Count
'  If $localCount and ( $FID != -1 )
<div class="notice notice-for-hidden-folder-pane" style="$localDisplayStyleByFolderSettings">
'   Call cmLink "担当メールが $localCount 件あります。" "alert20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-1"
</div>
'  EndIf
'' 確認メール
'  var $localCount = $localMWIndex.Users.$LID.ToDo.Count
'  If $localCount and ( $FID != -7 )
<div class="notice notice-for-hidden-folder-pane" style="$localDisplayStyleByFolderSettings">
'   Call cmLink "確認メールが $localCount 件あります。" "alert20.png" "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-7"
</div>
'  EndIf
' EndSub
''
' Sub SystemInfomation
'  var Set $localMIndex = $Command.Mail.GetMailIndex $BS
'  var Set $localMailProfile = $Command.Mail.GetMailTop $BS
'  var Set $localMailSystem = $WorkSpace.Mails.$BS
'  var $LID = $Login.ID
''
'  If $localMIndex.ErrorMails.Count
'   If ( ! $localMIndex.ErrorUID ) or ( $localMIndex.ErrorUID = $LID )
<div class="systemInfomation">
 メールサイズの制限などにより受信できなかったメールがあります。
 <a href="$Server?page=MailSizeOver&wid=$WID&bs=$BS&fid=$FID&view=$View">[詳細情報]</a>
</div>
'   EndIf
'  EndIf
'  If $Received
'' 手動受信直後
'   If $Left
<div class="systemInfomation">
 メールサーバーにメールが残っています。引き続き<b>「メール受信」</b>ボタンを押して下さい。
</div>
'   Elif $localMIndex.PartialMails.Count
<div class="systemInfomation">
 復元できなかった分割メールがあります。
 <a href="$Server?page=MailPartial&wid=$WID&bs=$BS&fid=$FID&view=$View">[詳細情報]</a>
</div>
'   EndIf
'  Elif $IsTask and $localMailProfile.Accounts.Count and $localMailProfile.Receive
'' 自動受信有効
'   $ReceiveLeft = $localMIndex.ReceiveLeftover
'   If $ReceiveLeft
<div class="systemInfomation">
 メールサーバーにメールが残っています。<br>次回の自動受信まで待つか、<b>「メール受信」</b>ボタンを押すと、これらのメールを受信できます。
</div>
'   Elif $localMIndex.PartialMails.Count
<div class="systemInfomation">
 復元できなかった分割メールがあります。
 <a href="$Server?page=MailPartial&wid=$WID&bs=$BS&fid=$FID&view=$View">[詳細情報]</a>
</div>
'   EndIf
'  EndIf
'  If ! $Received and $Sent
'' 一括送信直後
'   If $Left
<div class="systemInfomation">
   送信待ちのメールが残っています。引き続き<b>「一括送信する」</b>ボタンを押して下さい。
</div>
'   EndIf
'  EndIf
''
'  $LeftWarning = $Command.Mail.IsLeftWarning $BS
'  If ( ! $VID ) and ( ! $Left ) and $LeftWarning
<div class="systemInfomation">
 メールサーバーに受信済みのメールが溜まっています。メールサーバーにメールを残さない設定にしてください。
 <a href="$Server?page=MWLeftExplain&wid=$WID&bs=$BS&fid=$FID&view=$View&sts=$STS&st=$ST">[詳細]</a>
</div>
'  EndIf
'  $LogWarning = $Command.Mail.IsLogWarning $BS
'  If ( ! $VID ) and $LogWarning
<div class="systemInfomation">
   メール送受信時に通信ログを取得する設定になっています。システム管理者にメールアカウントの設定を確認してください。
</div>
'  EndIf
' EndSub
''
' EndIf