' $System.Access Mail
' $Command.Mail.AccessSend $BS
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' If $BP.Page = "MailIndex"
'  $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS&mid=$MID$$BP.Param"
' Else
'  $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS&mid=$MID"
' EndIf
' If $System.IsPost
'  If $BPT
'   Set $BP = $Command.Personal.GetBackPage $BPT
'   If $BP.Page = "MailCustomerHistory"
'    Set $tmpc = $Command.Customer.GetTempCustomer $BP.Args.CTID $BP.Args.TDBID
'   EndIf
'  EndIf
'  If ( $BP.Page = "CustomerView" ) or ( $BP.Page = "CustomerHistory" ) or $tmpc
'   $System.Redirect $Server?page=$BP.Page&wid=$WID$$BP.Param
'  Else
'   $System.Redirect $URLMailIndex
'  EndIf
'  $Command.Mail.SendMail
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' $CaptionTitle = "メールの送信"
' If $Type = "Draft"
'  $CaptionBackPage = "メールの編集へ"
'  $CaptionMailSend = "メールの編集"
' Elif $Type = "Sent"
'  $CaptionBackPage = "メールの再送信へ"
'  $CaptionMailSend = "メールの再送信"
' Elif $Type = "Received"
'  $CaptionBackPage = "メールの返信へ"
'  $CaptionMailSend = "メールの返信"
' Else
'  $CaptionBackPage = "メールの作成へ"
'  $CaptionMailSend = "メールの作成"
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
' $CaptionMailIndex = $WorkSpace.Mails.$BS.Name
' $System.SetParameter BackURL "$Server?page=MailSend&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&did=$DID&bpt=$BPT"
' If $Type
'  $System.SetParameter URLMailView "$Server?page=MailView&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&bpt=$BPT"
'  If $Type = "Forward"
'   $System.SetParameter URLMailView "$URLMailView&type=Received"
'  Else
'   $System.SetParameter URLMailView "$URLMailView&type=$Type"
'  EndIf
'  Call cmHeader $CaptionTitle $URLMailIndex $CaptionMailIndex $URLMailView "メールの詳細" $BackURL $CaptionMailSend
' Else
'  Call cmHeader $CaptionTitle $URLMailIndex $CaptionMailIndex $BackURL $CaptionMailSend
' EndIf
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $Draft = $Command.Mail.GetDraft $BS $DID
<form name="SendConfirm" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailSendConfirm">
<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="DID" value="$DID">
<input type="hidden" name="BPT" value="$BPT">
''
' If $Type = "Received"
'  $SetStatus = 1
'  $Status = -2
' Elif $Type = "Forward"
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
'  $MUID = $m.ModifyUID
'  If ! $Users.$MUID
'   $SetStatus = 1
'   $Status = $Draft.Status
'  EndIf
' EndIf
<input type="hidden" name="Status" value="-3">
<input type="hidden" name="FID" value="$Draft.FID">
<input type="hidden" name="Sent" value="">
<script language="JavaScript" type="text/javascript"><!--
document.forms['SendConfirm'].Sent.value='';
//-->
</script>
''
' Sub commonColumn
'  Init $selNum = 1
'  Call operationMail $selNum
'  Inc $selNum
' EndSub
''
' Sub operationMail $selNo
<table class="menuColumn"><tr><td nowrap>
'  If $SetStatus
'   Call cmImage "item16.png"
'   If $Type = "Forward"
 転送\\
'   Else
 送信\\
'   EndIf
後の処理状況
<select name="Status$selNo">
<option value="0">(未処理)
'   If $Status = -1
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="-1" $Sel>(処理中)
'   Options $Status in $MailProfile.Status
'   If $m.Draft
'    If $Status = -5
'     $Sel = "Selected"
'    Else
'     $Sel = ""
'    EndIf
<option value="-5" $Sel>(送信待ち)
'   EndIf
'   If $Status = -2
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="-2" $Sel>(処理済み)
</select>&nbsp;
'  EndIf
'  If ! $MailProfile.Folder.Disable
メールの格納フォルダ
'   Call cmImage "folder20.png"
<select name="FID$selNo">
'   $FolderOptions = $Command.Mail.GetFolderOptions $BS $Draft.FID 1
$_FolderOptions</select>
'  EndIf
'  If $SetStatus or ( ! $MailProfile.Folder.Disable )
</td></tr><tr><td nowrap>
'  EndIf
<script language="JavaScript" type="text/javascript"><!--
function onSubmit$selNo( form )
{
'  If $SetStatus
    var selectpos = form.Status$selNo
    var i = selectpos.selectedIndex;
    form.Status.value = selectpos.options[i].value;
'  EndIf
'  If ! $MailProfile.Folder.Disable
    var selectpos = form.FID$selNo
    var i = selectpos.selectedIndex;
    form.FID.value = selectpos.options[i].value;
'  EndIf
    if( form.Sent.value != 1 )
    {
        form.Sent.value = 1;
        form.submit();
    }
    else
    {
        form.Sent.value = "";
        return false;
    }
}
//-->
</script>
'  Call cmButton "送信する" "onSubmit$selNo( this.form );" "btn_mail20.png" "" "Submit"
'  Call cmButton "内容を修正する" "location.href='$BackURL.JSEscape';" "btn_write20.png" "" "Cancel"
</td></tr>
</table>
' EndSub
''
' Sub mainColumn
<div class="desc">以下のメールを送信します。よろしいですか？</div>
' Call CheckMailAddress "To"
' Call CheckMailAddress "CC"
' Call CheckMailAddress "BCC"
<table width="100%" class="dataView">
<tr><th nowrap>From</th><td>$Draft.From</td></tr>
<tr><th nowrap>To</th><td>$Draft.To</td></tr>
<tr><th nowrap>CC</th><td>$Draft.CC<br></td></tr>
<tr><th nowrap>BCC</th><td>$Draft.BCC<br></td></tr>
<tr><th nowrap>件名</th><td>$Draft.Subject<br></td></tr>
<tr><th nowrap>本文</th>
<td nowrap>\\
' If $Draft.HtmlData
<div class="re-content">
'  $Command.RichText.View $Draft.HtmlData
</div>
' Else
'  View $Draft.Data
' EndIf
</td></tr>
<tr><th nowrap>署名</th><td nowrap>\\
' View $Draft.Signature
</td></tr>
' If ! $MailProfile.File.Disable
<tr><th nowrap>添付ファイル</th>
<td>\\
'  For Each $File in $Draft.Files
'   $System.SetParameter Inline "Inline$WID"
'   $System.FileLink $File Personal $Login.$Inline 0
<br>
'  Next
'  If ! $Draft.Files.Count
<br>
'  EndIf
</td></tr>
' EndIf
</table>
' EndSub
''
' Call layout_view "" "" 0 mainColumn commonColumn commonColumn
</form>
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>
''
' Sub CheckMailAddress $Target
'  $Valid = $Command.Mail.IsValidMailAddress $Draft.$Target
'  If ! $Valid
<div class="desc"><span class="fontWarning">「$Target」欄のメールアドレスが不正である可能性があります。</span></div>
'  EndIf
' EndSub