' Sub ProcessMail $mail_app $wid $bs $MailProfile $RS
'  Var $RowNum = 0
'  For Each $MD in $RS
'   $lclMID = $MD.OID
'   $lclDBID = $MD.DBID
'   $lclType = $MD.Type
'   Var Set $mail = $System.CreateObject Object Session
'   Inc $RowNum
'   $mail.dbid = $lclDBID
'   $mail.mid = $lclMID
'   $System.SetParameter url "$System.LocationPath$$Server?page=MailView&wid=$wid&bs=$bs&mid=$lclMID&dbid=$lclDBID&type=Received"
'   $mail.url = $url
''  日付
'   Var $lclTS = $MD.TimeStamp
'   $System.SetParameter lclDateTime "$lclTS.Year/$lclTS.Month/$lclTS.Day $lclTS.Hour:$lclTS.Minute00"
'   $mail.date = $lclDateTime
''  緊急度
'   $mail.priority = $MD.Quick
'   If $MD.Quick = 1
'    $mail.priority = "至急"
'   Elif $MD.QUick = 2
'    $mail.priority = "大至急"
'   Else
'    $mail.priority = ""
'   EndIf
''  状況
'   $SelStatus = $MD.Status
'   If $lclType = "Sent"
'    $mail.status = "送信済み"
'   Elif $SelStatus = -1
'    $mail.status = "処理中"
'   Elif $SelStatus = -2
'    $mail.status = "処理済み"
'   Elif $SelStatus = -5
'    $mail.status = "送信待ち"
'   Else
'    Set $lclST = $MailProfile.Status.$SelStatus
'    If $lclST
'     $mail.status = $lclST.Name
'    Else
'     $mail.status = "未処理"
'    EndIf
'   EndIf
''  担当者
'   Var $lclMUID = $MD.UID
'   Var Set $lclUser = $Users.$lclMUID
'   If $lclUser
'    $mail.assignee = $lclUser.Name
'   Else
'    $mail.assignee = $MD.UserName
'   EndIf
''  確認者
'   Var $lclMUID = $MD.NextUID
'   Var Set $lclUser = $Users.$lclMUID
'   If $lclUser
'    $mail.worker = $lclUser.Name
'   Else
'    $mail.worker = ""
'   EndIf
''  メール番号
'   $mail.code = $MD.Code
''  件名
'   Var $lclSubject = $MD.Subject
'   Var $lclSubjectLength = $MailProfile.Subject.Length
'   $mail.subject = $lclSubject
''  差出人
'   $mail.to = $MD.to
''  宛先
'   If $MD.FromName
'    $mail.from = $MD.FromName
'   Else
'    $mail.from = $MD.From
'   EndIf
'   $mail_app.Add $mail
'  Next
' EndSub
''
' Sub ProcessMailApp $work_space $wid $bs $MailProfile
'  Var Set $mail_app = $System.CreateObject List Session
'  $work_space.Put $bs $mail_app
'  Set $Notifications = $Session.Notification
'  If ! $Notifications
'   Set $Notifications = $System.CreateObject DWordMap Session
'   Set $Session.Notification = $Notifications
'  EndIf
'  Set $Notification = $Notifications.$BS
'  If ! $Notification
'   Set $Notification = $System.CreateObject Object Session
'   $Notifications.Put $BS $Notification
'  EndIf
'  Var Set $MWIndex = $Command.Mail.GetWorkIndexTop $BS
'  Var $LID = $Login.ID
'  If $folder == "assigned"
'   $UnreadAssigned = $MWIndex.Users.$LID.UnreadAssigned
'   $Notification.Assigned = $UnreadAssigned
'   $fid = -1
'  ElIf $folder == "todos"
'   $UnreadToDos = $MWIndex.Users.$LID.UnreadToDos
'   $Notification.ToDos = $UnreadToDos
'   $fid = -7
'  EndIf
'  Set $Mails = $Command.Mail.GetIndexMails $bs $fid
'  Set $rs = $Mails.RowSet
'  $rs.Rows = 20
'  $ViewIndex.Clear
'  $ViewIndex.WID = $wid
'  For Each $m in $rs
'   Set $v = $ViewIndex.Add
'   $v.AID = $BS
'   $v.OID = $m.MID
'   $v.DBID = $m.DBID
'   $v.Type = $m.Type
'  Next
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  $Command.Mail.CloseIndexDatabase $bs
'  $Command.Mail.CloseWorkDatabase $bs
'  Call ProcessMail $mail_app $wid $bs $MailProfile $ViewIndex
'  $Command.Mail.CloseDatabase $bs
' EndSub
''
' Sub ProcessWorkspace $work_spaces $WS
'  Var $wid = $WS.ID
'  Var Set $work_space = $System.CreateObject DWordMap Session
'  $work_spaces.Put $wid $work_space
'  For Each $m in $WS.Mails
'   If (! $bs) Or ($bs == $m.ID)
'    Var Set $MailProfile = $Command.Mail.GetMailTop $m.ID
'    Call ProcessMailApp $work_space $wid $m.id $MailProfile
'   EndIf
'  Next
' EndSub
''
' Init $oencoding = "UTF-8"
' If $Callback
'  $System.SetParameter content_type "application/javascript; charset=$oencoding"
' Else
'  $System.SetParameter content_type "application/json; charset=$oencoding"
' EndIf
' $System.ContentType $content_type
' $System.NoWarning
' $Command.CBApi.HideCopyright
' If $Callback
'  If ! $System.IsJSONP
'   Exit
'  EndIf
' Else
'  If ! $System.IsPostNoCSRF
'   $Error = 101
'  EndIf
' EndIf
' If ($folder != "assigned") And ($folder != "todos")
'  $Error = 101
' EndIf
' If ! $Login.ID
'  $Error = 10102
' EndIf
' If $Error
<!--#include file="MWError.html"-->
'  Exit
' EndIf
' $System.Access Login
' Set $obj = $System.CreateObject Object Session
'' 保存しないとList.Addができない
' Set $Session.ApiNotificationList = $obj
' $obj.status = "ok"
' Set $work_spaces = $System.CreateObject DWordMap Session
' Set $Obj.Workspaces = $work_spaces
' If $wid
'  Call ProcessWorkspace $work_spaces $Profile.WorkSpaces.$wid
' Else
'  For Each $ws in $Profile.WorkSpaces
'   Call ProcessWorkspace $work_spaces $ws
'  Next
' EndIf
' $json = $Command.String.ToJson $Obj
' If $Callback
$Callback( $_json );
' Else
$_json
' EndIf