' $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>$AppliNameの表示を設定してください。</p>
<p>
' Call cmLink "変更する" "write20.png" "$Server?page=ManageMailViewSet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
' $Rows = $MailProfile.Rows
' Init $Rows = 50
<tr><td class="title" valign="top" nowrap>一覧画面で表示するメールの件数</td><td width="300" nowrap>$Rows 件</td></tr>
<tr><td class="title" valign="top" nowrap>一覧画面で表示する項目</td><td nowrap>
' If ! $MailProfile.LineNumber.Hidden
行数<br>
' EndIf
日時<br>
状況・確認者<br>
担当者<br>
' If ! $MailProfile.Code.Hidden
番号<br>
' EndIf
件名<br>
' If ! $MailProfile.Customer.Hidden
'  If $MailProfile.Customer.Each
宛先<br>
差出人<br>
'  Else
宛先/差出人<br>
'  EndIf
' EndIf
' $AccountSize = $MailProfile.Accounts.Count
' If $AccountSize > 1
'  If ! $MailProfile.AccountView.Hidden
アカウント<br>
'  EndIf
' EndIf
' For Each $Item in $MailProfile.Items
'  If ! $Item.Hidden
$Item.Name<br>
'  EndIf
' Next
コメント<br>
</td></tr>
<tr><td class="title" valign="top" nowrap>メールの作成画面</td>
<td nowrap>
' If $MailProfile.ViewProperty
メール情報の設定欄を表示する
' Else
メール情報の設定欄を表示しない
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>メール詳細画面での履歴件数表示</td><td nowrap>
' If $MailProfile.ViewHistory
履歴の件数を表示する
' Else
履歴の件数を表示しない
' EndIf
</td></tr>
' If ! $WorkSpace.Customer.Disable
<tr><td class="title" valign="top" nowrap>メール詳細画面に表示する顧客項目</td><td nowrap>
'  If $MailProfile.Company.CGID
'   If $Customer.Company.Groups.Count
会社グループ<br>
'   EndIf
'  EndIf
'  If $MailProfile.Company.Code
会社コード<br>
'  EndIf
'  If $MailProfile.Company.Yomi
会社よみ<br>
'  EndIf
'  If $MailProfile.Company.Tel
電話番号(会社)<br>
'  EndIf
'  For Each $Item in $Customer.Company.Items
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $IID = $Item.ID
'   If $MailProfile.Company.$IID
$Item.Name<br>
'   EndIf
'  Next
'  If $MailProfile.Company.User
担当(会社)<br>
'  EndIf
'  If $MailProfile.Company.File
添付ファイル(会社)<br>
'  EndIf
'  If $MailProfile.Person.CGID
'   If $Customer.Person.Groups.Count
顧客グループ<br>
'   EndIf
'  EndIf
'  If $MailProfile.Person.Code
顧客コード<br>
'  EndIf
'  If $MailProfile.Person.Yomi
よみ<br>
'  EndIf
'  If ( ! $Customer.Person.Section.Disable ) and $MailProfile.Person.Section
部課<br>
'  EndIf
'  If $MailProfile.Person.Tel
電話番号<br>
'  EndIf
'  If $MailProfile.Person.Mail
メールアドレス<br>
'  EndIf
'  If $MailProfile.Person.Post
配信停止<br>
'  EndIf
'  For Each $Item in $Customer.Person.Items
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $IID = $Item.ID
'   If $MailProfile.Person.$IID
$Item.Name<br>
'   EndIf
'  Next
'  If $MailProfile.Person.User
担当<br>
'  EndIf
'  If $MailProfile.Person.File
添付ファイル<br>
'  EndIf
'  If ! $MailProfile.CustomerView
<br>
'  EndIf
</td></tr>
' EndIf
</table>
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>