| Server IP : 133.18.244.157 / Your IP : 216.73.217.20 Web Server : Apache System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : main2 ( 81069) PHP Version : 5.6.34 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /install/page/ |
Upload File : |
' $System.Access Mail
' $Command.Mail.AccecssModify
' $System.SetParameter Arg "&bs=$BS&did=$DID"
' If $System.IsPost
' If $Text
' $Encode = $Command.String.Encode $Text
' $System.SetParameter SArg "&searchitem=$SearchItem&text=$Encode"
' EndIf
' If $AddressID
' $Command.Mail.SetInsertAddress
' EndIf
' $System.Redirect "$Server?page=$Page&wid=$WID$$Arg&cgid=$CGID&qid=$QID&gid=$GID&index=$Index&head=$Head&hid=$HID&st=$ST&target=$Target$$SArg"
' Exit
' EndIf
' If $QID and ( ! $Text )
' Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
' If ! $Search
' $ST = $Command.Customer.SetSearchQuery $WID $CGID $QID
' EndIf
' $Progress = $Command.Customer.Search $WID $ST $Head
' If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=$Page&wid=$WID$$_Arg&cgid=$CGID&qid=$QID&index=$Index&head=$Head&hid=$HID&st=$ST&target=$Target">
' EndIf
' EndIf
' Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Open
' $personalCustomer.HideClickSearch = ""
' Elif $Close
' $personalCustomer.HideClickSearch = 1
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryCustomerIndex.html"-->
' $CaptionTitle = "メールアドレスの選択"
' Call cmHead $CaptionTitle
' If ( ! $CGID ) and ( $CGID != 0 )
' If $Personal.Address.Histories.Count
' $CGID = -5
' Else
' $CGID = -4
' EndIf
' EndIf
' Set $Draft = $Command.Mail.GetDraft $BS $DID
' If $Init
' $Draft.Selected.To = ""
' $Draft.Selected.CC = ""
' $Draft.Selected.BCC = ""
' Else
' $To = $Draft.Selected.To
' $CC = $Draft.Selected.CC
' $BCC = $Draft.Selected.BCC
' EndIf
' Call cmLoadJavaScript "window"
<script language="javascript" type="text/javascript"><!--
function SelectAddress( form, id, type, mail, sid )
{
form.Address.value = mail;
form.AddressID.value = id;
form.AddressType.value = type;
form.SectionID.value = sid;
form.Head.value = '$_Head.JSEscape';
form.HID.value = '$_HID.JSEscape';
form.ST.value = '$_ST.JSEscape';
form.Index.value = '$_Index.JSEscape';
form.submit();
}
function GetTarget()
{
if( document.FormSA.Target[1].checked == true )
{
return 'CC';
}
else if( document.FormSA.Target[2].checked == true )
{
return 'BCC';
}
return 'To';
}
function onInsert( form )
{
if ( IsAliveWindow( window.parent.opener ) )
{
if( form.To.value )
{
var targetTo = opener.document.MailSend.To;
if( targetTo )
{
if( targetTo.value )
{
targetTo.value += ',';
}
targetTo.value += form.To.value;
}
}
if( form.CC.value )
{
var targetCC = opener.document.MailSend.CC;
if( targetCC )
{
if( targetCC.value )
{
targetCC.value += ',';
}
targetCC.value += form.CC.value;
}
}
if( form.BCC.value )
{
var targetBCC = opener.document.MailSend.BCC;
if( targetBCC )
{
if( targetBCC.value )
{
targetBCC.value += ',';
}
targetBCC.value += form.BCC.value;
}
}
}
window.parent.close();
return false;
}
//-->
</script>
' $System.SetParameter JSonClick "target=GetTarget();url=url+'&target='+target"
</head>
<body>
' Call cmChildHeader
' $System.CloseDatabase "mw"
' If $Progress
' Sub progressColumn
<div class="desc">現在、絞込を実行中です。しばらくお待ちください。</div>
<!--#include file="PartsProgress.html"-->
' EndSub
' Call layout_msg "" "" 0 progressColumn
' Call cmChildFooter
</body>
</html>
' Exit
' EndIf
''
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
' Init $SearchItem = $PersonalCustomer.SearchItem
<form name="FormSA" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailSelectAddress">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="DID" value="$DID">
<input type="hidden" name="CGID" value="$CGID">
<input type="hidden" name="Head" value="">
<input type="hidden" name="HID" value="">
<input type="hidden" name="ST" value="">
<input type="hidden" name="Address" value="">
<input type="hidden" name="AddressID" value="">
<input type="hidden" name="AddressType" value="">
<input type="hidden" name="Index" value="">
<input type="hidden" name="SectionID" value="">
<input type="hidden" name="Selected" value="$Draft.Address">
''
' Sub formColumn
<table class="formTable">
<tr><th nowrap>
' Call formRadio "Target" "To" $Target.Checked_To "To" "TargetTo"
</th><td nowrap>
' Call formTextBox "To" "$To" "" "Target[0].checked=true;" "" "" "formText"
</td></tr>
<tr><th nowrap>
' Call formRadio "Target" "CC" $Target.Checked_CC "CC" "TargetCC"
</th><td nowrap>
' Call formTextBox "CC" "$CC" "" "Target[1].checked=true;" "" "" "formText"
</td></tr>
<tr><th nowrap>
' Call formRadio "Target" "BCC" $Target.Checked_BCC "BCC" "TargetBCC"
</th><td nowrap>
' Call formTextBox "BCC" "$BCC" "" "Target[2].checked=true;" "" "" "formText"
</td></tr>
</table>
<p class="formCommit">
' Call cmButton "上記のアドレスを挿入する" "onInsert( this.form );" "btn_mail20.png"
' Call cmButton "キャンセルする" "javascript:window.close();" "btn_stop20.png"
</p>
' EndSub
''
' Sub commonColumn
' Call formColumn
' EndSub
''
'' <!---------------------最近使ったメールアドレスの表示----------------------------->
' Sub SelectHistoryMail $shmArg
' If ! $WorkSpace.Customer.Disable
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr class="active">
<td nowrap>$WorkSpace.Customer.Name$検索\\
<select name="SearchItem">
<option value="company" $SearchItem.Selected_company>会社名</option>
<option value="name" $SearchItem.Selected_name>名前</option>
<option value="tel" $SearchItem.Selected_tel>電話番号</option>
<option value="code" $SearchItem.Selected_code>顧客コード</option>
<option value="mail" $SearchItem.Selected_mail>メールアドレス</option>
</select>
<div class="search">
' Call formTextBox "Text" "$scmText" 100 "" "" "" "searchText"
' Call formSubmit "Search" "" "" "searchButton"
</div></td></tr></table>
' EndIf
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
' For Each $shmHistory in $Personal.Address.Histories
' $shmOID = $shmHistory.OID
' If $shmHistory.Type = "User"
' Set $shmUser = $Users.$shmOID
' If ! $shmUser
' Continue
' EndIf
' Set $v = $ViewIndex.Add
' $v.AID = -2
' Else
' Set $shmCustomer = $CIndex.Cards.$shmOID
' If ! $shmCustomer
' Continue
' EndIf
' Set $v = $ViewIndex.Add
' $v.Key = $shmHistory.SectionID
' $v.DBID = $shmCustomer.DBID
' EndIf
' $v.OID = $shmOID
' $v.Type = $shmHistory.Type
' Next
' $ViewIndex.WID = $WID
' $ViewIndex.InitCompany = 1
' $Command.Customer.CloseIndexDatabase
' $RowNum = 0
' For Each $shmData in $ViewIndex
' Inc $RowNum
' $Remainder = $Command.Math.Modulus $RowNum 2
' If $Remainder = 0
' $RowClass = "evenRow"
' Else
' $RowClass = "oddRow"
' EndIf
' $shmOID = $shmData.OID
<tr class="$RowClass underline">
' If $shmData.Type = "Customer"
<td valign="top">
' Set $shmCompany = $shmData.Company
' If $shmCompany
' Call cmImage "company20.png"
$shmCompany.Name
' EndIf
<br></td><td valign="top">
' Call cmImage "person20.png"
$shmData.Name</td><td valign="top">
' For Each $shmMail in $shmData.Mails
' Call cmLink $shmMail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$shmOID', 'Customer', '$shmMail.JSEscape', '' );"
<br>
' Next
' If ! $shmData.Mails.Count
<br>
' EndIf
</td>
' Elif $shmData.Type = "Company"
<td valign="top">
' Call cmImage "company20.png"
$shmData.Name
</td><td valign="top">
' $shmSectionID = $shmData.Key
' If $shmSectionID
' Call cmImage "section20.png"
$shmData.Sections.$shmSectionID.Name
' $shmCaption = "(部課に所属する顧客全員)"
' Else
' $shmCaption = "(会社に所属する顧客全員)"
' EndIf
<br></td>
<td valign="top">
' Call cmLink $shmCaption "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$shmOID', 'Company', '', '$shmSectionID' );"
</td>
' Else
<td><br></td><td valign="top">
' Call cmImage "user20.png"
$shmData.Name</td><td valign="top">
' If $shmData.Mail
' Call cmLink $shmData.Mail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$shmOID', 'User', '$shmData.Mail.JSEscape', '' );"
' EndIf
<br></td>
' EndIf
</tr>
' Next
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
</table>
' EndSub
''
'' <!---------------------ユーザー名簿の表示----------------------------->
' Sub SelectUserMail $sumGID $sumText $sumArg
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr class="active"><td nowrap>\\
' If $sumText
<b>検索結果の表示</b>
' Else
グループ\\
<select name="GID" onChange="this.form.submit();">
<option value="0">(全て)</option>
' Options $sumGID in $Groups
</select>
' EndIf
</td><td align="right" nowrap>ユーザー検索\\
<div class="search">
' Call formTextBox "Text" $sumText 100 "" "" "" "searchText"
' Call formSubmit "Search" "" "" "searchButton"
</div>
' If $sumText
' Call cmButton "クリアする" "target=GetTarget();location.href='$Server?page=$Page&wid=$WID$$sumArg'+'&target='+target;"
' EndIf
</td></tr></table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr class="table-header"><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
' If $sumGID and ( ! $sumText )
' Set $sumUs = $Groups.$sumGID.Users
' Else
' Set $sumUs = $Users
' EndIf
' $RowNum = 0
' For Each $sumUser in $sumUs
' If $sumText
' $sumContains = $Command.String.StrFind $sumUser.Name $sumText
' If ! $sumContains
' Continue
' EndIf
' EndIf
' Inc $RowNum
' $Remainder = $Command.Math.Modulus $RowNum 2
' If $Remainder = 0
' $RowClass = "evenRow"
' Else
' $RowClass = "oddRow"
' EndIf
<tr class="$RowClass underline"><td valign="top">
' Call cmImage "user20.png"
$sumUser.Name</td><td valign="top">
' If $sumUser.Mail
' Call cmLink $sumUser.Mail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$sumUser.ID', 'User', '$sumUser.Mail.JSEscape', '' );"
' EndIf
<br></td></tr>
' Next
<tr class="table-header"><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
</table>
' EndSub
''
'' <!---------------------顧客の表示----------------------------->
' Sub SelectCustomerMail $scmCGID $scmTarget $scmDIndex $scmQID $scmSearchItem $scmText $scmST $scmHead $scmHID $scmArg
' $scmRows = $Customer.Rows
' Init $scmRows = 20
' If $scmText
' If $scmSearchItem = "company"
' Set $scmRS = $CNameIndex.CompanyIndex.RowSet
' $scmRS.SearchText = $scmText
' Elif $scmSearchItem = "name"
' Set $scmRS = $CNameIndex.NameIndex.RowSet
' $scmRS.SearchText = $scmText
' Elif $scmSearchItem = "code"
' Set $scmRS = $CCodeIndex.CodeIndex.RowSet
' $scmRS.SearchText = $scmText
' Elif $scmSearchItem = "tel"
' $scmNText = $Command.Customer.NormalizeTel $scmText
' If $scmNText
' Set $scmRS = $CTelIndex.TelIndex.RowSet
' $scmRS.SearchText = $scmNText
' EndIf
' Elif $scmSearchItem = "mail"
' $scmNText = $Command.Customer.NormalizeMail $scmText
' If $scmNText
' Set $scmRS = $CMailIndex.MailIndex.RowSet
' $scmRS.SearchText = $scmNText
' EndIf
' EndIf
' Else
' Set $scmQueries = $Customer.$scmTarget.Queries
' If $scmQID
' Set $scmRS = $Command.Customer.GetSearchResult $WID $scmST $scmRows $scmHead
' Else
' If $scmCGID = -1
' Set $scmCustomers = $CYomiIndex.Company.Customers
' Elif ( $scmCGID = -2 ) or ( $scmCGID = -3 )
' $scmLID = $Login.ID
' Set $scmCustomers = $CYomiIndex.$scmTarget.Users.$scmLID.Customers
' Elif $scmCGID
' Set $scmCustomers = $CYomiIndex.$scmTarget.Groups.$scmCGID.Customers
' Else
' Set $scmCustomers = $CYomiIndex.Person.Customers
' EndIf
' Set $scmRS = $scmCustomers.RowSet
' EndIf
' If $scmDIndex
' $scmRS.Initial = $scmDIndex
' EndIf
' EndIf
' $scmRS.Rows = $scmRows
' If $scmHID
' $scmRS.HID = $scmHID
' $scmRS.Head = $scmHead
' EndIf
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr class="active"><td nowrap>\\
' If $scmText
<b>検索結果の表示</b>
' Else
絞込\\
<select name="QID" onChange="Text.value='';this.form.submit();">
<option value="0">(全て)</option>
' Options $scmQID in $scmQueries
</select>
' EndIf
</td><td align="right" nowrap>$WorkSpace.Customer.Name$検索\\
<select name="SearchItem">
<option value="company" $scmSearchItem.Selected_company>会社名</option>
<option value="name" $scmSearchItem.Selected_name>名前</option>
<option value="tel" $scmSearchItem.Selected_tel>電話番号</option>
<option value="code" $scmSearchItem.Selected_code>顧客コード</option>
<option value="mail" $scmSearchItem.Selected_mail>メールアドレス</option>
</select>
<div class="search">
' Call formTextBox "Text" "$scmText" 100 "" "" "" "searchText"
' Call formSubmit "Search" "" "" "searchButton"
</div>
' If $scmText
' Call cmButton "クリアする" "target=GetTarget();location.href='$Server?page=$Page&wid=$WID$$scmArg'+'&target='+target;"
' EndIf
</td></tr></table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
' $ViewIndex.WID = $WID
' If ( $scmTarget = "Company" ) or $scmText
' $ViewIndex.InitPersons = 1
' EndIf
' If ( $scmTarget = "Person" ) or $scmText
' $ViewIndex.InitCompany = 1
' EndIf
' For Each $c in $scmRS
' Set $v = $ViewIndex.Add
' If ( $scmQID > 0 ) and ( ! $Text ) and ( $Text != 0 )
' $v.OID = $c.OID
' Else
' $v.OID = $c.CID
' EndIf
' $v.DBID = $c.DBID
' Next
' $ViewIndex.Prev = $scmRS.Prev
' $ViewIndex.PID = $scmRS.PID
' $ViewIndex.Next = $scmRS.Next
' $ViewIndex.NID = $scmRS.NID
' $Command.Customer.CloseIndexDatabase
' $RowNum = 0
' For Each $cd in $ViewIndex
' Inc $RowNum
' $Remainder = $Command.Math.Modulus $RowNum 2
' If $Remainder = 0
' $RowClass = "evenRow"
' Else
' $RowClass = "oddRow"
' EndIf
<tr class="$RowClass overline">
' If $cd.CompanyID
<td valign="top">
' If $cd.Company
' Call cmImage "company20.png"
$cd.Company.Name
' EndIf
<br></td>
<td valign="top">
' Call cmImage "person20.png"
$cd.Name</td><td valign="top">
' For Each $scmMail in $cd.Mails
' Call cmLink $scmMail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$cd.OID', 'Customer', '$scmMail.JSEscape', '' );"
<br>
' Next
' If ! $cd.Mails.Count
<br>
' EndIf
' Else
<td valign="top">
' Call cmImage "company20.png"
$cd.Name
</td><td nowrap>
' $scmMail = 0
' For Each $scmP in $cd.Persons
' If $scmP.Mails.Count
' $scmMail = 1
' Exit
' EndIf
' Next
' If $scmMail
' Call cmLink "(会社に所属する顧客全員)" "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$cd.OID', 'Company', '', '' );"
' EndIf
<br></td><td><br></td></tr>
' Sub selectCompanyPerson $scmP
' $scmPID = $scmP.OID
' $scmDBID = $scmP.DBID
<tr class="$RowClass"><td><br></td>
<td valign="top">
' Call cmImage "person20.png"
$scmP.Name</td><td valign="top">
' For Each $scmMail in $scmP.Mails
' Call cmLink $scmMail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$scmPID', 'Customer', '$scmMail.JSEscape', '' );"
<br>
' Next
' If ! $scmP.Mails.Count
<br>
' EndIf
</td></tr>
' EndSub
' If $Customer.Person.Section.Disable
' For Each $scmP in $cd.Persons
' Call selectCompanyPerson $scmP
' Next
' Else
' For Each $scmPID in $cd.Member
' Set $scmP = $cd.Persons.$scmPID
' Call selectCompanyPerson $scmP
' Next
' For Each $scmSection in $cd.Sections
<tr class="$RowClass">
<td valign="top">
' Call cmImage "section20.png"
$scmSection.Name</td><td valign="top">
' $scmMail = 0
' For Each $scmPID in $scmSection.Member
' Set $scmP = $cd.Persons.$scmPID
' If $scmP.Mails.Count
' $scmMail = 1
' Exit
' EndIf
' Next
' If $scmMail
' Call cmLink "(部課に所属する顧客全員)" "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$cd.OID', 'Company', '', $scmSection.OID );"
' EndIf
<br></td><td><br></td></tr>
' For Each $scmPID in $scmSection.Member
' Set $scmP = $cd.Persons.$scmPID
' Call selectCompanyPerson $scmP
' Next
' Next
' EndIf
' EndIf
' Next
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
</table>
' $localArg = $scmArg
' If $scmText
' $scmEncode = $Command.String.Encode $scmText
' $System.SetParameter localArg "$scmArg&searchitem=$scmSearchItem&text=$scmEncode"
' EndIf
<div style="line-height:1.5em">
' If $ViewIndex.Prev or $ViewIndex.PID
<script language="JavaScript" type="text/javascript"><!--
function onHead()
{
var target=GetTarget();
var url='$Server?page=$Page&wid=$WID&vid=$VID$$_localArg&target='+target;
location.href=url;
}
function onPrev()
{
var target=GetTarget();
var url='$Server?page=$Page&wid=$WID&vid=$VID&head=$_ViewIndex.Prev&hid=$ViewIndex.PID$$_localArg&target='+target;
location.href=url;
}
-->
</script>
<a href="javascript:onHead();">先頭へ</a>
| <a href="javascript:onPrev();"><< 前の$scmRows件へ</a>
' Else
<font color="#888888">先頭へ | << 前の$scmRows件へ</font>
' EndIf
' If $ViewIndex.Next or $ViewIndex.NID
<script language="JavaScript" type="text/javascript"><!--
function onNext()
{
var target=GetTarget();
var url='$Server?page=$Page&wid=$WID&vid=$VID&head=$_ViewIndex.Next&hid=$ViewIndex.NID$$_localArg&target='+target;
location.href=url;
}
-->
</script>
| <a href="javascript:onNext();">次の$scmRows件へ >></a>
' Else
<font color="#888888">| 次の$scmRows件へ >></font>
' EndIf
</div>
' EndSub
''
' If $Text
' $System.SetParameter Arg "$Arg&cgid=$CGID"
' EndIf
''
' Sub sideColumn
<table class="category">
<tr><td><br></td></tr>
<tr><td><hr></td></tr>
<tr><td nowrap>\\
' If $CGID = -5
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-5$Arg.JsEscape'+'&target='+target;return false;">
' Call cmLink "最近使ったアドレス" "mail_sent20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
' If ! $WorkSpace.User.Disable
<tr><td nowrap>\\
' If $CGID = -4
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-4$Arg.JsEscape'+'&target='+target;return false;">
' Call cmLink $WorkSpace.User.Name "user20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
' EndIf
' If ! $WorkSpace.Customer.Disable
<tr><td nowrap>\\
' If $CGID = -1
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-1$Arg.JsEscape'+'&target='+target;return false;">
' Call cmLink "会社一覧" "company20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
<tr><td nowrap>\\
' If $CGID = -3
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-3$Arg.JsEscape'+'&target='+target;return false;">
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "(担当)" "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
' For Each $cg in $Customer.Company.Groups
<tr><td nowrap>\\
' If $CGID = $cg.ID
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=$cg.ID$$Arg.JsEscape'+'&target='+target;return false;">
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink $cg.Name "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
' Next
<tr><td nowrap>\\
' If ! $CGID
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=0$Arg.JsEscape'+'&target='+target;return false;">
' Call cmLink "顧客一覧" "person20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
<tr><td nowrap>\\
' If $CGID = -2
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-2$Arg.JsEscape'+'&target='+target;return false;">
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "(担当)" "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
' For Each $cg in $Customer.Person.Groups
<tr><td nowrap>\\
' If $CGID = $cg.ID
<div class="category-item selected"\\
' Else
<div class="category-item"\\
' EndIf
onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=$cg.ID$$Arg.JsEscape'+'&target='+target;return false;">
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink $cg.Name "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
' Next
' EndIf
<tr><td><hr></td></tr>
<tr><td><br></td></tr>
</table>
''
' $System.SetParameter Arg "$Arg&cgid=$CGID"
' If ( $CGID != -4 ) and ( $CGID != -5 )
' If ( $CGID = -1 ) or ( $CGID = -3 )
' $CType = "Company"
' Elif ( $CGID = -2 ) or ( ! $CGID )
' $CType = "Person"
' Elif $Customer.Company.Groups.$CGID
' $CType = "Company"
' Else
' $CType = "Person"
' EndIf
'' <!---------------------索引----------------------------->
' If $Index
' $Decode = $Command.String.Decode $Index
' EndIf
' If $CType = "Company"
' Call customerIndex "会社よみ" $Index $Decode $Arg $JSonClick
' Else
' Call customerIndex "よみ" $Index $Decode $Arg $JSonClick
' EndIf
' $System.SetParameter Arg "$Arg&index=$Index"
' If $QID
' $System.SetParameter Arg "$Arg&qid=$QID&st=$ST"
' EndIf
' EndIf
' EndSub
''
' Sub mainColumn
<div class="desc">挿入するメールアドレスを、下の一覧からクリックして抽出してください。</div>
' If ( $CGID = -5 ) and ( ! $Text )
' Call SelectHistoryMail $Arg
' Elif $CGID = -4
' Init $GID = $Login.FirstGID
' Call SelectUserMail $GID $Text $Arg
' Elif ! $WorkSpace.Customer.Disable
' Call SelectCustomerMail $CGID $CType $Decode $QID $SearchItem $Text $ST $Head $HID $Arg
' EndIf
' EndSub
''
' If $Text
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
' Else
' Call layout_list "" "90%" 0 mainColumn "" "10%" 0 sideColumn commonColumn
' EndIf
</form>
' Call cmChildFooter
</body>
</html>