| 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 : |
' If ! $incLibraryMailView ' $incLibraryMailView = 1 '' ''<!------------------------------------------------------------------ '' mvProperty '' メール情報の表示 '' 構文：Call mvProperty <メールシステム情報> <メールデータ> <システムID> <メールID> <メールDB番号> <種別> <詳細非表示フラグ> <画面遷移用CGI変数> ''-------------------------------------------------------------------> ' Sub mvProperty $mvProfile $mvMD $mvBS $mvMID $mvDBID $mvType $mvHideDetail $mvArg ' $mvNextUID = 0 ' If ( $Type != "Sent" ) and $mvMD.NextUID ' $mvNextUID = $mvMD.NextUID ' EndIf ' $mvNextUser = $Users.$mvNextUID.Name '' <!---------------------状況-----------------------------> <tr><th nowrap>状況</th><td \\ ' var $localAutoReplyTime = "" ' If $mvType != "Sent" ' $localAutoReplyTime = $mvMD.AutoReplyTime ' If $localAutoReplyTime colspan="1" \\ ' Else colspan="5" \\ ' EndIf ' Else width="100" \\ ' EndIf nowrap> ' $mvStatus = $mvMD.Status ' If $mvType = "Sent" ' $mvSTColor = $mvProfile.ColorStatusSent ' $mvSTName = "(送信済み)" ' ElIf $mvStatus = -1 ' $mvSTColor = $mvProfile.ColorStatusWorking ' $mvSTName = "(処理中)" ' Elif $mvStatus = -2 ' $mvSTColor = $mvProfile.ColorStatusFinished ' $mvSTName = "(処理済み)" ' Elif $mvStatus = -5 ' $mvSTColor = $mvProfile.ColorStatusWaiting ' $mvSTName = "(送信待ち)" ' Elif $mvProfile.Status.$mvStatus ' Set $mvs = $mvProfile.Status.$mvStatus ' $mvSTColor = $mvs.Color ' $mvSTName = "$mvs.Name" ' Else ' $mvSTColor = $mvProfile.ColorStatusToDo ' $mvSTName = "(未処理)" ' EndIf ' If $mvSTColor <span class="label color$mvSTColor">\\ ' Else <span class="label color1">\\ ' EndIf $mvSTName</span>\\ </td> '' <!-------------------自動返信日時-------------------------> ' If $localAutoReplyTime <th class="dataViewTH" nowrap>自動返信日時</th><td class="dataViewTD" colspan="3">\\ ' If $Date.Year != $localAutoReplyTime.Year $localAutoReplyTime.Year/ ' EndIf $localAutoReplyTime.Month/$localAutoReplyTime.Day $localAutoReplyTime.Hour:$localAutoReplyTime.Minute00</td> ' EndIf '' <!---------------------確認者-----------------------------> ' If $mvType != "Sent" </tr> <tr><th nowrap>確認者</th><td width="1%" nowrap>\\ ' If $mvNextUser ' If $WorkSpace.User.Disable $mvNextUser ' Else ' If $System.IsCloudUserAdmin ' var Set $localNextU = $Users.$mvNextUID ' var $localNextAccountEncoded = $Command.String.EncodeURLEncode $localNextU.Account ' Call cmLink $mvNextUser "" "/users/$localNextAccountEncoded" 0 1 ' Else ' Call cmLink $mvNextUser "" "$Server?page=UserView&wid=$WID&uid=$mvNextUID" 0 1 ' EndIf ' EndIf ' Else <span class="fontGrayOut">(未設定)</span> ' EndIf <br></td> ' EndIf '' <!---------------------緊急度-----------------------------> <th class="notFirst" nowrap>緊急度</th><td width="100px" nowrap>\\ ' If $mvMD.Quick = 1 <span class="label hurry">至急</span>\\ ' Elif $mvMD.Quick = 2 <span class="label urgent">大至急</span>\\ ' Else 通常\\ ' EndIf </td> '' <!---------------------担当者-----------------------------> <th class="notFirst" nowrap>担当者</th><td nowrap>\\ ' $mvUID = $mvMD.UID ' $mvUserName = $Users.$mvUID.Name ' If $mvUserName ' If $WorkSpace.User.Disable $mvUserName ' Else ' If $System.IsCloudUserAdmin ' var Set $localU = $Users.$mvUID ' var $localAccountEncoded = $Command.String.EncodeURLEncode $localU.Account ' Call cmLink $mvUserName "" "/users/$localAccountEncoded" 0 1 ' Else ' Call cmLink $mvUserName "" "$Server?page=UserView&wid=$WID&uid=$mvUID" 0 1 ' EndIf ' EndIf ' Else ' If $mvMD.UserName ' $mvUserName = $mvMD.UserName $mvUserName ' Else <span class="fontGrayOut">(未設定)</span> ' EndIf ' EndIf ' If $mvType = "Received" ' $mvLastUID = $mvMD.LastUID ' $mvLastUser = $Users.$mvLastUID.Name ' If ! $mvLastUser ' $mvLastUser = $mvMD.LastUser ' EndIf ' If $mvLastUser <span class="lastuser">前回：$mvLastUser</span> ' EndIf ' EndIf <br></td></tr> ' If ! $mvHideDetail '' <!---------------------分類-----------------------------> ' Set $mvItems = $mvProfile.Items ' $i = 0 ' For Each $mvItem in $mvItems ' $mvIID = $mvItem.ID ' If $i = 0 <tr><th nowrap>\\ ' Else <th class="notFirst" nowrap>\\ ' EndIf $mvItem.Name</th><td>\\ ' $mvFirst = 1 ' Set $mvValues = $mvMD.Items.$mvIID ' For Each $mvValue in $mvValues ' If $mvFirst ' $mvFirst = 0 ' Else , ' EndIf $mvValue ' Next <br></td> ' Inc $i ' If $i = 3 </tr> ' $i = 0 ' EndIf ' Next '' <!---------------------フォルダ-----------------------------> ' If ! $mvProfile.Folder.Disable ' If $i = 0 <tr><th nowrap>\\ ' Else <th class="notFirst" nowrap>\\ ' EndIf フォルダ</th>\\ ' If $i = 0 <td colspan="5">\\ ' Elif $i = 1 <td colspan="3">\\ ' Else <td>\\ ' EndIf ' If $mvMD.DeleteTime ' Call cmImage "trash20.png" ごみ箱 ' Else ' $mvFolderPath = $Command.Mail.GetFolderPath $mvBS $mvMD.FID $_mvFolderPath ' EndIf </td></tr> ' Elif $i = 1 <td colspan="4"><br></td></tr> ' Elif $i = 2 <td colspan="2"><br></td></tr> ' EndIf ' EndIf '' <!---------------------警告日時-----------------------------> ' If ( $mvType != "Sent" ) and ( $mvMD.WarningTime ) ' $mvWT = $mvMD.WarningTime <tr><th nowrap>警告日時</th><td colspan="5" nowrap>\\ ' If $mvMD.Status = -2 <font color="#888888">$mvWT.Year/$mvWT.Month/$mvWT.Day($mvWT.WDay) $mvWT.Hour:$mvWT.Minute00</font> ' Elif $TimeStamp >= $mvWT <span class="fontStress">$mvWT.Year/$mvWT.Month/$mvWT.Day($mvWT.WDay) $mvWT.Hour:$mvWT.Minute00</span> ' Else $mvWT.Year/$mvWT.Month/$mvWT.Day($mvWT.WDay) $mvWT.Hour:$mvWT.Minute00 ' EndIf </td></tr> ' EndIf '' <!---------------------コメント-----------------------------> ' If ( ! $mvHideDetail ) or $mvMD.Comments.Count <!--#include file="LibraryComment.html"--> <tr><th nowrap>コメント</th><td colspan="5">\\ ' If ( ! $mvHideDetail ) and ( ! $mvMD.DeleteTime ) and ( ! $VID ) ' Call commentAdd "Mail" "Comment" "Write" ' EndIf ' Call commentView "Mail" </td></tr> ' EndIf ' EndSub '' ' Sub mailContent $argMailObject $argEnableHeader $argReply ' If $argReply ' Set $Draft = $argMailObject.Draft <table class="mailContentTable">\\ <tr>\\ <td class="mailContentInfo" nowrap></td> <td> <div class="mailContentDiv">\\ <div class="mailContentHead">件名</div>\\ <div><span class="fontBold">$Draft.Subject</span></div></div> <div class="mailContentDiv">\\ <div class="mailContentHead">宛先</div>\\ <div>$Draft.To<br></div></div> ' If $Draft.CC <div class="mailContentDiv">\\ <div class="mailContentHead">CC</div>\\ <div>$Draft.CC</div></div> ' EndIf ' If $Draft.BCC <div class="mailContentDiv">\\ <div class="mailContentHead">BCC</div>\\ <div>$Draft.BCC</div></div> ' EndIf </td></tr></table> ' Else <table class="mailContentTable">\\ <tr>\\ <td class="mailContentInfo" nowrap>\\ ' If $Type = "Received" ' $mCode = $argMailObject.Code <div class="mailContentNumber">No.$mCode</div>\\ ' EndIf ' $t = $argMailObject.TimeStamp ' If $argEnableHeader <div class="mailContentDateTime">$t.Year/$t.Month/$t.Day<br>($t.WDay) $t.Hour:$t.Minute00</div>\\ ' Else </td> <td class="mailContentDate" nowrap> <div class="mailContentDateTime">$t.Year/$t.Month/$t.Day ($t.WDay) $t.Hour:$t.Minute00</div>\\ ' EndIf </td> <td class="mailContentHeader"> <div class="mailContentDiv">\\ ' If $argEnableHeader <div class="mailContentHead">件名</div>\\ ' EndIf <div><span class="fontBold">$argMailObject.Subject</span>\\ ' If $Source and ( ! $argReply ) ' Call cmLink "ソースを見る" "browse20.png" "$Server?page=MailSource&wid=$WID&bs=$BS&vid=$VID&dbid=$DBID&mid=$MID&ct=1" 0 ' EndIf </div></div> ' If $argEnableHeader <div class="mailContentDiv">\\ <div class="mailContentHead">差出人</div>\\ <div>\\ ' If $argMailObject.From $argMailObject.From\\ ' Elif $Type != "Received" ' $AID = $MailProfile.Accounts.Head ' Set $Account = $MailProfile.Accounts.$AID ' If $Account.FromName "$Account.FromName" <$Account.Address>\\ ' Else $Account.Address\\ ' EndIf ' EndIf <br></div></div> <div class="mailContentDiv">\\ <div class="mailContentHead">宛先</div>\\ <div>$argMailObject.To</div></div> ' If $argMailObject.CC <div class="mailContentDiv">\\ <div class="mailContentHead">CC</div>\\ <div>$argMailObject.CC</div></div> ' EndIf ' If $argMailObject.BCC <div class="mailContentDiv">\\ <div class="mailContentHead">BCC</div>\\ <div>$argMailObject.BCC</div></div> ' EndIf ' EndIf </td> </tr></table> ' EndIf <div class="mailBody"> ' If $argReply ' If $Draft.HtmlData <div class="re-content"> ' $Command.RichText.View $Draft.HtmlData </div> ' Else ' View $Draft.Data ' EndIf <br> ' View $Draft.Signature ' For Each $File in $Draft.Files <hr> ' $System.SetParameter Inline "Inline$WID" ' $System.FileLink $File Mail $Login.$Inline 0 "&wid=$WID&bs=$BS&vid=$VID&dbid=$DBID&MailType=Received" ' Next ' Else ' If $Type = "Received" ' If $Source <!--#include file="PartsMailData.html"--> ' Else ' If $argMailObject.HtmlData <!--#include file="PartsRichText.html"--> ' Call ShowRichText ' Else ' View $argMailObject.Data ' EndIf ' If $argMailObject.Files.Count <hr> ' For Each $f in $argMailObject.Files ' If $f $f <font color="#888888">(削除済み)</font><br> ' EndIf ' Next ' EndIf ' EndIf ' Else ' If $argMailObject.HtmlData <div class="re-content"> ' $Command.RichText.View $argMailObject.HtmlData </div> ' Else ' View $argMailObject.Data ' EndIf ' If $argMailObject.Signature <br> ' View $argMailObject.Signature ' EndIf ' For Each $File in $argMailObject.Files <hr> ' If $argMailObject.DeleteFiles $File.FileName <font color="#888888">(削除済み)</font><br> ' Else ' $System.SetParameter Inline "Inline$WID" ' $System.FileLink $File Mail $Login.$Inline 0 "&wid=$WID&bs=$BS&vid=$VID&dbid=$DBID&MailType=Sent" ' EndIf ' Next ' EndIf ' EndIf </div> <div class="mailContentBottom"><br></div> ' EndSub '' ' EndIf