' Call cmLoadJavaScript "component/richtext"
' Sub ShowRichText
<script>
'  var $EscBS = $Command.String.JSEncode $BS
'  var $EscMID = $Command.String.JSEncode $MID
'  var $EscDBID = $Command.String.JSEncode $DBID
'  var $EscType = $Command.String.JSEncode $Type
'  var $EscWID = $Command.String.JSEncode $WID
'  var $EscVID = $Command.String.JSEncode $VID
'  var $EscCharSet = $Command.String.JSEncode $CharSet
  mw.richtext.ajaxMailBodyParams = 'page=AjaxMailBody&BS=$EscBS&MID=$EscMID&DBID=$EscDBID&Type=$EscType&WID=$EscWID&VID=$EscVID&charset=$EscCharSet';
</script>
<div id="richtext_area">
'  var $Data = ""
'  If $Session.Mails.$BS.SeenMails.$MID
'   $Data = $Command.RichText.Sanitize $m.HtmlData 1
'  Else
'   $Data = $Command.RichText.Sanitize $m.HtmlData
'   var $HasExternal = $Command.RichText.HasExternalContent
'   If $HasExternal And ! $System.Print
  <div style="height:20px;">
    <a id="showimage_link" href="" onclick="mw.richtext.showExternalContents(this, mw.richtext.ajaxMailBodyParams, 'richtext_area');return false;">画像を表示する</a>
  </div>
'   EndIf
'  EndIf
'  var $Succeeded = $Command.RichText.SanitizeSucceeded
'  If ( ! $Data ) Or ( ! $Succeeded )
'   If ! $Succeeded
<div style="color:#0000ff;">解析できないHTMLデータです。テキストデータのみ表示します。</div>
<br>
'   EndIf
'   View $m.Data
'  Else
<div class="re-content">
'   $Command.RichText.View $Data
</div>
</div>
'  EndIf
' EndSub