' $System.Access Post
' $Command.Post.AccessSend
' If ! $Start
'  $Progress = $Command.Post.Send $WID $PCID
' EndIf
' If $Progress or $Start
<meta http-equiv="Refresh" content="0;URL=$Server?page=PostSend&wid=$WID&pcid=$PCID">
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "配信実行"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=PostIndex&wid=$WID&pcid=$PCID"
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Post.Name
' $System.CloseDatabase "mw"
' If $Progress or $Start
<p>メールの一斉配信を実行しています。</p>
<p>※ ブラウザをそのままにしてお待ち下さい。<br>
　 <b>ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。</b><br>
　 (データベース破損などの原因になる場合があります)<br>
</p>
<!--#include file="PartsProgress.html"-->
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
' Set $Card = $Post.Cards.$PCID
' $Count = $Card.Count
' Init $Count = 0
<p>メールの一斉配信が完了しました。(送信成功： $Count 件)</p>
' $EC = $Card.Errors.Count
' If $EC
<p>
'  Call cmLink "配信失敗が $EC 件あります。" "alert32.png" "$Server?page=PostView&wid=$WID&pcid=$PCID&tab=error"
</p>
' EndIf
' Call cmFooter $BackURL "配信一覧へ"
</body>
</html>