' $System.NoWarning
' $System.HideCopyright
' $System.NoHeader = 1
' $System.Access Admin
' If $System.IsPost
'  Set $Sess = $Session.SetupAccount
'  $System.ContentType
'  If $Step == 2
'   If ! $Sess
'    Set $Sess = $System.CreateObject Object Session
'    Set $Session.SetupAccount = $Sess
'   EndIf
'   $Sess.Address = $Address
'   $Sess.FromName = $From
'   $Sess.Account = $Account
'   $PassCode = $Command.System.GetPasswordCode $Sess.Password
'   If $Password != $PassCode
'    $Sess.Password = $Password
'   EndIf
'   $Sess.Leave = $Leave
'   If $MSID
'    Set $Session.SetupAccount = null
'    $Command.Mail.AddAccount
'    $Step = 3
'   EndIf
'  ElIf ( $Step == 3 )
'   If $Sess
'    $Sess.MailServer = 1
'    $Sess.IMAP = $IMAP
'    $Sess.ReceiveServer = $ReceiveServer
'    $Sess.RPort = $RPort
'    If $ReceiveEncryption
'     $Sess.ReceiveEncryptionType = $ReceiveEncryptionType
'    Else
'     $Sess.ReceiveEncryptionType = 0
'    EndIf
'    $Sess.APOP = $APOP
'    $Sess.SendServer = $SendServer
'    $Sess.SPort = $SPort
'    If $SendEncryption
'     $Sess.SendEncryptionType = $SendEncryptionType
'    Else
'     $Sess.SendEncryptionType = 0
'    EndIf
'    $Sess.SMTPAuth = $SMTPAuth
'    If $SMTPAuth
'     $Sess.SMTPAuth = $Type
'    EndIf
'    $Sess.SMTPAccount = $SMTPAccount
'    $Sess.SMTPUser = $SMTPUser
'    $Sess.SMTPPassword = $SMTPPassword
'    $Sess.POPbeforeSMTP = $POPbeforeSMTP
'    $Sess.Wait = $Wait
'   EndIf
'   $Name = $Command.Mail.GetDomain $Sess.Address
'   If ! $Name
'    $Name = $ReceiveServer
'   EndIf
'   $MSID = $Command.System.AddMailServer
'   Set $Sess = $Session.SetupAccount
'   $Address = $Sess.Address
'   $From = $Sess.FromName
'   $Account = $Sess.Account
'   $Password = $Sess.Password
'   $Leave = $Sess.Leave
'   $Command.Mail.AddAccount
'  EndIf
' EndIf
' If ! $Step
'  If ! $WID
'   $WID = $mw.WorkSpaces.Head
'  EndIf
'  Set $ws = $mw.WorkSpaces.$WID
'  If ! $ID
'   $ID = $ws.Mails.Head
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' Call cmLoadStyleSheet "setting"
' $CaptionTitle = "メールアカウントの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' Init $Step = 1
' Set $MailServers = $mw.MailServers
' If $Step == 1
<!--#include file="PartsMailAccount.html"-->
<div>追加するメールアカウントの情報を設定してください。</div>
<div>
'  Call cmLink "メール送受信の設定について" "help20.png" "http://manual.cybozu.co.jp/mailwise/mw5_help/first.html" 0 1
</div>
<div style="margin-top:10px;">
' Call formNote 1
</div>
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemSetupAccount">
<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="Step" value="2">
'  If $Session.SetupAccount
'   Set $TmpObj = $System.CreateObject Object Session
'   Set $Sess = $Session.SetupAccount
'   $TmpObj.Address = $Sess.Address
'   $TmpObj.FromName = $Sess.FromName
'   $TmpObj.Account = $Sess.Account
'   $TmpObj.Password = $Sess.Password
'   $TmpObj.Leave = $Sess.Leave
'  EndIf
'  Call mailAccount "" "" $TmpObj 1
<p>
'  Call formSubmit "Submit" "　次へ　"
</p>
</form>
' ElIf $Step == 2
<!--#include file="PartsSystemMailServerSet.html"-->
<div>
  追加するメールサーバーの情報を設定してください。
</div>
<div>
'  Call cmLink "メール送受信の設定について" "help20.png" "http://manual.cybozu.co.jp/mailwise/mw5_help/first.html" 0 1
</div>
<div style="margin-top:10px;">
'  Call formNote 1 1
</div>
<form method="post" name="ServerSet" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemSetupAccount">
<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="Step" value="3">
'  Set $Sess = $Session.SetupAccount
'  If $Sess And $Sess.MailServer
'   Set $TmpObj = $System.CreateObject Object Session
'   $TmpObj.IMAP = $Sess.IMAP
'   $TmpObj.ReceiveServer = $Sess.ReceiveServer
'   $TmpObj.RPort = $Sess.RPort
'   $TmpObj.ReceiveEncryptionType = $Sess.ReceiveEncryptionType
'   $TmpObj.APOP = $Sess.APOP
'   $TmpObj.SendServer = $Sess.SendServer
'   $TmpObj.SPort = $Sess.SPort
'   $TmpObj.SendEncryptionType = $Sess.SendEncryptionType
'   $TmpObj.SMTPAuth = $Sess.SMTPAuth
'   $TmpObj.SMTPAccount = $Sess.SMTPAccount
'   $TmpObj.SMTPUser = $Sess.SMTPUser
'   $TmpObj.SMTPPassword = $Sess.SMTPPassword
'   $TmpObj.POPbeforeSMTP = $Sess.POPbeforeSMTP
'   $TmpObj.Wait = $Sess.Wait
'  Else
'   $Domain = $Command.Mail.GetDomain $Address
'   If $Domain
'    Set $TmpObj = $System.CreateObject Object Session
'    $System.SetParameter "ReceiveServer" "pop.$Domain"
'    $System.SetParameter "SendServer" "smtp.$Domain"
'    $TmpObj.ReceiveServerCandidate = $ReceiveServer
'    $TmpObj.SendServerCandidate = $SendServer
'   EndIf
'  EndIf
'  Call mailserverSet $TmpObj 1
<script>
initializeDisplay();
</script>
<p>
'  Call formSubmit "Back" "　戻る　" "this.form.Step.value=1;"
'  Call formSubmit "Submit" "　次へ　" "return onSubmit( this.form );"
</form>
</p>
' ElIf $Step == 3
<p>
メールアカウントの設定が完了しました。
</p>
'  Call cmButton "閉じる" "javascript:parent.mw.setupaccount.closeDialog()"
' EndIf
</body>
</html>