' $System.Access Admin
' If ! $WID
'  $WID = $mw.WorkSpaces.Head
' EndIf
' Set $ws = $mw.WorkSpaces.$WID
' If ! $ID
'  $ID = $ws.Mails.Head
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' Call cmLoadStyleSheet "setting"
' $CaptionTitle = "メールアカウントの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin&wid=$WID"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<p>
' Set $MailServers = $mw.MailServers
' If $MailServers.Count
メールアカウントを設定してください。</p><p>
'  Set $MailProfile = $Command.Mail.GetMailTop $ID
メールアカウント
'  $Count = $MailProfile.Accounts.Count
'  If $Count >= 10
'   $NoAdd = 1
'  Else
'   $NoAdd = 0
'  EndIf
'  If $Count > 1
'   $NoOrder = 0
'  Else
'   $NoOrder = 1
'  EndIf
'  Call cmLink "追加する" "write20.png" "$Server?page=SystemMailAccountAdd&wid=$WID&id=$ID" $NoAdd
'  Call cmLink "順番変更" "order20.png" "$Server?page=SystemMailAccountOrder&wid=$WID&id=$ID" $NoOrder
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="title"><th width="200">アカウント</th><th width="400">詳細</th><th width="200">操作</th></tr>
'  For Each $a in $MailProfile.Accounts
'   $MSID = $a.MSID
<tr><td valign="top" nowrap>$a.Name<br></td><td valign="top" nowrap>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>メールサーバー：$mw.MailServers.$MSID.Name</td></tr>
<tr><td nowrap>メールアドレス：$a.Address</td></tr>
'   If $a.FromName
<tr><td nowrap>From に表記する名前：$a.FromName</td></tr>
'   EndIf
'   If $a.Leave
<tr><td nowrap><font color="#ff0000">受信メールサーバーにメールを残す</font></td></tr>
'   EndIf
</table>
</td><td valign="top" nowrap>
'   Call cmLink "変更する" "write20.png" "$Server?page=SystemMailAccountModify&wid=$WID&id=$ID&acid=$a.ID"
'   Call cmLink "削除する" "delete20.png" "$Server?page=SystemMailAccountDelete&wid=$WID&id=$ID&acid=$a.ID"
</td></tr>
'  Next
</table>
<font color="#008800" size="-1">メールアカウントは10個まで登録できます。</font>
' Else
メールサーバーが設定されていないため、メールアカウントを設定できません。
<blockquote>
<font color="#ff0000">システム管理者へ：</font><br>
メールサーバーを設定してください。
</blockquote>
' EndIf
</p>
' $CanExecRoutine = $System.CanExecRoutine
' If $CanExecRoutine And ! $System.IsCloud
'  If $MailProfile.Accounts.Count and $IsTask
'   $Disable = 0
'  Else
'   $Disable = 1
'  EndIf
<p>
自動受信
'  Call cmLink "設定する" "write20.png" "$Server?page=SystemMailAutoReceive&wid=$WID&id=$ID" $Disable
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="200" nowrap>自動受信の間隔</td><td width="400" nowrap>
'  $Receive = $WorkSpace.Mails.$ID.Receive
'  If ! $IsTask
自動受信タスクが停止してます
'  Elif ! $MailProfile.Accounts.Count
受信対象となるアカウントが存在しません
'  Elif $Receive
$Receive分毎に受信する
'  Else
自動受信をしない
'  EndIf
</td></tr>
</table>
</p>
' EndIf
' If $Count And ! $System.IsCloud
<p>
メールサーバーとの通信ログ
'  Call cmLink "設定する" "write20.png" "$Server?page=SystemMailServerLogSet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="200">通信ログ</td><td width="400">
'  If $MailProfile.Log
<font color="#ff0000">ログを取得してファイルに出力する</font>
'  Else
ログを取得しない
'  EndIf
</td>
</table>
</p>
' EndIf
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>