' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailTemplateAuto&wid=$WID&id=$ID
'  $Command.Mail.SetDefaultTemplate
'  Exit
' EndIf
' $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 onSelect( tid )
{
	var url = "$Server?page=ManageMailTemplateAutoSet&wid=$WID&ID=$ID&reply=$Reply&tid=" + tid;
	location.href=url;
}
-->
</script>
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailTemplateAuto&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 name="FormTemplate" method="get" action="$Server" onSubmit="if( ! Text.value ){ return false; }" style="margin:0px;">
<input type="hidden" name="Page" value="ManageMailTemplateAutoDefault">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="CTID" value="$CTID">
<input type="hidden" name="Reply" value="$Reply">
<p>
$AppliNameで、
' If $Reply
返信時に
' Else
新規作成時に
' EndIf
最初に使うテンプレートを選択してください。
</p>
' $System.SetParameter Arg "&id=$ID&reply=$Reply"
' $System.SetParameter InitURL "$Server?page=ManageMailTemplateAutoSet&wid=$WID&ID=$ID&reply=$Reply"
' $InitCaption = "最初に使うテンプレートを未設定にする"
<!--#include file="PartsMailTemplateSelect.html"-->
</form>
' Call cmChildFooter $BackURL "テンプレートの自動選択へ"
</body>
</html>