<!--#include file="LibraryForm.html"-->
' Sub mailAccount $maCaption $maCancel $maInfo $wizard
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Account.value )
	{
		alert( "アカウント名を入力してください。" );
		return false;
	}
	if( ! form.Address.value )
	{
		alert( "メールアドレスを入力してください。" );
		return false;
	}
	if( ! mw.isValidMailAddress(form.Address.value) )
	{
		alert( "メールアドレスが不正です。" );
		return false;
	}
	return true;
}
-->
</script>
<p><table border="0" cellspacing="0" cellpadding="2">
'  If ! $wizard Or $MailServers.Count
<tr><td nowrap valign="top">メールサーバー
'   Call formNecessaryMark
</td><td>
<select name="MSID">
'   Options $maInfo.MSID in $mw.MailServers
'   If $wizard
<option value=""
'    If $maInfo
 selected="selected"
'    EndIf
>メールサーバーを追加する</option>
'   EndIf
</select>
'   Call cmLink "[詳細]" "" "$Server?page=MailServerView&wid=$WID" 0 1
</td></tr>
'  EndIf
<tr><td nowrap>メールアドレス
'  Call formNecessaryMark
</td><td>
'  Call formText "Address" $maInfo.Address 20 1 255 "mailaccount-text"
</td></tr>
<tr><td nowrap>From に表記する名前
</td><td>
'  Call formtext "From" $maInfo.FromName 20 1 "" "mailaccount-text"
</td></tr>
<tr><td nowrap>アカウント名
'  Call formNecessaryMark
</td><td>
'  Call formText "Account" $maInfo.Account 20 1 255 "mailaccount-text"
</td></tr>
<tr><td nowrap>パスワード
</td><td>
'  If $maInfo
'   $maCode = $Command.System.GetPasswordCode $maInfo.Password
'   Call formPassword "Password" 20 100 0 $maCode "mailaccount-text"
'  Else
'   Call formPassword "Password" 20 100 1 "" "mailaccount-text"
'  EndIf
</td></tr>
'  If ! $wizard
<tr><td nowrap valign="top">表示名
</td><td>
'  Call formtext "Alias" $maInfo.Alias 20 1 "" "mailaccount-text"
<br><font size="-1" color="#008800">システム内で表示される名前です。任意の文字列を入力してください。</font>
</td></tr>
'  EndIf
<tr><td nowrap><br></td><td>
'  $LeaveMsg = $maInfo.Leave
'  If ! $maInfo
'   $LeaveMsg = 1
'  EndIf
'  Call formCheckBox "Leave" "受信メールサーバーにメールを残す" $LeaveMsg 1 "Leave"
</td></tr>
<tr><td nowrap><br></td><td><br>
「受信メールサーバーにメールを残す」設定で運用を続けると、<br>
メール受信操作が遅くなります。<br>
<font color="#ff0000">本運用時</font>は、受信メールサーバーにメールを残さない設定にしてください。
</td></tr>
</table>
</p>
'  If ! $wizard
'   $escmaCancel = $Command.String.JSEncode $maCancel
'   Call formCommit $maCaption "" "" "location.href='$escmaCancel';"
'  EndIf
' EndSub