' $System.Access Login
' $WorkSpace.AccessManage
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "フォルダの設定"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageAdmin&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle $BackURL "運用管理"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<p>
' If $MailProfile.Folder.Disable
現在、フォルダは使用しない設定になっています。
'  Call cmLink "フォルダを使用する" "folder20.png" "$Server?page=ManageMailFolderSet&wid=$WID&id=$ID"
' Else
$AppliNameのフォルダを設定してください。
'  Call cmLink "フォルダの使用を停止する" "stop20.png" "$Server?page=ManageMailFolderSet&wid=$WID&id=$ID"
</p><p>
'  Call cmLink "追加する" "write20.png" "$Server?page=ManageMailFolderAdd&wid=$WID&id=$ID"
'  Call cmLink "自動振り分けの設定" "write20.png" "$Server?page=ManageMailFilter&wid=$WID&id=$ID&bp=f"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="300" nowrap>フォルダ名</th><th width="300" nowrap>操作</th></tr>
<tr><td nowrap>
'  Call cmImage "folder20.png"
(ルートフォルダ)</td><td>
'  $Count = $MailProfile.Folder.Folders.Count
'  If $Count > 1
'   $NoOrder = 0
'  Else
'   $NoOrder = 1
'  EndIf
'  Call cmLink "順番変更" "order20.png" "$Server?page=ManageMailFolderOrder&wid=$WID&id=$ID" $NoOrder
</td></tr>
'  $DefaultName = $MailProfile.Folder.Default.Name
'  Init $DefaultName = "(未分類)"
<tr><td nowrap><img src="$IMG_PATH/spacer.gif" width="16" height="16"><img src="$IMG_PATH/folder20.png">$DefaultName</td><td>
'  Call cmLink "変更する" "write20.png" "$Server?page=ManageMailFolderModify&wid=$WID&id=$ID"
</td></tr>
'  $FolderSetting = $Command.Mail.GetFolderSetting $WID $ID
$_FolderSetting
</table>
' EndIf
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>