' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemMailAccount&wid=$WID&id=$ID
'  $Command.Mail.SetLog
'  Exit
' EndIf
' Set $ws = $mw.WorkSpaces.$WID
' Set $MailSystem = $ws.Mails.$ID
' $Name = $MailSystem.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "通信ログの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemMailAccount&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin&wid=$WID" "システム設定" $BackURL "メールアカウントの設定"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemMailServerLogSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>
$Nameで送受信をおこなう際に、メールサーバーとの通信ログを取得し、ファイルに出力する設定をします。<br>
<font color="#ff0000">通信ログを取得する場合、メール送受信の動作が遅くなりますので、調査時以外は<b>ログを取得しない</b>設定にしてください。</font>
</p>
<p>
メールサーバーとの通信ログは、以下のファイルに出力されます。
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="160" nowrap>
' Call cmImage "mail20.png"
受信ログ</td>
<td width="600" nowrap>$Env.UserDir$mw/log/mail/receive$ID$.log</td></tr>
<tr><td class="title" width="160" nowrap>
' Call cmImage "mail_sent20.png"
送信ログ</td>
<td width="600" nowrap>$Env.UserDir$mw/log/mail/send$ID$.log</td></tr>
</table>
</p>
<p>
' Set $MailProfile = $Command.Mail.GetMailTop $ID
' Call formCheckBox "Log" "メールサーバーとの通信ログを取得する" $MailProfile.Log 1 "Log"
</p>
<p>
' Call formCommit "設定する"
</p>
</form>
' Call cmChildFooter $BackURL "メールアカウントの設定へ"
</body>
</html>