' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemMailAccount&wid=$WID&id=$ID
'  $Command.Mail.DeleteAccount
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.html"-->
' $CaptionTitle = "メールアカウントの削除"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemMailAccount&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin&wid=$WID" "システム設定" $BackURL "メールアカウントの設定"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemMailAccountDelete">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="ACID" value="$ACID">
' Set $account = $MailProfile.Accounts.$ACID
' If $account.Alias
'  $System.SetParameter AName "$account.Alias ($account.Account)"
' Else
'  $AName = $account.Account
' EndIf
' Call delConfirm "メールアカウント" $AName "このメールアカウントのFromも全て削除されます。<br>すでに受信済みのメールは削除されません。"
</form>
' Call cmChildFooter $BackURL "メールアカウントの設定へ"
</body>
</html>