' $System.Access Mail
' $System.NoWarning
' $Command.System.SetFrameView
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "メールの印刷"
<title>$CaptionTitle</title>
'  Call cmLoadJavaScript "jquery-1.7.1.min"
'  Call cmLoadJavaScript "std"
</head>
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If $Type = "Received"
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
' Else
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
' EndIf
' If ( ! $m ) or $m.DeleteTime
<body>
<p>指定されたメールデータは既に削除されています。</p>
</body>
</html>
'  Exit
' EndIf
' $System.Print = 1
<body bgcolor="#ffffff" onLoad="window.print()">
<table border="0" cellspacing="0" cellpadding="4">
<tr><td>件名</td><td>$m.Subject</td></tr>
' $t = $m.TimeStamp
<tr><td>日時</td><td>$t.Year/$t.Month/$t.Day($t.WDay) $t.Hour:$t.Minute00</td></tr>
<tr><td>差出人</td><td>
' If $m.From
$m.From
' Elif $Type != "Received"
'  Sub viewFrom $vfAccount
'   If $vfAccount.FromName
&quot;$vfAccount.FromName&quot; &lt;$vfAccount.Address&gt;
'   Else
$vfAccount.Address
'   EndIf
'  EndSub
'  If $MailProfile.Account
'   Call viewFrom $MailProfile
'  Else
'   For Each $Account in $MailProfile.Accounts
'    Call viewFrom $Account
'    Exit
'   Next
'  EndIf
' EndIf
</td></tr>
<tr><td>宛先</td><td>
' If $Type = "Received"
$m.To
' Else
'  $First = 1
'  For Each $mc in $m.Customers
'   If $First
'    $First = 0
'   Else
,
'   EndIf
'   If $mc.Name
&quot;$mc.Name&quot; &lt;$mc.Mail&gt;
'   Else
$mc.Mail
'   EndIf
'  Next
' EndIf
</td></tr>
' If $m.CC
<tr><td>CC</td><td>$m.CC</td></tr>
' EndIf
' If $m.BCC
<tr><td>BCC</td><td>$m.BCC</td></tr>
' EndIf
</table>
<hr>
' If $Type = "Received"
'  $Source = $Command.Mail.IsMailSource $BS $MID $DBID
'  If $Source
<!--#include file="PartsMailData.html"-->
'  Else
'   If $m.HtmlData
<!--#include file="PartsRichText.html"-->
'    Call ShowRichText
'   Else
'    View $m.Data
'   EndIf
'   If $m.Files.Count
<hr>
'    For Each $f in $m.Files
'     If $f
$f <font color="#888888">(削除済み)</font><br>
'     EndIf
'    Next
'   EndIf
'  EndIf
' Else
'  If $m.HtmlData
<div class="re-content">
'   $Command.RichText.View $m.HtmlData
</div>
'  Else
'   View $m.Data
'  EndIf
<br>
'  View $m.Signature
'  For Each $File in $m.Files
<hr>
'   If $m.DeleteFiles
$File.FileName <font color="#888888">(削除済み)</font><br>
'   Else
'    $System.SetParameter Inline "Inline$WID"
'    $System.FileLink $File Mail $Login.$Inline 0 "&wid=$WID&bs=$BS&vid=$VID&dbid=$DBID&MailType=Sent"
'   EndIf
'  Next
' EndIf
</body>
</html>