<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "名前を入力してください。" );
		return false;
	}
}
-->
</script>
''<!------------------------------------------------------------------
''  メールスペースの設定
''  構文：Call mailsystemSet <メールスペースオブジェクト>
''------------------------------------------------------------------->
' Sub mailsystemSet $ms
<!--#include file="LibraryForm.html"-->
<table border="0" cellspacing="0" cellpadding="4">
<tr><td valign="top" nowrap>名前
'  Call formNecessaryMark
</td><td valign="top">
'  Call formtext "Name" $ms.Name 20 1
</td></tr>
'  $Icon = $ms.Icon
'  Init $Icon = "1"
'  Sub selectIcon $IconImage $IconTitle $IconID
<td width="60" align="center" nowrap>
'   Call cmImage "icon_mail$IconImage$_32.png" "" "document.getElementById('$IconID').click();"
<br>
'   If $Icon = $IconImage
'    $Checked = 1
'   Else
'    $Checked = 0
'   EndIf
'   Call formRadio "Icon" $IconTitle $Checked $IconImage $IconID
</td>
'  EndSub
<tr><td valign="top" nowrap>アイコン</td><td valign="top">
<table border="0" cellspacing="0" cellpadding="4">
<tr>
'  Call selectIcon "1" "選択" "ICON_MAIL"
'  Call selectIcon "2" "選択" "ICON_MAIL2"
'  Call selectIcon "3" "選択" "ICON_MAIL3"
'  Call selectIcon "4" "選択" "ICON_MAIL4"
'  Call selectIcon "5" "選択" "ICON_MAIL5"
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="4">
<tr><td valign="top" nowrap>
'  If $ms.IconType = URL
'   $Checked = 1
'  Else
'   $Checked = 0
'  EndIf
'  Call formRadio "Icon" "アイコンのURLを指定する" $Checked "URL" "ICON_URL"
</td><td valign="top" nowrap>
'  $URL = $ms.IconURL
'  If ! $URL
'   $URL = "http://"
'  EndIf
'  Call formTextBox "URL" "$URL" 255 "" "" "Icon[5].checked=true;" 80
</td></tr>
</table>
</td></tr>
</table>
' EndSub