' $System.Access Post
' If $Init or $PCID or ! $PDID
'  $PDID = $Command.Post.InitDraft $WID $PCID $rw $BS
' EndIf
' Set $Draft = $Command.Post.GetDraft $WID $PDID
' $Command.Post.AccessModify $WID $Draft.PCID
' If $System.IsPost
'  If $Mode = "Cancel"
'   $PCID = $Draft.PCID
'   If $PCID
'    $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT
'   Else
'    $System.Redirect $Server?page=PostIndex&wid=$WID
'   EndIf
'   $Command.Post.CancelDraft
'   Exit
'  EndIf
'  $Command.Post.SetDraft
'  If $Mode = "Submit"
'   $PCID = $Draft.PCID
'   If $PCID
'    $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT
'    $Command.Post.Create
'   Else
'    $System.Redirect $Server?page=PostSetTarget&wid=$WID&pdid=$PDID
'   EndIf
'  Elif $Mode = "Save"
'   $PCID = $Command.Post.Create
'   $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT
'  Else
'   $System.Redirect $Server?page=PostSetData&wid=$WID&pdid=$PDID&bpt=$BPT
'   If $Mode = "DeleteFile"
'    $Command.Post.DeleteDraftFile
'   EndIf
'  EndIf
'  Exit
' EndIf
' $BS = $Draft.BS
' If ! $BS
'  For Each $ms in $WorkSpace.Mails
'   If $ms.IsMailServer
'    If $BS
'     $BS = -1
'     Exit
'    Else
'     $BS = $ms.ID
'    EndIf
'   EndIf
'  Next
'  If $BS > 0
'   $Draft.BS = $BS
'  EndIf
' Elif $BS > 0
'  $Available = $Command.Mail.IsAvailableSystem $BS
'  If ! $Available
'   $BS = 0
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' If $Draft.PCID
'  $CaptionTitle = "メール内容の変更"
'  $CaptionBackPage = "配信情報の詳細へ"
'  $CaptionSubmit = "変更する"
' Else
'  $CaptionTitle = "新規配信"
'  $CaptionBackPage = "配信一覧へ"
'  $CaptionSubmit = "次へ >>"
' EndIf
' Call cmHead $CaptionTitle
' Call cmLoadJavaScript "tiny_mce/jquery.tinymce"
' Call cmLoadJavaScript "component/richedit"
' If $BS > 0
'  Set $MailProfile = $Command.Mail.GetMailTop $BS
<script language="JavaScript" type="text/javascript"><!--
(function() {
    jQuery(function($) {
'  If ! $MailProfile.NoRichText
        $('#postset_data').richedit($('#postset_richtext'));
'  EndIf
    });
})();

function onSubmit( form )
{
	if( ! form.Subject.value )
	{
		if( ! confirm( "件名が入力されていませんが、よろしいですか？" ) )
		{
			return false;
		}
	}
	form.Mode.value ="Submit";
	form.submit();
}
function onCancel( form )
{
	if( confirm( "編集中の内容が破棄されますが、よろしいですか？" ) )
	{
		form.Mode.value ="Cancel";
		form.submit();
	}
	return false;
}
//-->
</script>
' EndIf
</head>
<body>
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID"
' If $Draft.PCID
'  $System.SetParameter BackURL "$Server?page=PostView&wid=$WID&pcid=$Draft.PCID&bpt=$BPT"
'  Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name $BackURL "配信情報の詳細"
' Else
'  $System.SetParameter BackURL $URLPostIndex
'  Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name
' EndIf
' If $BS = -1
<p>メールの送信をおこなうアプリケーションを選択してください。</p>
<p>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr class="active"><td>メールアプリケーション</td></tr>
'  $RowNum = 0
'  For Each $ms in $WorkSpace.Mails
'   If $ms.IsMailServer
'    Inc $RowNum
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
<tr class="$RowClass"><td nowrap>
'    Call cmLink $ms.Name "write20.png" "$Server?page=$Page&wid=$WID&pdid=$PDID&bs=$ms.ID&pcid=$PCID&bpt=$BPT&rw=$RW&init=1"
</td></tr>
'   EndIf
'  Next
</table>
</p>
'  Call cmFooter $BackURL $CaptionBackPage
</body>
</html>
'  Exit
' Elif ! $BS
<p>
一斉配信をおこなうには、送信メールサーバーの設定、及び送信アクセス権が必要です。<br>
システム管理者にお問い合わせ下さい。<br>
</p>
'  Call cmFooter $BackURL $CaptionBackPage
</body>
</html>
'  Exit
' EndIf
<form name="MailSend" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PostSetData">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="PDID" value="$PDID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Mode" value="">
' If ! $Draft.PCID
<!--#include file="LibraryPostSet.html"-->
'  Call viewStep "1"
' EndIf
<p>配信メールの内容を入力してください。</p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>
'' <!---------------------メール内容----------------------------->
<table border="0" cellspacing="0" cellpadding="2" class="postset-formTable">
<tr><td nowrap>From</td><td nowrap>
<select name="FRID" onChange="this.form.submit();">
' For Each $From in $MailProfile.FromList
'  If $From.ID = $Draft.FRID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$From.ID" $Sel>\\
'  If $From.FromName
&quot;$From.FromName&quot; &lt;$From.Address&gt;
'  Else
$From.Address
'  EndIf
' Next
</select>
</td></tr>
<tr><td nowrap>件名</td><td nowrap>
' Call formText "Subject" $Draft.Subject 25 1 200 "inputText"
' If ! $WorkSpace.Template.Disable
'  Call cmButton "テンプレート挿入" "window.open( '$Server?page=TemplateSelect&wid=$WID&pdid=$PDID&pdid=$PDID&bs=$BS', 'TemplateSelect', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();" "btn_template20.png"
' EndIf
</td></tr>
<tr><td valign="top" nowrap>本文</td><td>
' $System.SetParameter Param "Cols$WID"
' $DataCols = $Login.$Param
' Init $DataCols = 70
' $System.SetParameter Param "Rows$WID"
' $DataRows = $Login.$Param
' Init $DataRows = 20
' If $Draft.HtmlData And ! $MailProfile.NoRichText
'  $HtmlData = 1
' Else
'  $HtmlData = 0
' EndIf
<input type="hidden" name="RichText" value="$HtmlData" id="postset_richtext"/>
<textarea id="postset_data" name="Data" cols="$DataCols" rows="$DataRows" wrap="virtual">
' If $HtmlData
'  $Data = $Command.RichText.Sanitize $Draft.HtmlData 1
$Data\\
' Else
$Draft.Data\\
' EndIf
</textarea>
</td></tr>
<tr><td valign="top" nowrap>署名</td><td>
<div class="postset-signature-select">
<select name="SGID" onChange="this.form.submit()">
<option value="0">(なし)
' Options $Draft.SGID in $MailProfile.Signatures
</select>
</div>
' Call formText "Signature" $Draft.Signature 50 4 0 "postset-signature"
</td></tr>
' If ! $MailProfile.File.Disable
<tr><td valign="top" nowrap>ファイル</td><td>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td rowspan="2"><select class="attachment" name="FileID" size="3">
'  For Each $File in $Draft.Files
<option value="$File.ID">$File.FileName
'  Next
<option value="">　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　</select></td>
<td>
'  Call cmButton "追加する" "window.open( '$Server?page=PostFileAdd&wid=$WID&pdid=$PDID&pcid=$Draft.PCID', 'FileAdd', 'width=600,height=300,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );" "btn_file_add13.png"
</td></tr>
<tr><td>
'  Call cmButton "削除する" "Mode.value='DeleteFile';this.form.submit();" "btn_delete13.png"
</td></tr>
</table>
</td></tr>
' EndIf
<tr><td colspan="2"><hr></td></tr>
<tr><td valign="top" nowrap>コメント</td><td nowrap>
' Call formText "Comment" $Draft.Comment 60 3 0 "postset-comment"
<br><font size="-1" color="#008800">コメントの内容は送信されません。</font></td></tr></table>
<p>
' Call cmButton $CaptionSubmit "onSubmit( this.form );"
' If ! $Draft.PCID
&nbsp;
'  Call cmButton "書きかけ保存する" "Mode.value='Save';this.form.submit();"
' EndIf
' Call cmButton "キャンセルする" "onCancel( this.form );"
</p>
</td><td valign="top" nowrap>
'' <!---------------------予約語の説明----------------------------->
 <table border="0" cellspacing="0" cellpadding="2">
 <tr class="active"><td colspan="2" nowrap>
 <div align="center"><b>予約語の一覧</b></div>
 </td></tr>
 <tr bgcolor="#ffffff"><td nowrap>顧客名</td><td nowrap><b>%Customer%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>会社名</td><td nowrap><b>%Company%</b></td></tr>
' If ! $WorkSpace.Customer.Disable
'  If ! $Customer.Person.Section.Disable
 <tr bgcolor="#ffffff"><td nowrap>部課</td><td nowrap><b>%Section%</b></td></tr>
'  EndIf
 <tr bgcolor="#ffffff"><td colspan="2">
'  Call cmLink "その他のアドレス情報を挿入する" "pin.png" "$Server?page=TemplateCustomer&wid=$WID&pdid=$PDID" 0 1
 </td></tr>
' EndIf
 <tr bgcolor="#ffffff"><td nowrap>From に表記する名前</td><td nowrap><b>%From%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>作成者の名前(姓名)</td><td nowrap><b>%User%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>作成者の名前(姓)</td><td nowrap><b>%Name%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>作成者のメールアドレス</td><td nowrap><b>%Mail%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>作成者の連絡先</td><td nowrap><b>%Tel%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>ログインユーザーの名前(姓名)</td><td nowrap><b>%LoginUser%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>ログインユーザーの名前(姓)</td><td nowrap><b>%LoginName%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>配信時の日付(年)</td><td nowrap><b>%Year%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>配信時の日付(月)</td><td nowrap><b>%Month%</b></td></tr>
 <tr bgcolor="#ffffff"><td nowrap>配信時の日付(日)</td><td nowrap><b>%Day%</b></td></tr>
 <tr bgcolor="#ffffff"><td colspan="2"><hr></td></tr>
 <tr bgcolor="#ffffff"><td colspan="2" nowrap>
メールの本文・署名に、予約語を記述すると、<br>
メールを配信する際、予約語は変換されます。<br>
<p>
(例)
<div align="center">
%User% → $Login.Name
</div>
</p>
 </td></tr>
 </table>
</td></tr>
</table>
</form>
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>