' $System.Access Post
' $Command.Post.AccessSend
' Set $Draft = $Command.Post.GetDraft $WID $PDID
' $BS = $Draft.BS
' If $System.IsPost
'  If $Mode = "Cancel"
'   $System.Redirect $Server?page=PostIndex&wid=$WID
'   $Command.Post.CancelDraft
'  Else
'   $PCID = $Command.Post.Create
'   If $Mode = "Send"
'    $System.Redirect $Server?page=PostSend&wid=$WID&pdid=$PDID&pcid=$PCID&start=1
'   Else
'    $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID
'   EndIf
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "配信確認"
<script language="JavaScript" type="text/javascript"><!--
function onCancel( form )
{
	if( confirm( "編集中の内容が破棄されますが、よろしいですか？" ) )
	{
		form.Mode.value ="Cancel";
		form.submit();
	}
	return false;
}
function onSend( form )
{
	if( confirm( "メールを一斉配信します。よろしいですか？" ) )
	{
		form.Mode.value ="Send";
		form.submit();
	}
}
function onBrowseTarget()
{
	window.open( '$Server?page=PostTarget&wid=$WID&pdid=$PDID', 'PostTarget', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
//-->
</script>
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=PostSetTarget&wid=$WID&pdid=$PDID"
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID"
' Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PostConfirm">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="PDID" value="$PDID">
<input type="hidden" name="Mode" value="">
<!--#include file="LibraryPostSet.html"-->
'  Call viewStep "3"
<p>メールの一斉配信を実行します。メールの内容を確認してください。</p>
<p>
<table width="600" border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>
' Set $rs = $Command.Post.GetTargetRowSet $WID $PDID 1 $Head
' For Each $c in $rs
'  If $Draft.Search = 2
'   $CID = $c.ID
'   Set $Target = $c
'  Else
'   $CID = $c.OID
'   $DBID = $c.DBID
'  EndIf
' Next
' If $rs.Prev
'  Call cmLink "<< 前へ" "" "$Server?page=$Page&wid=$WID&pdid=$PDID&head=$rs.Prev"
' Else
<font color="#888888">&lt;&lt; 前へ</font>
' EndIf
|
' If $rs.Next
'  Call cmLink "次へ >>" "" "$Server?page=$Page&wid=$WID&pdid=$PDID&head=$rs.Next"
' Else
<font color="#888888">次へ &gt;&gt;</font>
' EndIf
</td><td align="right" nowrap>
' Call cmLink "全配信先($Draft.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">$Draft.From</td></tr>
' If $Draft.Search = 2
'  $To = $Target.To
' Else
'  $To = $Command.Post.GetToString $WID $BS $CID $DBID
' EndIf
<tr><td class="title" valign="top" nowrap>To</td><td>$To<br></td></tr>
' $Subject = $Command.Post.GetDraftTranslation $WID $PDID $Draft.Subject $CID 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 $Draft.HtmlData
'  $Data = $Command.Post.GetDraftTranslation $WID $PDID $Draft.HtmlData $CID 0 1
<div class="re-content">
'  $Command.RichText.View $Data
</div>
' Else
'  $Data = $Command.Post.GetDraftTranslation $WID $PDID $Draft.Data $CID
'  View $Data
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>署名</td><td nowrap>
' $Signature = $Command.Post.GetDraftTranslation $WID $PDID $Draft.Signature $CID
' View $Signature
</td></tr>
' If ! $MailProfile.File.Disable
<tr><td class="title" valign="top" nowrap>添付ファイル</td><td>
'  $System.SetParameter Inline "Inline$WID"
'  For Each $File in $Draft.Files
'   $System.FileLink $File Personal $Login.$Inline 0 "&wid=$WID"
<br>
'  Next
'  If ! $Draft.Files.Count
<br>
'  EndIf
</td></tr>
' EndIf
</table>
</p>
<p>
' Call cmButton "送信する" "onSend( this.form );"
' Call cmButton "内容を修正する" "location.href='$Server?page=PostSetData&wid=$WID&pdid=$PDID';"
' Call cmButton "書きかけ保存する" "Mode.value='Save';this.form.submit();"
' Call cmButton "キャンセルする" "onCancel( this.form );"
</p>
<hr>
<p>※配信には時間がかかる場合があります。その間、メールワイズの動作が遅くなることがあります。</p>
</form>
' Call cmFooter $BackURL "配信先の設定へ"
</body>
</html>