' $System.Access Mail
' $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT"
' If $System.IsPost
'  $System.Redirect $BackURL
'  $Command.Mail.Notify
'  Exit
' EndIf
' Set $ms = $WorkSpace.Mails.$BS
' $Name = $ms.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibrarySelect.html"-->
' $CaptionTitle = "他のユーザーへの通知"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( form.NotifyUIDs.length <= 1 )
	{
		alert( "通知先を選択してください。" );
		return false;
	}
	PreSubmitGID( form );
	return true;
}
//-->
</script>
</head>
<body>
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS$$BP.Param"
' Call cmHeader $CaptionTitle $URLMailIndex $Name $BackURL "メールの詳細"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If $Type = "Received"
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
' Else
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
' EndIf
''
' $Available = $Command.Mail.IsAvailableSystem $BS
' If ! $Available
'  Sub availableColumn
メール通知をおこなうには、メールサーバーとメールアカウントの設定が必要です。<br>
システム管理者にお問い合わせ下さい。<br>
'  EndSub
'  Call layout_msg "" "" 0 availableColumn
'  Call cmFooter $BackURL "メールの詳細へ"
</body>
</html>
'  Exit
' EndIf
''
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailNotify">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Subject" value="件名">
<input type="hidden" name="DateTime" value="日時">
<input type="hidden" name="From" value="差出人">
<input type="hidden" name="To" value="宛先">
<input type="hidden" name="Folder" value="保存先フォルダ">
<input type="hidden" name="File" value="添付ファイル名">
<input type="hidden" name="Title" value="[メールワイズ]$Nameからの通知">
'  If $Type = "Sent"
'   $Value = "送信済み"
'  Else
'   $Status = $m.Status
'   If $MailProfile.Status.$Status
'    $Value = $MailProfile.Status.$Status.Name
'   Elif $m.Status = -1
'    $Value = "処理中"
'   Elif $m.Status = -2
'    $Value = "処理済み"
'   Elif $m.Status = -5
'    $Value = "送信待ち"
'   Else
'    $Value = "未処理"
'   EndIf
'  EndIf
<input type="hidden" name="Status" value="状況 : $Value">
'  If $m.Quick = 1
'   $Value = "至急"
'  Elif $m.Quick = 2
'   $Value = "大至急"
'  Else
'   $Value = "通常"
'  EndIf
<input type="hidden" name="Quick" value="緊急度 : $Value">
'  $UID = $m.UID
'  $UserName = $Users.$UID.Name
'  If ! $UserName
'   If $m.UserName
'    $UserName = $m.UserName
'   Else
'    $UserName = $CaptionUndef
'   EndIf
'  EndIf
<input type="hidden" name="UserName" value="担当者 : $UserName">
'  $System.SetParameter URL "page=MailView&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type"
<input type="hidden" name="URL" value="$URL">
'  If ! $mw.URL
<input type="hidden" name="_URL" value="1">
'  EndIf
''
'  Sub mainColumn
<div class="desc">指定されたユーザーに、メールで通知します。通知情報を入力してください。</div>
<table class="formTable">
<tr><th nowrap>通知先</th>
<td nowrap>\\
'  Set $AccessCommand = $Command.Mail
'  Call selectUser "GID" "NotifyUIDs" "UIDs" "" "" $Login.FirstGID "" $AccessCommand 1
'  Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
'  If $PersonalMail.Notify.Comment
'   $Checked = 0
'  Else
'   $Checked = 1
'  EndIf
'  Call formCheckBox "UserReceived" "通知先をコメントで残す" $Checked 1 "UserReceived"
</td></tr>
<tr><th nowrap>コメント</th>
<td nowrap>\\
'  Call formText "Comment" "" 80 3
</td></tr>
</table>
'  EndSub
''
'  Sub commitColumn
'  Call formCommit "通知する"
'  EndSub
''
'  Call layout_view "" "" 0 mainColumn "" "" commitColumn
</form>
' Call cmFooter $BackURL "メールの詳細へ"
</body>
</html>