' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageFormNotifyConfig&wid=$WID&id=$ID
'  $Command.Form.SetNotifyMail
'  Exit
' EndIf
' $AppliName = $WorkSpace.Forms.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "メール環境の変更"
' Call cmHead $CaptionTitle 1
<script language="JavaScript" type="text/javascript"><!--
function onCheck( form )
{
' If $Env.IsMSIE
	var e = document.getElementById( 'SETMAIL' );
	if( e && e.style )
	{
		if( form.Manual.checked == true )
		{
			e.style.display="";
		}
		else
		{
			e.style.display="none";
		}
	}

' EndIf
}
function onSubmit( form )
{
	if( form.Manual.checked == true )
	{
		if( ! form.Address.value )
		{
			alert( "From のメールアドレスを入力してください。" );
			return false;
		}
		if( ! mw.isValidMailAddress( form.Address.value) )
		{
			alert( "メールアドレスが不正です。" );
			return false;
		}
	}
	return true;
}
function initializeDisplay()
{
' If $Env.IsMSIE 
	var form = document.forms["FormMail"];
	onCheck( form );
' EndIf
}
-->
</script>
</head>
<body onLoad="initializeDisplay()">
' $System.SetParameter BackURL "$Server?page=ManageFormNotifyConfig&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "通知の設定"
' $System.CloseDatabase "mw"
' Set $FormProfile = $Command.Form.GetFormTop $ID
' Set $Notify = $FormProfile.Notify
' $MSID = $Notify.MSID
' If $MSID
'  Set $MailServer = $mw.MailServers.$MSID
'  If ! $MailServer
'   $MSID = 0
'  EndIf
' EndIf
<form method="post" name="FormMail" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageFormNotifyMailSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>変更するメール環境の情報を設定してください。</p><p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>
' Call formCheckBox "Manual" "メール環境を指定する" $MSID 1 "Manual" "onCheck( this.form );"
<br><font size="-1" color="#008800">メール環境を指定しない場合、送信可能な先頭メールアプリケーションの設定を適用します。</font>
</td></tr>
<tr id="SETMAIL"\\
' If $Env.IsMSIE and ( ! $MailServer )
 style="display:none;"\\
' EndIf
><td nowrap>
<p>
' Call formNote 1
</p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap valign="top">送信メールサーバー
' Call formNecessaryMark
</td><td>
<select name="MSID">
' Options $MSID in $mw.MailServers
</select>
' Call cmLink "[詳細]" "" "$Server?page=MailServerView&wid=$WID" 0 1
</td></tr>
<tr><td nowrap>From のメールアドレス
' Call formNecessaryMark
</td><td>
' Call formText "Address" $Notify.Address 20 1 255
</td></tr>
<tr><td nowrap>From に表記する名前
</td><td>
' Call formText "FromName" $Notify.FromName 20 1
</td></tr>
<tr><td valign="top" nowrap>アカウント名
</td><td>
' Call formText "Account" $Notify.Account 20 1 255
<br>
<font color="#008800" size="-1">認証でアカウント名とパスワードが必要な場合に入力してください。</font>
</td></tr>
<tr><td valign="top" nowrap>パスワード
</td><td>
' If $Notify.Password
'  $Code = $Command.System.GetPasswordCode $Notify.Password
'  Call formPassword "Password" 40 100 0 $Code
' Else
'  Call formPassword "Password" 40 100 1
' EndIf
<br>
<font color="#008800" size="-1">認証でアカウント名とパスワードが必要な場合に入力してください。</font>
</td></tr>
<tr><td valign="top" nowrap>Reply-To
</td><td>
' Call formText "Reply" $Notify.Reply 20 1 255
<br>
<font color="#008800" size="-1">Reply-To を指定しない場合、通知メールの返信先は、From のメールアドレスになります。</font>
</td></tr>
</table>
</td></tr>
</table>
</p>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "通知の設定へ"
</body>
</html>