' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="PartsSystemMailServer.html"-->
' $CaptionTitle = "メールサーバーの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<p>メールサーバーを設定してください。</p>
<p>
' Call cmLink "追加する" "write20.png" "$Server?page=SystemMailServerAdd"
' If $mw.MailServers.Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' Call cmLink "順番変更" "order20.png" "$Server?page=SystemMailServerOrder" $NoOrder
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="title"><th width="200" nowrap>名前</th><th width="400" nowrap>詳細</th><th width="200" nowrap>操作</th></tr>
' For Each $ms in $mw.MailServers
'  $msName = $ms.Name
'  If ! $msName
'   $msName = $ms.SMTP
'  EndIf
<tr><td valign="top">$msName</td><td valign="top" nowrap>
<b>受信メールサーバー</b><br>
'  Call viewReceiveServer $ms
<hr size="1"><b>送信メールサーバー</b><br>
'  Call viewSendServer $ms
</td><td valign="top" nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemMailServerModify&msid=$ms.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=SystemMailServerDelete&msid=$ms.ID"
</td></tr>
' Next
' If ! $mw.MailServers.Count
<tr><td valign="top" colspan="3" nowrap><font color="#888888">メールサーバーは設定されていません。</font></td></tr>
' EndIf
</table>
</p>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>