' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailDetailConfig&wid=$WID&id=$ID
'  $Command.Mail.SetCommonConfig
'  Exit
' EndIf
''
' Sub CharSetOption $CharSetName $Label
'  var $ProfileCharSet = $MailProfile.CharSet
'  Init $ProfileCharSet = "ISO-2022-JP"
''
'  If $ProfileCharSet = $CharSetName
<option value="$CharSetName" Selected>$Label
'  Else
<option value="$CharSetName">$Label
'  EndIf
' EndSub
''
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "詳細設定の変更"
' Call cmHead $CaptionTitle 1
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( form.Reply.value )
	{
		if( ! mw.isValidMailAddress( form.Reply.value) )
		{
			alert( "メールアドレスが不正です。" );
			return false;
		}
	}
	return true;
}
-->
</script>
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailDetailConfig&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "詳細設定"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailDetailSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$AppliNameの詳細設定の情報を設定してください。</p>
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>返信先</td><td nowrap>
' If $MailProfile.ReplyTo
'  $ReplyToAll = 0
'  $ReplyToSender = 1
' Else
'  $ReplyToAll = 1
'  $ReplyToSender = 0
' EndIf
' Call formRadio "ReplyTo" "全員に返信する" $ReplyToAll 0 "ReplyToAll"
<br>
' Call formRadio "ReplyTo" "差出人だけに返信する" $ReplyToSender 1 "ReplyToSender"
</td></tr>
<tr>
 <td valign="top" nowrap>挿入アドレスの形式</td>
 <td nowrap>\\
  <input id="AddressName" class="inputRadio" type="radio" checked="$MailProfile.AddressForm.RChecked" name="AddressForm" value="0">
  <label onmouseout="this.style.color=''" onmouseover="this.style.color='#ff0000'" for="AddressName" style="">&quot;顧客名&quot; &lt;メールアドレス&gt;</label>
<br>
<img src="$IMG_PATH/spacer.gif" width="30" height="1">顧客名の後に付ける敬称\\
' Call formText "AddressTitle" $MailProfile.AddressTitle 10 1
<br>
' Call formRadio "AddressForm" "メールアドレスのみ" $MailProfile.AddressForm.Checked 1 "AddressOnly"
</td></tr>
<tr>
 <td valign="top" nowrap>書式編集機能</td>
 <td nowrap>
' Call formRadio "NoRichText" "テキスト入力のみ" $MailProfile.NoRichText.Checked 1 "richedit_text"
<br>
' Call formRadio "NoRichText" "書式編集を使用する" $MailProfile.NoRichText.RChecked 0 "richedit_richtext"
</td></tr>
<tr><td nowrap>CCの初期値</td><td nowrap>
' Call formText "CC" $MailProfile.CC 40 1 -1
</td></tr>
<tr><td nowrap>BCCの初期値</td><td nowrap>
' Call formText "BCC" $MailProfile.BCC 40 1 -1
</td></tr>
<tr><td nowrap>引用符</td><td nowrap>
' Call formText "Quot" $MailProfile.Quot 20 1 20
</td></tr>
<tr><td valign="top" nowrap>メール本文の自動改行</td><td nowrap>
<select name="LF">
<option value="">(おこなわない)
' Options $MailProfile.LF in 50 to 100 step 5 unit "文字"
</select><br>
<font color="#008800" size="-1">半角入力での文字数となります。</font>
</td></tr>
<tr><td valign="top" nowrap>Reply-To</td><td nowrap>
' Call formText "Reply" $MailProfile.Reply 20 1 255
<br>
<font color="#008800" size="-1">Reply-To を指定しない場合、送信したメールの返信先は、From のメールアドレスになります。</font>
</td></tr>
<tr><td valign="top" nowrap>送信メールの文字コード</td><td nowrap>
<select name="CharSet">
' Call CharSetOption "ISO-2022-JP" "日本語 (JIS)"
' Call CharSetOption "UTF-8" "ユニコード (UTF-8)"
</select>
<br>
<font color="#008800" size="-1">送信するメールに指定された文字コードへ変換できない文字が含まれていた場合、この設定に関わらずメール全体がユニコード (UTF-8) で送信されます。</font>
</td></tr>
<tr><td nowrap>X-Mailer</td><td nowrap>
' Call formCheckBox "DisableXMailer" "メールヘッダに X-Mailer の記述をしない" $MailProfile.DisableXMailer 1 "DisableXMailer"
</td></tr>
<tr><td valign="top" nowrap>ファイル添付</td><td nowrap>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>
' Call formCheckBox "Disable" "送信メールのファイル添付を禁止する" $MailProfile.File.Disable 1 "Disable"
</td></tr>
<tr><td nowrap>
' Call formCheckBox "Delete" "送信メールに添付したファイルを保存しない" $MailProfile.File.Delete 1 "Delete"
</td></tr>
</table>
</td></tr>
<tr><td valign="top" nowrap>ごみ箱の保存期間</td><td nowrap>
<select name="Garbages">
' $Garbages = $MailProfile.Garbages
' Init $Garbages = 7
<option value="-1">(無制限)
' Options $Garbages in 1 to 30 unit "日間"
</select>
</td></tr>
</table>
</p>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "詳細設定へ"
</body>
</html>