' $System.Access Login
' $WorkSpace.AccessManage
' $AppliName = $WorkSpace.Forms.$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 $FormProfile = $Command.Form.GetFormTop $ID
<p>$AppliNameのメール通知を設定してください。</p>
' Set $Notify = $FormProfile.Notify
<p>他のユーザーへの通知
' Call cmLink "変更する" "write20.png" "$Server?page=ManageFormNotifySet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
' If $Notify.Name
'  $Name = $Notify.Name
' Else
'  $System.SetParameter Name "[メールワイズ]$AppliNameからの通知"
' EndIf
<tr><td width="200" class="title" valign="top" nowrap>通知メールの件名</td><td width="400" nowrap>$Name<br></td></tr>
<tr><td width="200" class="title" valign="top" nowrap>通知メール本文の内容</td><td nowrap>
コメント<br>
' If ! $Notify.URL
参照URL<br>
' EndIf
' If ! $Notify.Creator
作成者<br>
' EndIf
' If ! $Notify.Subject
件名<br>
' EndIf
' If ! $Notify.DateTime
日時<br>
' EndIf
' If ! $Notify.Company
会社<br>
' EndIf
' If ! $Notify.Person
顧客<br>
' EndIf
' For Each $Item in $FormProfile.Items
'  $Contains = $Notify.IIDs.Contains $Item.ID
'  If ! $Contains
$Item.Name<br>
'  EndIf
' Next
' If ! $Notify.File
添付ファイル名<br>
' EndIf
</td></tr>
</table>
</p>
' $MSID = $Notify.MSID
<p>メール環境
' Call cmLink "変更する" "write20.png" "$Server?page=ManageFormNotifyMailSet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
' If $MSID
'  Set $MailServer = $mw.MailServers.$MSID
' EndIf
' If $MailServer
<tr><td width="200" class="title" valign="top" nowrap>送信メールサーバー</td>
<td width="400" nowrap>$MailServer.Name<br></td></tr>
<tr><td width="200" class="title" valign="top" nowrap>From のメールアドレス</td>
<td width="400" nowrap>$Notify.Address<br></td></tr>
<tr><td width="200" class="title" valign="top" nowrap>From に記述する名前</td>
<td width="400" nowrap>$Notify.FromName<br></td></tr>
<tr><td width="200" class="title" valign="top" nowrap>アカウント名</td>
<td width="400" nowrap>$Notify.Account<br></td></tr>
<tr><td width="200" class="title" valign="top" nowrap>Reply-To</td>
<td width="400" nowrap>$Notify.Reply<br></td></tr>
' Else
<tr><td width="200" class="title" valign="top" nowrap>送信情報</td>
<td width="400" nowrap>送信可能な先頭メールアプリケーションの設定を適用する</td></tr>
' EndIf
</table>
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>