' $System.Access Mail
' $Command.Mail.AccessModify $BS
' If $System.IsPost
'  $Command.Mail.ChangeCustomer $BS $MID $DBID $Type $CID $TID
'  $System.ContentType
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' Call cmLoadJavaScript "window"
' If $System.IsPost
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
'  If $BPT
'   Set $BP = $Command.Personal.GetBackPage $BPT
'  EndIf
'  If $BP.Page = "MailCustomerHistory"
'   Set $tmpc = $Command.Customer.GetTempCustomer $BP.Args.CTID $BP.Args.TDBID
'   If $tmpc
  window.parent.opener.location.reload();
'   Else
  var openerform = window.parent.opener.document.forms['MailView'];
  if( openerform )
  {
    openerform.elements['BPT'].value = "";
    if( openerform.elements['Comment'] )
    {
      openerform.elements['Comment'].value = "";
    }
    openerform.submit();
  }
'   EndIf
'  Else
  window.parent.opener.location.reload();
'  EndIf
}
window.parent.close();
//-->
</script>
</head>
</html>
'  Exit
' EndIf
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "顧客の変更"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function PreSubmit( form )
{
  if ( IsAliveWindow( window.parent.opener ) )
  {
    var openerform = window.parent.opener.document.forms['MailView'];
    if( openerform )
    {
      form.elements['BPT'].value = openerform.elements['BPT'].value;
    }
  }
}
//-->
</script>
</head>
<body>
' Set $c = $CIndex.Cards.$CID
' If $CompanyID
'  $System.SetParameter BackURL "$Server?page=MailSelectPerson&wid=$WID&bs=$BS&cid=$CompanyID&mid=$MID&dbid=$DBID&type=$Type&tid=$TID"
' Else
'  $System.SetParameter BackURL "$Server?page=MailSelectCustomer&wid=$WID&bs=$BS&mid=$MID&dbid=$DBID&type=$Type&tid=$TID"
' EndIf
' Call cmChildHeader $CaptionTitle
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If ( $Type = "Draft" ) or ( $Type = "Sent" )
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
' Else
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
' EndIf
''
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailChangeCustomer">
<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="TID" value="$TID">
<input type="hidden" name="CID" value="$CID">
<input type="hidden" name="BPT" value="">
''
' Sub mainColumn
<div class="desc">メール「<b>$m.Subject</b>」の顧客に \\
' Call cmImage "person20.png"
<b>$c.Name</b> さんを設定します。<br>
よろしいですか？</div>
' EndSub
''
' Sub commitColumn
'  Call formCommit "はい" "いいえ" "PreSubmit( this.form );" "location.href='$BackURL.JSEscape';"
' EndSub
''
' Call layout_msg "" "" 0 mainColumn "" commitColumn
</form>
' Call cmFooter $BackURL "顧客の選択へ"
</body>
</html>