' If $BS > 0
'  $System.Access Mail
'  $Command.Mail.AccessModify $BS
' EndIf
' If $WCH
'  Set $BP = $Command.Personal.SetBackPage $WCH "CustomerHistory"
'  $BP.Args.cid = $CID
'  $BP.Args.dbid = $DBID
'  $BP.Args.aid = $AID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WCV
'  Set $BP = $Command.Personal.SetBackPage $WCV "CustomerView"
'  $BP.Args.cid = $CID
'  $BP.Args.dbid = $DBID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WMC
'  Set $BP = $Command.Personal.SetBackPage $WMC "MailCustomerHistory"
'  $BP.Args.aid = $AID
'  $BP.Args.ctid = $CTID
'  $BP.Args.tdbid = $TDBID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WMI
'  Set $BP = $Command.Personal.SetBackPage $WMI "MailIndex"
'  $BP.Args.st = $ST
'  $BP.Args.sts = $STS
'  $BP.Args.fid = $FID
'  $BP.Args.view = $View
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS&mid=$MID"
' If $Type
'  $CaptionBackPage = "メールの詳細へ"
'  $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&bpt=$BPT"
'  If $Type = "Forward"
'   $System.SetParameter BackURL "$BackURL&type=Received"
'  Else
'   $System.SetParameter BackURL "$BackURL&type=$Type"
'  EndIf
' Elif $BP.Page = "CustomerView"
'  $CaptionBackPage = "顧客の詳細へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&bs=$BS$$BP.Param"
' Elif $BP.Page = "CustomerHistory"
'  $CaptionBackPage = "顧客の履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&bs=$BS$$BP.Param&CAID=$BS&COID=$MID"
' Elif $BP.Page = "MailCustomerHistory"
'  $CaptionBackPage = "メールの履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&bs=$BS$$BP.Param&CAID=$BS&COID=$MID"
' Else
'  $CaptionBackPage = "メールの一覧へ"
'  If $BP.Page = "MailIndex"
'   $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID&bs=$BS$$BP.Param"
'   $URLMailIndex = $BackURL
'  Else
'   $BackURL = $URLMailIndex
'  EndIf
' EndIf
' If $System.IsPost
'  If $Mode = "Cancel"
'   $System.Redirect $BackURL
'   $Command.Mail.CancelDraft
'   Exit
'  Elif $Mode = "Save1"
'   $Status = $Status1
'   $NextUID = $NextUID1
'   $SFID = $SFID1
'  Elif $Mode = "Save2"
'   $Status = $Status2
'   $NextUID = $NextUID2
'   $SFID = $SFID2
'  EndIf
'  $Command.Mail.SetDraft
'  If ( $Mode = "Save1" ) or ( $Mode = "Save2" )
'   Set $m = $Command.Mail.SaveDraftMail
'   $System.SetParameter FPage "$Server?page=MailView&wid=$WID&bs=$BS&mid=$m.ID&dbid=$m.DBID&type=$m.Type&bpt=$BPT"
'   If $Type = "Received"
'    $System.SetParameter FPage "$FPage&reply=1"
'   EndIf
'   $System.Redirect $FPage
'  Elif $Mode = "DeleteFile"
'   $System.Redirect $Server?page=MailSend&wid=$WID&bs=$BS&did=$DID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT
'   $Command.Mail.DeleteDraftFile
'  Elif $Mode = "Submit"
'   $System.Redirect $Server?page=MailSendConfirm&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&did=$DID&bpt=$BPT
'  Else
'   $System.Redirect $Server?page=MailSend&wid=$WID&bs=$BS&did=$DID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' If $Type = "Draft"
'  $CaptionTitle = "メールの編集"
' Elif $Type = "Sent"
'  $CaptionTitle = "メールの再送信"
' Elif $Type = "Received"
'  $CaptionTitle = "メールの返信"
' Elif $Type = "Forward"
'  $CaptionTitle = "メールの転送"
' Else
'  $CaptionTitle = "メールの作成"
' EndIf
' Call cmHead $CaptionTitle
' Call cmLoadJavaScript "tiny_mce/jquery.tinymce"
' Call cmLoadJavaScript "component/richedit"
' If ! $BS
'  For Each $ms in $WorkSpace.Mails
'   If $ms.IsAccessModify and $ms.IsMailServer
'    If $BS
'     $BS = -1
'     Exit
'    Else
'     $Available = 1
'     $BS = $ms.ID
'    EndIf
'   EndIf
'  Next
' Elif $BS > 0
'  $Available = $Command.Mail.IsAvailableSystem $BS
' EndIf
' If $Available and ( $BS != -1 )
'  Set $MailProfile = $Command.Mail.GetMailTop $BS
<script language="JavaScript" type="text/javascript"><!--
(function() {
    jQuery(function($) {
'  If ! $MailProfile.NoRichText
        $('#mailsend_data').richedit($('#mailsend_richtext'));
'  EndIf
    });
})();

function onSubmit( form )
{
    if( ! form.To.value )
    {
        alert( "To を入力してください。" );
        return false;
    }
    if( ! form.Subject.value )
    {
        if( ! confirm( "件名 が入力されていませんが、よろしいですか？" ) )
        {
            return false;
        }
    }
    form.Mode.value ="Submit";
    form.submit();
}
function onCancel( form )
{
    if( confirm( "作成中のメールの内容が破棄されますが、よろしいですか？" ) )
    {
        form.Mode.value ="Cancel";
        form.submit();
    }
    return false;
}
//-->
</script>
'  $ViewProperty = $MailProfile.ViewProperty
<!--#include file="PartsJSMailUser.html"-->
'  Call onChangeGroup $BS
' EndIf
</head>
<body>
' If $BS > 0
'  $CaptionMailIndex = $WorkSpace.Mails.$BS.Name
'  If $Type
'   Call cmHeader $CaptionTitle $URLMailIndex $CaptionMailIndex $BackURL "メールの詳細"
'  Else
'   Call cmHeader $CaptionTitle $URLMailIndex $CaptionMailIndex
'  EndIf
' Else
'  Call cmHeader $CaptionTitle
' EndIf
' If $BS = -1
'  If $Text
'   $Encode = $Command.String.Encode $Text
'  EndIf
'  Sub select_mainColumn
<div class="desc">メールの送信をおこなうアプリケーションを選択してください。</div>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr class="active"><td>メールアプリケーション</td></tr>
'  $RowNum = 0
'  For Each $ms in $WorkSpace.Mails
'   If $ms.IsAccessModify and $ms.IsMailServer
'   Inc $RowNum
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
<tr class="$RowClass underline"><td>\\
'    Call cmLink $ms.Name "write20.png" "$Server?page=MailSend&wid=$WID&bs=$ms.ID&did=$DID&mid=$MID&dbid=$DBID&type=$Type&bpt=$BPT&cid=$CID&text=$Encode"
</td></tr>
'   EndIf
'  Next
</table>
'  EndSub
'  Call layout_list "" "" 0 select_mainColumn "" "" 0
'  Call cmFooter "javascript:history.back();" "戻る"
</body>
</html>
'  Exit
' Elif ! $Available
'  Sub unavailable_mainColumn
<div>\\
メールの送信には、送信メールサーバーの設定、\\
メールアカウントの設定、及び送信アクセス権が必要です。\\
<br>システム管理者にお問い合わせ下さい。</div>
'  EndSub
'  Call layout_msg "" "" 0 unavailable_mainColumn
'  Call cmFooter $BackURL $CaptionBackPage
</body>
</html>
'  Exit
' EndIf
''
'' <!---------------------メール送信画面----------------------------->
' $Command.Mail.CheckHandle
' If ! $DID
'  $DID = $Command.Mail.InitDraft
'  If $Type = "Forward"
'   Set $Ref = $Command.Mail.GetReceivedMailData $BS $MID $DBID
'  EndIf
' EndIf
' Set $Draft = $Command.Mail.GetDraft $BS $DID
<form name="MailSend" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailSend">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="DID" value="$DID">
<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="Status" value="$Draft.Status">
<input type="hidden" name="SFID" value="$Draft.FID">
<input type="hidden" name="Mode" value="">
''
' Sub SelectStatus $MailProfile $Draft
'  Init $ssNum = 1
<div class="mailsend-selectStatus">
<span class="mailsend-selectStatus-label">処理状況を</span>\\
<select name="Status$ssNum">
<option value="-1">(処理中)
'  Options $Draft.Status in $MailProfile.Status
'  If $Draft.Status = -5
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-5" $Sel>(送信待ち)
</select>
<span class="mailsend-selectNext-label">確認者を</span>\\
<select name="NextUID$ssNum" class="status">
<option value="">----
'   For Each $u in $Users
'    var $AccessUser = $Command.Mail.IsAccessModify $BS $u.ID
'    If ! $AccessUser
'     Continue
'    EndIf
'    If $Draft.NextUID = $u.ID
'     $Sel = "Selected"
'    Else
'     $Sel = ""
'    EndIf
<option value="$u.ID" $Sel>$u.Name
'   Next
</select>
<select name="NextGID$ssNum" class="statusGID" onChange="ChangeGroup( this.form, 'NextGID$ssNum', 'NextUID$ssNum' )">
<option value="">(グループ切替)
' Options $GID in $Groups
</select>
<span class="mailsend-selectAnd-label">にして</span>\\
'  If ! $MailProfile.Folder.Disable
'   Call cmImage "folder20.png"
<select name="SFID$ssNum" class="folderID">
'    $FolderOptions = $Command.Mail.GetFolderOptions $BS $Draft.FID 1
$_FolderOptions</select>
に
'  EndIf
'  Call cmButton "書きかけ保存する" "Mode.value='Save$ssNum';this.form.submit();" "btn_temp13.png"
</div>
'  Inc $ssNum
' EndSub
''
' Sub mainColumn
'  Call SelectStatus $MailProfile $Draft
<table class="formTable mailsend-formTable">
'  If $ViewProperty
<caption><span class="caption-text">メールの内容</span></caption>
'  EndIf
<tr><th nowrap>From</th>
<td nowrap>\\
<select name="FRID" onChange="Mode.value='Select';this.form.submit();">
' For Each $From in $MailProfile.FromList
'  If $From.ID = $Draft.FRID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$From.ID" $Sel>\\
'  Call viewFrom $From
' Next
</select>
</td></tr>
<tr><th nowrap>To</th>
<td>\\
' Call formTextBox "To" "$Draft.To" "" "" "" 25 "inputText"
' If ( ! $WorkSpace.Customer.Disable ) or ( ! $WorkSpace.User.Disable )
'  Call cmButton "アドレス選択" "window.open( '$Server?page=MailSelectAddress&wid=$WID&bs=$BS&did=$DID&target=To&init=1', 'AddressSelect', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();return false;" "btn_address20.png"
' EndIf
</td></tr>
<tr><th nowrap>CC</th>
<td>\\
' Call formTextBox "CC" "$Draft.CC" "" "" "" 25 "inputText"
' If ( ! $WorkSpace.Customer.Disable ) or ( ! $WorkSpace.User.Disable )
'  Call cmButton "アドレス選択" "window.open( '$Server?page=MailSelectAddress&wid=$WID&bs=$BS&did=$DID&target=CC&init=1', 'AddressSelect', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();return false;" "btn_address20.png"
' EndIf
</td></tr>
<tr><th nowrap>BCC</th><td>\\
' Call formTextBox "BCC" "$Draft.BCC" "" "" "" 25 "inputText"
' If ( ! $WorkSpace.Customer.Disable ) or ( ! $WorkSpace.User.Disable )
'  Call cmButton "アドレス選択" "window.open( '$Server?page=MailSelectAddress&wid=$WID&bs=$BS&did=$DID&target=BCC&init=1', 'AddressSelect', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();return false;" "btn_address20.png"
' EndIf
</td></tr>
<tr><th nowrap>件名</th><td nowrap>\\
' Call formText "Subject" $Draft.Subject 25 1 200 "inputText"
' If ! $WorkSpace.Template.Disable
'  Call cmButton "テンプレート挿入" "window.open( '$Server?page=TemplateSelect&wid=$WID&bs=$BS&did=$DID&mid=$MID&dbid=$DBID&type=$Type', 'TemplateSelect', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();return false;" "btn_template20.png"
' EndIf
</td></tr>
<tr><th valign="top" nowrap>本文</th><td>\\
' $System.SetParameter Param "Cols$WID"
' $DataCols = $Login.$Param
' Init $DataCols = 70
' $System.SetParameter Param "Rows$WID"
' $DataRows = $Login.$Param
' Init $DataRows = 20
' If $Draft.HtmlData And ! $MailProfile.NoRichText
'  $HtmlData = 1
'  If $Session.Mails.$BS.SeenMails.$MID
'   $Data = $Command.RichText.Sanitize $Draft.HtmlData 1
'  Else
'   $Data = $Command.RichText.Sanitize $Draft.HtmlData 0
'  EndIf
'  $Succeeded = $Command.RichText.SanitizeSucceeded
'  If ! $Succeeded
'   $HtmlData = 0
'  EndIf
' Else
'  $HtmlData = 0
' EndIf
<input type="hidden" name="RichText" value="$HtmlData" id="mailsend_richtext"/>
<textarea id="mailsend_data" name="Data" cols="$DataCols" rows="$DataRows" wrap="virtual">
' If $Ref

'  If $HtmlData
<br>
----- Original Message -----<br>
'   $EscSubject = $Command.String.HtmlEscape $Ref.Subject
'   $EscDate = $Command.String.HtmlEscape $Ref.Date
'   $EscFrom = $Command.String.HtmlEscape $Ref.From
'   $EscTo = $Command.String.HtmlEscape $Ref.To
'   $EscCc = $Command.String.HtmlEscape $Ref.Cc
Subject: $EscSubject<br>
'   If $Ref.Date
Date: $EscDate<br>
'   Else
'    $t = $Ref.TimeStamp
Date: $t.wday, $t.Day00 $t.month $t.Year00 $t.Hour00:$t.Minute00:$t.Second00 +0900<br>
'   EndIf
From: $EscFrom<br>
To: $EscTo<br>
'   If $Ref.Cc
CC: EscCc<br>
'   EndIf
'  Else
----- Original Message -----
Subject: $Ref.Subject
'  If $Ref.Date
Date: $Ref.Date
'  Else
'   $t = $Ref.TimeStamp
Date: $t.wday, $t.Day00 $t.month $t.Year00 $t.Hour00:$t.Minute00:$t.Second00 +0900
'  EndIf
From: $Ref.From
To: $Ref.To
'  If $Ref.Cc
CC: $Ref.Cc
'  EndIf
'  EndIf
' EndIf
' If $HtmlData
$Data\\
' Else
$Draft.Data\\
' EndIf
</textarea>
</td></tr>
<tr><th valign="top" nowrap>署名</th><td>\\
<div class="mailsend-signature-select">
<select name="SGID" onChange="Mode.value='Select';this.form.submit()">
<option value="0">(なし)
' Options $Draft.SGID in $MailProfile.Signatures
</select>
</div>
' Call formText "Signature" $Draft.Signature 50 4 0 "mailsend-signature"
'  If $ViewProperty and $MailProfile.File.Disable
<br>\\
'  EndIf
</td></tr>
'  If ! $MailProfile.File.Disable
<tr><th valign="top" nowrap>ファイル</th><td>\\
<table border="0" cellspacing="0" cellpadding="0">
<tr><td rowspan="2"><select class="attachment" name="FileID" size="3">
'  For Each $File in $Draft.Files
<option value="$File.ID">$File.FileName
'  Next
<option value="">　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　</select></td>
<td>
'  Call cmButton "追加する" "window.open( '$Server?page=MailFileAdd&wid=$WID&bs=$BS&did=$DID', 'FileAdd', 'width=600,height=300,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();return false;" "btn_file_add13.png"
</td></tr>
<tr><td>
'  Call cmButton "削除する" "Mode.value='DeleteFile';this.form.submit();" "btn_delete13.png"
</td></tr></table>
' If $ViewProperty
<br>\\
' EndIf
</td></tr>
'  EndIf
</td></tr></table>
' If $ViewProperty
<table class="formTable mailsend-formTable">
<caption><span class="caption-text">メール情報の設定</span></caption>
<tr>\\
<th nowrap>緊急度</th><td nowrap>\\
'  If $Draft.Quick
'   $Checked = ""
'  Else
'   $Checked = 1
'  EndIf
'  Call formRadio "Quick" "通常" $Checked 0 "normal"
'  Call formRadio "Quick" "至急" $Draft.Quick.Checked_1 1 "up"
'  Call formRadio "Quick" "大至急" $Draft.Quick.Checked_2 2 "max"
</td></tr>
<tr><th nowrap>担当者</th><td nowrap>\\
<select name="UID">
<option value="">----
'  If $Draft.UID = $Login.ID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$Login.ID" $Sel>$Login.Name
'  For Each $u in $Users
'   If $u.ID = $Login.ID
'    Continue
'   EndIf
'   $AccessUser = $Command.Mail.IsAccessModify $BS $u.ID
'   If ! $AccessUser
'    Continue
'   EndIf
'   If $Draft.UID = $u.ID
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="$u.ID" $Sel>$u.Name
'  Next
</select>
' Call cmImage "outSide16.png"
<select name="GID" onChange="ChangeGroup( this.form, 'GID', 'UID' )">
<option value="">(グループ切替)
'  Options $GID in $Groups
</select>
</td></tr>
'  Set $Items = $MailProfile.Items
'  For Each $Item in $Items
'   $IID = $Item.ID
<tr><th valign="top" nowrap>$Item.Name</th><td>\\
'   If $Item.Multiple
'    $i = 1
'    If $Item.Line
'     $l = 0
<table border="0" cellspacing="0" cellpadding="2"><tr>
'    EndIf
'    For Each $Option in $Item.Options
'     Inc $i
'     If $Item.Line
'      If $l = $Item.Line
'       $l = 0
</tr><tr>
'      EndIf
<td nowrap>\\
'      Inc $l
'     Else
<nobr>
'     EndIf
'     $Checked = $Draft.Items.$IID.Contains $Option
'     Call formCheckBox $IID $Option $Checked $Option "Item$IID-$i"
'     If $Item.Line
</td>
'     Else
</nobr>
'     EndIf
'    Next
'    If $Item.Line
'     $Cols = $Item.Line - $l
'     If $Cols
<td colspan="$Cols"><br></td>
'     EndIf
</tr></table>
'    EndIf
'   Else
<select name="$Item.ID">
<option value="">----
'    $Selected = $Draft.Items.$IID.Head
'    Options $Selected in $Item.Options
 </select>
'   EndIf
</td></tr>
'  Next
<tr><th valign="top" nowrap>警告日時</th><td nowrap>\\
'  Call formDate "SetDate" "MailSend" 0 $Draft.SetDate
'  Call formTime "SetTime" 0 $Draft.SetTime
<br><font size="-1" color="#008800">
'  If ( $Type = "Received" ) or ( $Type = "Forward" )
指定日時を過ぎて、状況が(処理済み)でない場合に警告をします。
'  Else
指定日時を過ぎて、送信されていない場合に警告をします。
'  EndIf
</font>
</td></tr>
<tr><th valign="top" nowrap>コメント</th><td>\\
'  Call formText "Comment" $Draft.Comment 50 3
'  If ( $Type = "Received" ) or ( $Type = "Forward" )
'   Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
'  Elif ( $Type = "Sent" ) or ( $Type = "Draft" )
'   Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
'  EndIf
'  If ( $Type != "Sent" ) and $m.Comments.Count
<table class="commentTable">\\
'  $RowNum = 0
'   For Each $Comment in $m.Comments
'    Inc $RowNum
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'    $UID = $Comment.UID
'    $UserName = $Users.$UID.Name
'    Init $UserName = $Comment.UserName
'    $t = $Comment.TimeStamp
<tr class="commentTR $RowClass">\\
<td class="commentUserName" width="1%" nowrap>$UserName</td>\\
<td class="commentBody">\\
'   View $Comment.Data 1
</td>\\
<td class="commentTS" width="1%" align="right" nowrap>($t.Year/$t.Month00/$t.Day00 $t.Hour00:$t.Minute00)</td></tr>\\
'   Next
</table>
'  EndIf
 </table>
'  EndIf
'  Call SelectStatus $MailProfile $Draft
' EndSub
''
' Call layout_view "" "" 0 mainColumn commonColumn commonColumn
</form>
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>
''
' Sub viewFrom $argFrom
'  If $argFrom.FromName
&quot;$argFrom.FromName&quot; &lt;$argFrom.Address&gt;
'  Else
$argFrom.Address
'  EndIf
' EndSub
''
' Sub commonColumn
'  Call menuColumn
' EndSub
''
' Sub menuColumn
<table class="menuColumn"><tr><td nowrap>\\
'  $AccessSend = $WorkSpace.Mails.$BS.IsAccessSend
'  If $AccessSend
'   Call cmButton "送信する >>" "onSubmit( this.form );" "btn_mail20.png"
'  EndIf
'  Call cmButton "キャンセルする" "onCancel( this.form );" "btn_stop20.png"
</td></tr></table>
' EndSub