ｻｲﾎﾞｳｽﾞ Office 8 ｹｰﾀｲ

' $System.Access Login ' $Command.ContentType ' $Command.Meta ｻｲﾎﾞｳｽﾞ Office 8 ｹｰﾀｲ ' $DenyMailUse = $Config.Mail.DenyMailUse ' $LID = $Login.ID ' Init $ID = $LID ' Init $GID = $Login.Group.ID ' If $Modules.WorkFlow.Available ' $AppWorkFlow = $Command.License.GetLicense WorkFlow $LID ' $AppLicense = $Command.License.GetLicenseCount WorkFlow ' If ! $AppLicense ' $bTrial = $Command.License.IsTrial WorkFlow ' If ! $bTrial ' $AppWorkFlow = 0 ' EndIf ' EndIf ' EndIf ' If $Modules.Project.Available ' $AppProject = $Command.License.GetLicense Project $LID ' $AppLicense = $Command.License.GetLicenseCount Project ' If ! $AppLicense ' $bTrial = $Command.License.IsTrial Project ' If ! $bTrial ' $AppProject = 0 ' EndIf ' EndIf ' EndIf ' If $Modules.Report.Available ' $AppReport = $Command.Report.IsAvailable ' EndIf ' If $System.IsSetUtnId ' $LKey = $Command.GetLoginKey ' If (! $LKey) or ($LKey = $lk) 端末情報を登録しました。
次回以降「簡単ﾛｸﾞｲﾝ」が可能です。 ' Else 端末情報を登録しました。
次回以降「簡単ﾛｸﾞｲﾝ」を利用するには以下のﾎﾞﾀﾝをｸﾘｯｸし表示される画面をﾛｸﾞｲﾝURLとしてﾌﾞｯｸﾏｰｸしなおしてください。
' $SA = $Command.GetLoginURLAccount ' $Session.UpdateBookmark = 1 ' $BookmarkURL = 1 ' EndIf

' EndIf ' If $Session.UpdateBookmark and (! $BookmarkURL) この画面のURLをﾛｸﾞｲﾝURLとしてﾌﾞｯｸﾏｰｸしなおしてください。

' $Session.UpdateBookmark = 0 ' EndIf ' If $Smart.Basic ' Set $Cal = $Calendar.SharedCalendar ' $Cal.SID = $LID ' $Cal.LID = $LID ' Set $s = $Cal.$Date ' $s.EndTime = 1 今日の予定
' $scCount = 0 ' Set $Ann = $Personal.Calendar.Anniversaries.$Date ' If $Ann.Name ' $System.SetParameter h "$Ann.Name" ☆$h
' Inc $scCount ' EndIf ' For Each $e in $s ' If $e.Banner or $e.Critical ' Continue ' EndIf ' Inc $scCount ' Call cmEmoji weather_1 終日
' $System.SetParameter h "$e.Title" ' $h = $Command.MobileString.StrHead $h 18 0 3 　\\ $h\\ ' If $e.Private (非公開)\\ ' EndIf
' Next ' $TimeStamp = $System.TimeStamp ' $s.SetHour = $System.TimeStamp.Hour - 1 ' $s.EndHour = 24 ' $s.AllEvents = 1 ' For Each $e in $s ' If ! $e.Critical ' Continue ' EndIf ' Inc $scCount ' Call cmEmoji clock $_e.Time\\ ' If $e.Shared ' Call cmEmoji sc_joint ' EndIf ' If $e.Regular ' Call cmEmoji sc_repeat ' EndIf
' $System.SetParameter h "$e.TempMark$$e.Title" ' If $e.Private ' $h = $Command.MobileString.StrHead $h 10 0 3 ' Else ' $h = $Command.MobileString.StrHead $h 18 0 3 ' EndIf 　\\ $h\\ ' If $e.Private (非公開)\\ ' EndIf
' Next ' $s.SetHour = -1 ' $s.EndHour = -1 ' For Each $b in $s ' If $b.Banner ' Inc $scCount ⇔$b.SetTime.Month/$b.SetTime.Day～$b.EndTime.Month/$b.EndTime.Day
　\\ ' $h = $Command.MobileString.StrHead $b.Title 18 0 3 $h\\
' EndIf ' Next ' If ! $scCount 予定はありません
' EndIf

' EndIf ' If $Smart.Basic ' $bMessFlag = 0 ' Set $Profile = $Calendar.Users.$LID ' $MemoCount = 0 ' For Each $Memo in $Profile.Memos ' If ! $Memo.MTime ' Inc $MemoCount ' EndIf ' Next ' If $MemoCount ' Call cmLinkEmoji "$MemoCount件の電話ﾒﾓ" "$Server?a=$a&p=scMH" "" tel ' $bMessFlag = 1 ' EndIf ' $Command.Message.Receive ' $Command.Alert.Read ' Set $pm = $Command.Personal.GetPrivateMessages ' $MC = 0 ' $WMC = 0 ' If $pm ' For Each $Private in $pm ' If $Private.ElementType = Mail ' continue ' Elif $Private.ElementType = Message ' If ! $Private.Read ' Inc $MC ' Else ' $MID = $Private.EID ' $DBID = $Private.DBID ' Set $MessageTop = $Command.Message.GetMessageTop $DBID ' Set $m = $MessageTop.PrivateMessages.$MID ' If $m.MID != $LID ' Inc $MC ' EndIf ' EndIf ' EndIf ' Next ' EndIf ' Set $PM = $Personal.Mail ' If ! $DenyMailUse and $PM.NewMails ' Call cmLinkEmoji "$PM.NewMails件の新着ﾒｰﾙ" "$Server?a=$a&p=mf&receivemail=1" "" new_mail ' $bMessFlag = 1 ' EndIf ' $cmMessageAppName = $Command.Message.GetAppName ' $System.SetParameter localMessageAppName "$cmMessageAppName内ﾒｰﾙ" ' If $MC > 0 ' Call cmLinkEmoji "$MC件の更新$localMessageAppName" "$Server?a=$a&p=anMS" "" post ' $bMessFlag = 1 ' EndIf ' $UCount = $Personal.Cabinet.UnconfirmedMessages.Count ' If $UCount > 0 ' Call cmLinkEmoji "$UCount件の未確認$localMessageAppName" "$Server?a=$a&p=anUC" "" post ' $bMessFlag = 1 ' EndIf ' Set $rs = $Command.Personal.GetPublicMessages ' $FRC = $rs.Count ' If $FRC ' Call cmLinkEmoji "$FRC件の更新掲示" "$Server?a=$a&p=anFR" "" eye ' $bMessFlag = 1 ' EndIf ' EndIf ' If $AppWorkFlow and $Smart.WorkFlow ' Set $WorkBox = $WorkFlow.WorkBoxes.$LID ' $Handles = $WorkBox.Handle.Count ' $Verifys = $WorkBox.Verify.Count ' If $Handles and $AppWorkFlow ' Call cmLinkEmoji "$Handles件の未処理申請" "$Server?a=$a&p=wf&MD=HN" "" ok ' $bMessFlag = 1 ' EndIf ' If $Verifys ' Call cmLinkEmoji "$Verifys件の申請結果" "$Server?a=$a&p=wf&md=VF" "" ok ' $bMessFlag = 1 ' EndIf ' EndIf ' If $Smart.Basic ' $localScheduleRows = $Personal.TopPage.ScheduleRows ' Init $localScheduleRows = 5 ' $SCC = 0 ' If $localScheduleRows > 0 ' Set $cr = $Personal.Calendar.Read ' Set $NotifyEvents = $Calendar.Users.$LID.NotifyEvents ' For Each $Notify in $NotifyEvents ' If $Notify.Date < $TimeStamp.Date ' Continue ' EndIf ' $NID = $Notify.ID ' $ut = $cr.$NID ' If $ut and ($Notify.TimeStamp <= $ut) ' Continue ' EndIf ' Inc $SCC ' If $SCC >= $localScheduleRows ' Exit ' EndIf ' Next ' If $SCC < $localScheduleRows ' Set $FollowNotifys = $Command.Calendar.GetFollowNotifyList ' $FollowNotifyCount = $FollowNotifys.DataCount ' Inc $SCC $FollowNotifyCount ' If $SCC > $localScheduleRows ' $SCC = $localScheduleRows ' EndIf ' EndIf ' If $SCC ' Call cmLinkEmoji "$SCC件の更新予定" "$Server?a=$a&p=anSC" "" clock ' $bMessFlag = 1 ' EndIf ' EndIf ' EndIf ' If $AppReport and $Smart.Report ' $RCC = 0 ' $localReportRows = $Personal.TopPage.ReportRows ' Init $localReportRows = 5 ' If $localReportRows > 0 ' Set $urs = $Report.Users.$LID.News ' Set $pr = $Personal.Report ' Set $rlu = $Report.Users.$LID ' Set $run = $rlu.Notified ' Set $pr = $Personal.Report ' For Each $RID in $run ' $RTS = $pr.Read.$RID ' $NTS = $rlu.NTS.$RID ' If $RTS >= $NTS ' Continue ' EndIf ' Set $rpt = $Report.Reports.$RID ' If ! $rpt ' Continue ' EndIf ' Inc $RCC ' If $RCC >= $localReportRows ' Exit ' EndIf ' Next ' EndIf ' If $RCC > 0 ' Call cmLinkEmoji "$RCC件の更新報告書" "$Server?a=$a&p=anRP" "" report ' $bMessFlag = 1 ' EndIf ' EndIf ' If $AppProject and $Smart.Project ' $PF = 1 ' $Login.Projects.Reverse = 1 ' $Total = 0 ' For Each $PID in $Project.Users.$LID.Notify ' Set $PU = $Project.Projects.$PID ' $PNC = $PU.DocNotified.Count + $PU.TaskNotified.Count ' If ! $PNC ' Continue ' EndIf ' $Total = $Total + $PNC ' Next ' If $Total > 0 ' Call cmLinkEmoji "$Total件のﾌﾟﾛｼﾞｪｸﾄ通知" "$Server?a=$a&p=anPR" "" project ' $bMessFlag = 1 ' EndIf ' EndIf ' If $Smart.Basic ' Call cmLinkEmoji "在席情報" "$Server?a=$a&p=scPM&id=$id&gid=$gid" "" book ' $tdCount = 0 ' $Personal.ToDo.Current.Sort = limit ' For Each $Item in $Personal.ToDo.Current ' If $Item.Finish ' Continue ' EndIf ' Inc $tdCount ' Next ' If $tdCount

' Call cmLinkEmoji "$tdCount件のToDo" "$Server?a=$a&p=td" "" loupe ' EndIf ' EndIf

' If $Smart.Basic ' Call cmEmoji clock ｽｹｼﾞｭｰﾙ
┣\\ ' Call cmLinkEmoji "個人日予定" "$Server?a=$a&p=scDY" 1 num1 ┣\\ ' Call cmLinkEmoji "個人週予定" "$Server?a=$a&p=scPW" 2 num2 ┣\\ ' Call cmLinkEmoji "ｸﾞﾙｰﾌﾟ日予定" "$Server?a=$a&p=scZM" 3 num3 ' $FGID = $FacilityGroups.Head ┗\\ ' Call cmLinkEmoji "設備予約" "$Server?a=$a&p=scWK&gid=$FGID" 4 num4 　\\ ' Call cmLinkEmoji "電話ﾒﾓ" "$Server?a=$a&p=scNW" "" book ' Call cmLinkEmoji "個人ﾌｫﾙﾀﾞ" "$Server?a=$a&p=mf" 5 num5 memo ' Call cmLinkEmoji "掲示板" "$Server?a=$a&p=fr" 6 num6 eye ' Call cmLinkEmoji "ToDoﾘｽﾄ" "$Server?a=$a&p=td" 7 num7 loupe ' Call cmLinkEmoji "ｱﾄﾞﾚｽ帳" "$Server?a=$a&p=ad" 8 num8 book ' Call cmLinkEmoji "ﾕｰｻﾞｰ名簿" "$Server?a=$a&p=ul" 9 num9 user ' EndIf ' If $AppReport and $Smart.Report ' Call cmLinkEmoji "報告書" "$Server?a=$a&p=rp" "" report ' EndIf ' If $AppProject and $Smart.Project ' Call cmLinkEmoji "ﾌﾟﾛｼﾞｪｸﾄ" "$Server?a=$a&p=pr" "" project ' EndIf ' If $AppWorkFlow and $Smart.WorkFlow ' Call cmLinkEmoji "ﾜｰｸﾌﾛｰ" "$Server?a=$a&p=wf&MD=HN" "" ok ' EndIf ' Call cmLinkEmoji "再読込" "$Server?a=$a&_Update=1&_System=1" 0 num0 repeat ' If ! $System.IsASP Version $Version$.$Build($BuildTimestamp)
' Else Version $Version$.$Build($BuildTimestamp) $ASPVersion
' EndIf ' $Command.Copyright