' $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=ManageMailDetailSet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td width="200" class="title" valign="top" nowrap>返信先</td><td width="300" nowrap>
' If $MailProfile.ReplyTo
差出人だけに返信する
' Else
全員に返信する
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>挿入アドレスの形式</td><td nowrap>
' If $MailProfile.AddressForm
(メールアドレスのみ)
' Else
&quot;顧客名\\
'  If $MailProfile.AddressTitle
<b>$MailProfile.AddressTitle</b>\\
'  EndIf
&quot; &lt;メールアドレス&gt;
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>書式編集機能</td><td nowrap>
' If $MailProfile.NoRichText
テキスト入力のみ
' Else
書式編集を使用する
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>CCの初期値</td>
<td>$MailProfile.CC<br></td></tr>
<tr><td class="title" valign="top" nowrap>BCCの初期値</td>
<td>$MailProfile.BCC<br></td></tr>
<tr><td class="title" valign="top" nowrap>引用符</td><td nowrap>
' If $MailProfile.Quot
$MailProfile.Quot
' Else
(なし)
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>メール本文の自動改行</td><td nowrap>
' If $MailProfile.LF
$MailProfile.LF 文字
' Else
(おこなわない)
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>Reply-To</td><td nowrap>$MailProfile.Reply<br></td></tr>
<tr><td class="title" valign="top" nowrap>送信メールの文字コード</td><td nowrap>
' If $MailProfile.CharSet
'  $ProfileCharSet = $MailProfile.CharSet
'  If $ProfileCharSet = "UTF-8"
ユニコード (UTF-8)
'  ElIf $ProfileCharSet = "ISO-2022-JP"
日本語 (JIS)
'  Else
$ProfileCharSet
'  EndIf
' Else
日本語 (ISO-2022-JP)
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>X-Mailer</td><td nowrap>
' If $MailProfile.DisableXMailer
記述しない
' Else
記述する
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>ファイル添付</td><td nowrap>
' If $MailProfile.File.Disable
送信メールのファイル添付を禁止する
' Elif $MailProfile.File.Delete
送信メールに添付したファイルを保存しない
' Else
送信メールに添付したファイルを保存する
' EndIf
</td></tr>
<tr><td class="title" valign="top" nowrap>ごみ箱の保存期間</td><td nowrap>
' $Garbages = $MailProfile.Garbages
' Init $Garbages = 7
' If $Garbages = -1
(無制限)
' Else
$Garbages日間
' EndIf
</td></tr>
</table>
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>