' $System.Access Mail
' $Command.Mail.AccessFile $BS
' If $System.IsPost
'  If $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   If $Mode != "Change"
'    $Search = 1
'   EndIf
'   $System.ContentType
'  Else
'   $System.Redirect $Server/mails.csv?page=MailExportFile&wid=$WID&bs=$BS&vid=$VID&ct=1&oencoding=$xoencoding
'   $Command.Mail.SetPersonalExport
'   Exit
'  EndIf
' EndIf
' $AccessCustomer = $WorkSpace.Customer.IsAccessFile
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' If $Env.IsMSIE
' Call cmLoadJavaScript "member_ie"
' Else
' Call cmLoadJavaScript "member_nn"
' EndIf
<!--#include file="PartsMailCondition.html"-->
' $CaptionTitle = "メールデータのCSVファイルへの書き出し"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID"
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Mails.$BS.Name
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
''
<form name="MailExport" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailExport">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If $CC
<input type="hidden" name="CC" value="$CC">
' Else
'  Set $Export = $Command.Mail.GetPersonalExport $BS
'  If $Export
'   $ItemName = $Export.ItemName
'   $Type = $Export.Type
'   $FID = $Export.FID
'   $Span = $Export.Span
'   $SetDate = $Export.SetDate
'   $EndDate = $Export.EndDate
'   $SF = $Export.SF
'   $Search = $Export.Search
'   $OR = $Export.OR
'   $Fuzzy = $Export.Fuzzy
'   Set $Conditions = $Export.Conditions
'   For Each $Item in $Export.Items
'    If $Item.Item = "Person"
'     $ItemID = $Item.IID
'     If $Customer.Person.Items.$ItemID
'      $System.AddParameter IIDs "PersonItem$ItemID"
'     EndIf
'    Elif $Item.Item = "Company"
'     $ItemID = $Item.IID
'     If $Customer.Company.Items.$ItemID
'      $System.AddParameter IIDs "CompanyItem$ItemID"
'     EndIf
'    Elif $Item.Item
'     $System.AddParameter IIDs $Item.Item
'    Else
'     $ItemID = $Item.IID
'     If $MailProfile.Items.$ItemID
'      $System.AddParameter IIDs $ItemID
'     EndIf
'    EndIf
'   Next
'  Else
'   $ItemName = 1
'   $Type = "Received"
'   $Span = 3
'   $FID = -9
'   $SF = 1
'   $System.AddParameter IIDs "Code"
'   $System.AddParameter IIDs "Quick"
'   If $MailProfile.Accounts.Count > 1
'    $System.AddParameter IIDs "Account"
'   EndIf
'   $System.AddParameter IIDs "DateAndTime"
'   $System.AddParameter IIDs "Status"
'   $System.AddParameter IIDs "Next"
'   $System.AddParameter IIDs "User"
'   $System.AddParameter IIDs "Subject"
'   $System.AddParameter IIDs "From"
'   $System.AddParameter IIDs "To"
'   $System.AddParameter IIDs "ItemCC"
'   $System.AddParameter IIDs "Data"
'   $System.AddParameter IIDs "FileName"
'   For Each $Item in $MailProfile.Items
'    $System.AddParameter IIDs $Item.ID
'   Next
'   $System.AddParameter IIDs "Comment"
'  EndIf
'  If $Conditions.Count
<input type="hidden" name="CC" value="$Conditions.Count">
'  Else
<input type="hidden" name="CC" value="1">
'  EndIf
' EndIf
''
' Sub commonColumn
' If $WorkSpace.Mails.$BS.StorageCount and ( ! $VID )
<div class="desc">このファイル出力は、現在のデータを対象としています。<br>
<!--#include file="LibraryBackNavigation.html"-->
'  Call mailStorageNavigation $WID $BS ""
</div>
' EndIf
' EndSub
''
' Sub mainColumn
<div class="desc">メールデータをCSVファイルに書き出します。</div>
<p><img src="$IMG_PATH/pin.png"> 出力内容</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="4">
<tr><td valign="top" nowrap>対象</td>
<td nowrap>
' Call formRadio "Type" "受信メール" $Type.Checked_Received "Received" "Received"
' Call formRadio "Type" "送信メール" $Type.Checked_Sent "Sent" "Sent"
' Call formRadio "Type" "送受信メール" $Type.RChecked "" "Both"
</td></tr>
' If ! $MailProfile.Folder.Disable
<tr><td valign="top" nowrap>フォルダ</td>
<td nowrap>
<select name="FID">
'  If $FID = -9
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-9" $Sel>(全て)</option>
'  $FolderOptions = $Command.Mail.GetFolderOptions $BS $FID 1 1
$_FolderOptions\\
</select>&nbsp;
'  Call formCheckBox "SF" "サブフォルダも対象とする" $SF 1 "SF"
</td></tr>
' EndIf
<tr><td valign="top" nowrap>期間</td>
<td nowrap>
' Call formRadio "Span" "本日" $Span.Checked_1 1 "today"
' Call formRadio "Span" "過去1週間" $Span.Checked_2 2 "week"
' Call formRadio "Span" "過去1ヶ月" $Span.Checked_3 3 "month"
' Call formRadio "Span" "過去3ヶ月" $Span.Checked_7 7 "three"
' Call formRadio "Span" "過去6ヶ月" $Span.Checked_8 8 "six"
' Call formRadio "Span" "過去1年" $Span.Checked_4 4 "year"
' Call formRadio "Span" "全て" $Span.Checked_5 5 "everytime"
<br>
' Call formRadio "Span" "期間指定" $Span.Checked_6 6 "date"
(
' Call formDateSpan "SetDate" "EndDate" "MailExport" 0 $SetDate $EndDate "Span[7].checked=true;"
)
</td></tr>
</table>
</blockquote>
<p><img src="$IMG_PATH/pin.png"> 出力条件</p>
<blockquote>
<p>
' Call formRadio "Search" "メールを全て出力する" $Search.RChecked 0 "SearchAll"
</p><p>
' Call formRadio "Search" "メールを絞り込んで出力する" $Search.Checked 1 "SearchFilter"
</p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td width="20"><br></td><td colspan="3">
<!--#include file="LibrarySearchCondition.html"-->
' Call searchCondition "Search[1].checked=true;"
</td></tr>
' If $CC
'  $Num = $CC - 1
'  For $i = 0 to $Num
'   $IID = $System.GetParameter IID$i
'   $Text = $System.GetParameter Text$i
'   $Expr = $System.GetParameter Expr$i
'   $Value = $System.GetParameter Value$i
'   Call QueryConditionRow $MailProfile $i $IID $Text $Expr $Value $Num "MailExport" "PreSubmit( this.form, 'Items', 'IIDs' );"
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   Call QueryConditionRow $MailProfile $CC $Cond.IID $Cond.Text $Cond.Expr $Cond.Value $Num "MailExport" "PreSubmit( this.form, 'Items', 'IIDs' );"
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow $MailProfile 0 $IID $Text $Expr $Value 0 "MailExport" "PreSubmit( this.form, 'Items', 'IIDs' );"
' EndIf
<tr><td><br></td><td colspan="3">
' Call cmButton "条件を追加する" "Mode.value='add';PreSubmit( this.form, 'Items', 'IIDs' );this.form.submit();"
</td></tr>
</table>
</blockquote>
<p><img src="$IMG_PATH/pin.png"> 出力項目</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
' If $AccessCustomer
<tr><td colspan="3"><br></td><td nowrap>項目の種類\\
<select name="ItemType" onChange="Mode.value='Change';PreSubmit( this.form, 'Items', 'IIDs' );this.form.submit();">
<option value="">メール情報</option>
<option value="1" $ItemType.Selected_1>顧客情報</option>
</select>
</td></tr>
' EndIf
<tr><td align="middle">
' Call cmImageButton "Top( this.form, 'IIDs' ); return false;" "order_top20.png"
<br><br>
' Call cmImageButton "Up( this.form, 'IIDs' ); return false;" "order_up20.png"
<br><br>
' Call cmImageButton "Down( this.form, 'IIDs' ); return false;" "order_down20.png"
<br><br>
' Call cmImageButton "Bottom( this.form, 'IIDs' ); return false;" "order_bottom20.png"
</td>
<td nowrap>
<select name="IIDs" multiple size="15">
' For Each $IID in $IIDs
'  If $IID = "Code"
<option value="$IID">メール番号</option>
'  Elif $IID = "Quick"
<option value="$IID">緊急度</option>
'  Elif $IID = "Account"
'   If $MailProfile.Accounts.Count > 1
<option value="$IID">アカウント</option>
'   EndIf
'  Elif $IID = "DateAndTime"
<option value="$IID">日時</option>
'  Elif $IID = "DateTime"
<option value="$IID">日付, 時刻</option>
'  Elif $IID = "Status"
<option value="$IID">状況</option>
'  Elif $IID = "Next"
<option value="$IID">確認者</option>
'  Elif $IID = "User"
<option value="$IID">担当者</option>
'  Elif $IID = "Subject"
<option value="$IID">件名</option>
'  Elif $IID = "Folder"
'   If ! $MailProfile.Folder.Disable
<option value="$IID">フォルダ</option>
'   EndIf
'  Elif $IID = "From"
<option value="$IID">差出人</option>
'  Elif $IID = "To"
<option value="$IID">宛先</option>
'  Elif $IID = "ItemCC"
<option value="$IID">CC</option>
'  Elif $IID = "BCC"
<option value="$IID">BCC</option>
'  Elif $IID = "Data"
<option value="$IID">本文</option>
'  Elif $IID = "FileName"
<option value="$IID">添付ファイル名</option>
'  Elif $IID = "Comment"
<option value="$IID">コメント</option>
'  Elif $IID = "URL"
<option value="$IID">メールのURL</option>
'  Elif $IID = "ReplyDateAndTime"
<option value="$IID">返信日時</option>
'  Elif $IID = "ReplyTime"
<option value="$IID">返信日, 返信時刻</option>
'  Elif $IID = "ReplySubject"
<option value="$IID">返信メールの件名</option>
'  Elif $IID = "ReplyContents"
<option value="$IID">返信メールの本文</option>
'  Else
'   If $AccessCustomer
'    If $IID = "CGID"
<option value="$IID">顧客グループ</option>
'    Elif $IID = "PersonCode"
<option value="$IID">顧客コード</option>
'    Elif $IID = "PersonName"
<option value="$IID">名前</option>
'    Elif $IID = "PersonYomi"
<option value="$IID">よみ</option>
'    Elif $IID = "Section"
<option value="$IID">部課</option>
'    Elif $IID = "PersonTel"
<option value="$IID">電話番号</option>
'    Elif $IID = "PersonMail"
<option value="$IID">メールアドレス</option>
'    Elif $IID = "PersonUser"
<option value="$IID">担当(顧客)</option>
'    Elif $IID = "Post"
<option value="$IID">配信停止</option>
'    Elif $IID = "PersonFileName"
'     If $Customer.Person.File.Size != 0
<option value="$IID">添付ファイル名(顧客)</option>
'     EndIf
'    Elif $IID = "CompanyCGID"
<option value="$IID">会社グループ</option>
'    Elif $IID = "CompanyCode"
<option value="$IID">会社コード</option>
'    Elif $IID = "CompanyName"
<option value="$IID">会社名</option>
'    Elif $IID = "CompanyYomi"
<option value="$IID">会社よみ</option>
'    Elif $IID = "CompanyTel"
<option value="$IID">電話番号(会社)</option>
'    Elif $IID = "CompanyUser"
<option value="$IID">担当(会社)</option>
'    Elif $IID = "CompanyFileName"
'     If $Customer.Company.File.Size != 0
<option value="$IID">添付ファイル名(会社)</option>
'     EndIf
'    Else
'     For Each $Item in $Customer.Person.Items
'      If $Item.Access
'       $Contains = $Command.Customer.IsAccessItem $Item
'       If ! $Contains
'        Continue
'       EndIf
'      EndIf
'      $System.SetParameter PersonIID "PersonItem$Item.ID"
'      If $IID = $PersonIID
<option value="PersonItem$Item.ID">$Item.Name</option>
'       Exit
'      EndIf
'     Next
'     For Each $Item in $Customer.Company.Items
'      If $Item.Access
'       $Contains = $Command.Customer.IsAccessItem $Item
'       If ! $Contains
'        Continue
'       EndIf
'      EndIf
'      $System.SetParameter CompanyIID "CompanyItem$Item.ID"
'      If $IID = $CompanyIID
<option value="CompanyItem$Item.ID">$Item.Name</option>
'       Exit
'      EndIf
'     Next
'    EndIf
'   EndIf
'   Set $Item = $MailProfile.Items.$IID
'   If $Item
<option value="$IID">$Item.Name</option>
'   EndIf
'  EndIf
' Next
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td>
<td nowrap valign="middle">
' Call cmButton "<< 追加" "AddMember( this.form, 'Items', 'IIDs' );"
<br><br>
' Call cmButton "削除 >>" "RemoveMember( this.form, 'IIDs' );"
</td>
<td nowrap>
<select name="Items" multiple size="15">
' If ( $ItemType = 1 ) and $AccessCustomer
'  If $Customer.Person.Groups.Count
<option value="CGID">顧客グループ</option>
'  EndIf
<option value="PersonCode">顧客コード</option>
<option value="PersonName">名前</option>
<option value="PersonYomi">よみ</option>
<option value="Section">部課</option>
<option value="PersonTel">電話番号</option>
<option value="PersonMail">メールアドレス</option>
<option value="Post">配信停止</option>
'  For Each $Item in $Customer.Person.Items
'   If $Item.Access
'    $Contains = $Command.Customer.IsAccessItem $Item
'    If ! $Contains
'     Continue
'    EndIf
'   EndIf
<option value="PersonItem$Item.ID">$Item.Name</option>
'  Next
<option value="PersonUser">担当(顧客)</option>
'  If $Customer.Person.File.Size != 0
<option value="PersonFileName">添付ファイル名(顧客)</option>
'  EndIf
'  If $Customer.Company.Groups.Count
<option value="CompanyCGID">会社グループ</option>
'  EndIf
<option value="CompanyCode">会社コード</option>
<option value="CompanyName">会社名</option>
<option value="CompanyYomi">会社よみ</option>
<option value="CompanyTel">電話番号(会社)</option>
'  For Each $Item in $Customer.Company.Items
'   If $Item.Access
'    $Contains = $Command.Customer.IsAccessItem $Item
'    If ! $Contains
'     Continue
'    EndIf
'   EndIf
<option value="CompanyItem$Item.ID">$Item.Name</option>
'  Next
<option value="CompanyUser">担当(会社)</option>
'  If $Customer.Company.File.Size != 0
<option value="CompanyFileName">添付ファイル名(会社)</option>
'  EndIf
' Else
<option value="Code">メール番号</option>
<option value="Quick">緊急度</option>
'  If $MailProfile.Accounts.Count > 1
<option value="Account">アカウント</option>
'  EndIf
<option value="DateTime">日時</option>
<option value="DateAndTime">日付, 時刻</option>
<option value="Status">状況</option>
<option value="Next">確認者</option>
<option value="User">担当者</option>
'  If ! $MailProfile.Folder.Disable
<option value="Folder">フォルダ</option>
'  EndIf
<option value="Subject">件名</option>
<option value="From">差出人</option>
<option value="To">宛先</option>
<option value="ItemCC">CC</option>
<option value="BCC">BCC</option>
<option value="Data">本文</option>
<option value="FileName">添付ファイル名</option>
'  For Each $Item in $MailProfile.Items
<option value="$Item.ID">$Item.Name</option>
'  Next
<option value="Comment">コメント</option>
<option value="URL">メールのURL</option>
<option value="ReplyTime">返信日時</option>
<option value="ReplyDateAndTime">返信日, 返信時刻</option>
<option value="ReplySubject">返信メールの件名</option>
<option value="ReplyContents">返信メールの本文</option>
' EndIf
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
</table>
</blockquote>
<p><img src="$IMG_PATH/pin.png"> その他の設定</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="4">
<tr><td colspan="2">
' Call formCheckBox "ItemName" "先頭行に項目名を書き出す" $ItemName 1 "ItemName"
</td></tr>
<tr><td valign="top" nowrap>文字コード</td>
<td nowrap>
' Call formOEncoding "xoencoding"
</td></tr>
</table>
</blockquote>
<p class="formCommit">
' Call cmButton "書き出す" "PreSubmit( this.form, 'Items', 'IIDs' );this.form.submit();"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
' EndSub
''
' Call layout_view "" "" 0 mainColumn commonColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL "メールの一覧へ"
' Else
'  Call cmFooter $BackURL "メールの一覧へ"
' EndIf
</body>
</html>