' $System.Access Post
' $Command.Post.AccessSend
' Set $pc = $Post.Cards.$PCID
' $Available = $Command.Mail.IsAvailableSystem $pc.BS
' If ! $Available
'  $Error = 22701
<!--#include file="MWError.html"-->
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryPostViewCond.html"-->
' $CaptionTitle = "送信確認"
<script language="JavaScript" type="text/javascript"><!--
function onSend( form )
{
	if( confirm( "メールを一斉配信します。よろしいですか？" ) )
	{
		location.href='$Server?page=PostSend&wid=$WID&pcid=$PCID&start=1';
	}
}
function onBrowseTarget()
{
	window.open( '$Server?page=PostTarget&wid=$WID&pcid=$PCID', 'PostTarget', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
//-->
</script>
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT"
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID"
' Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name $BackURL "配信情報の詳細"
' $System.CloseDatabase "mw"
<form>
<p>メールの一斉配信を実行します。メールの内容を確認してください。</p>
<p>
<table width="600" border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>
' Set $rs = $pc.Targets.RowSet
' $rs.Rows = 1
' If $Head
'  $rs.Head = $Head
' EndIf
' For Each $c in $rs
'  $CID = $c.CID
'  $DBID = $c.DBID
'  Set $Target = $c
' Next
' If $rs.Prev
'  Call cmLink "<< 前へ" "" "$Server?page=$Page&wid=$WID&pcid=$PCID&bpt=$BPT&head=$rs.Prev"
' Else
<font color="#888888">&lt;&lt; 前へ</font>
' EndIf
|
' If $rs.Next
'  Call cmLink "次へ >>" "" "$Server?page=$Page&wid=$WID&pcid=$PCID&bpt=$BPT&head=$rs.Next"
' Else
<font color="#888888">次へ &gt;&gt;</font>
' EndIf
</td><td align="right" nowrap>
' Call cmLink "全配信先($pc.Targets.Count件)" "browse20.png" "javascript:onBrowseTarget();"
</td></tr>
</table>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="100" valign="top" nowrap>From</td><td width="500">$pc.From</td></tr>
' If $pc.Search = 2
'  $To = $Target.To
' Else
'  $To = $Command.Post.GetToString $WID $pc.BS $CID $DBID
' EndIf
<tr><td class="title" valign="top" nowrap>To</td><td>$To<br></td></tr>
' $Subject = $Command.Post.GetTranslation $WID $pc.Subject $PCID $Target.ID 1
<tr><td class="title" valign="top" nowrap>件名</td><td>$Subject<br></td></tr>
<tr><td class="title" valign="top" nowrap>本文</td><td nowrap>
' If $pc.HtmlData
'  $Data = $Command.Post.GetTranslation $WID $pc.HtmlData $PCID $Target.ID 0 1
<div class="re-content">
'  $Command.RichText.View $Data
</div>
' Else
'  $Data = $Command.Post.GetTranslation $WID $pc.Data $PCID $Target.ID
'  View $Data
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>署名</td><td nowrap>
' $Signature = $Command.Post.GetTranslation $WID $pc.Signature $PCID $Target.ID
' View $Signature
</td></tr>
' Set $MailProfile = $Command.Mail.GetMailTop $pc.BS
' If ! $MailProfile.File.Disable
<tr><td class="title" valign="top" nowrap>添付ファイル</td><td>
'  $System.SetParameter Inline "Inline$WID"
'  For Each $File in $pc.Files
'   $System.FileLink $File "Post" $Login.$Inline 0 "&wid=$WID"
<br>
'  Next
'  If ! $pc.Files.Count
<br>
'  EndIf
</td></tr>
' EndIf
</table>
</p>
<p>
' Call cmButton "送信する" "onSend( this.form );"
' Call cmButton "キャンセルする" "location.href='$Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT';"
</p>
<hr>
<p>※配信には時間がかかる場合があります。その間、メールワイズの動作が遅くなることがあります。</p>
</form>
' Call cmFooter $BackURL "配信情報の詳細へ"
</body>
</html>