<!--#include file="LibraryForm.html"-->
' Sub mailFrom $MailProfile $From
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	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">
<tr><td>メールアカウント</td><td>
'  If $From.Default
'   Set $Account = $From.Account
<b>$Account.Name</b>
<input type="hidden" name="ACID" value="$Account.ID">
'  Else
<select name="ACID">
'   For Each $Account in $MailProfile.Accounts
'    If $Account.ID = $From.Account.ID
'     $Sel = "Selected"
'    Else
'     $Sel = ""
'    EndIf
<option value="$Account.ID" $Sel>$Account.Name
'   Next
</select>
'  EndIf
</td></tr>
<tr><td>メールアドレス
'  Call formNecessaryMark
</td><td>
'  Call formText "Address" $From.Address 20 1 255
</td></tr>
<tr><td>From に表記する名前
</td><td>
'  Call formtext "From" $From.FromName 20 1
</td></tr>
</table>
</p>
' EndSub