' $System.Access Login
' $WorkSpace.AccessManage
' $System.SetParameter URLMailTemplateAuto "$Server?page=ManageMailTemplateAuto&wid=$WID&id=$ID"
' If $System.IsPost
'  $System.Redirect $URLMailTemplateAuto
'  $Command.Mail.SetDefaultTemplate
'  Exit
' EndIf
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' $CaptionTitle = "最初に使うテンプレートの変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailTemplateAutoDefault&wid=$WID&id=$ID&reply=$Reply"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $URLMailTemplateAuto "テンプレートの自動選択" $BackURL "最初に使うテンプレートの選択"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<form name="TemplateRule" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailTemplateAutoSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="Reply" value="$Reply">
<input type="hidden" name="TID" value="$TID">
<p> $AppliNameで、\\
' If $Reply
返信時に\\
' Else
新規作成時に\\
' EndIf
最初に使うテンプレートを<br>\\
' If $TID
'  Set $Template = $Command.Template.GetTemplate $WID $TID
「<b>$Template.Name</b>」\\
' Else
<b>未設定</b>\\
' EndIf
に変更します。<br>よろしいですか？</p>
' Call formCommit "はい" "いいえ" "" "location.href='$URLMailTemplateAuto.JSEscape';"
</form>
' Call cmChildFooter $BackURL "最初に使うテンプレートの選択へ"
</body>
</html>