' $System.Access Mail
' $Command.Mail.AccessModify $BS
' If $System.IsPost
'  $Command.Mail.MoveSystem
'  $System.Redirect "$Server?page=MailIndex&wid=$WID&bs=$BS&tab=$Tab&sts=$STS"
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "メールのアプリケーション移動"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&bs=$BS&tab=$Tab&sts=$STS&mid=$MID&dbid=$DBID&type=$Type"
' Call cmHeader $CaptionTitle "$Server?page=MailIndex&wid=$WID&bs=$BS&tab=$Tab&sts=$STS" $WorkSpace.Mails.$BS.Name $BackURL "メールの詳細"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
''
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailMove">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="Tab" value="$Tab">
<input type="hidden" name="STS" value="$STS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
''
' Sub mainColumn
<div class="desc">\\
受信メール「<b>$m.Subject</b>」を他のメールアプリケーションに移動します。<br>\\
移動先のメールアプリケーションを選択してください。\\
</div>
' If $m.Draft
<div class="desc"><span class="fontWarning">※ メールの移動をおこなうと、編集中の内容は削除されます。</span></div>
' EndIf
<table class="formTable">
<tr><th nowrap>移動先</th>
<td nowrap>\\
<select name="TID">
' For Each $ms in $WorkSpace.Mails
'  If $ms.ID != $BS
'   Set $mp = $Command.Mail.GetMailTop $ms.ID
'   For Each $account in $mp.Accounts
<option value="$ms.ID-$account.ID">$ms.Name ($account.Name)
'   Next
'   If ! $mp.Accounts.Count
<option value="$ms.ID-0">$ms.Name
'   EndIf
'  EndIf
' Next
</select>
</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>